Membaca dari Kanan dengan Visual Foxpro

Membaca dari Kanan dengan Visual Foxpro

  19.26    Prometheus

---

&& Function BacaDrKanan
&& Untuk membalik (membaca dari kanan ke kiri) kata/kalimat yang diberikan
&& Parameter :
&& _Kalimat=Kalimat yang akan dibaca dari kanan ke kiri
&& _Mode=0 tak perlu alltrim, 1 dialltrim
&& Contoh :
&& BacaDrKanan("X:\Temp\") ===> "\pmeT\:X"
&& BacaDrKanan("X:\Temp\   ") ===> "\pmeT\:X"
&& BacaDrKanan("X:\Temp\   ",1) ===> "   \pmeT\:X"


FUNCTION BacaDrKanan
PARAMETERS _Kalimat,_Mode
IF VARTYPE(_Mode)="C"
        _Mode=VAL(_Mode)
ENDIF
IF VARTYPE(_Mode)<>"N"
        _Mode=0
ENDIF
IF _Mode<0 .or. _Mode>1
        _Mode=0
ENDIF
IF VARTYPE(_Kalimat)<>"C"
        _Kalimat=""
ENDIF
IF _Mode=0
        _Kalimat=ALLTRIM(_Kalimat)
ENDIF
_Balik=""
_LenKalimat=LEN(_Kalimat)
FOR _Kei=0 TO LEN(_Kalimat)-1
        _Balik=_Balik+SUBSTR(_Kalimat,_LenKalimat-_Kei,1)
NEXT
RETURN _Balik

Read More