Memotong Kalimat Utuh utuh

Memotong Kalimat Utuh utuh

  07.16    Prometheus

---

 && FUNCTION CutWordAt

&& PARAMETERS _Txt2Cut,_LenCut

&& Berguna untuk memotong kalimat pada panjang tertentu

&& Misalkan POTONG : "SEMBILAN PULUH LIMA RIBU RUPIAH" pada panjang 17 karakter

&& JIKA PAKAI LEFT HASILNYA : "SEMBILAN PULUH LI"

&& DENGAN FUNGSI INI HASILNYA : "SEMBILAN PULUH"

&& ?? LEFT("SEMBILAN PULUH LIMA RIBU RUPIAH",17) ==> "SEMBILAN PULUH LI"

&& ?? CutWordAt("SEMBILAN PULUH LIMA RIBU RUPIAH",17) ==> "SEMBILAN PULUH"

FUNCTION CutWordAt

PARAMETERS _Txt2Cut,_LenCut

PRIVATE _Txt2Cut,_LenCut,_Cut1,_JumCut1,_BalikCut,_Kei,;

_YgDites,_RefAsli

_Cut1=LEFT(_Txt2Cut,_LenCut)

_JumCut1=JumKata(_Cut1)

_BalikCut=""

FOR _Kei=1 TO _JumCut1

_YgDites=KataKeX(_Cut1,_Kei)

_RefAsli=KataKeX(_Txt2Cut,_Kei)

IF _YgDites==_RefAsli

IF EMPTY(_BalikCut)

_BalikCut=_YgDites

ELSE 

_BalikCut=_BalikCut+CHR(32)+_YgDites

ENDIF 

ENDIF 

NEXT 

RETURN _BalikCut