Menentukan Kata Ke-n Dalam Suatu Kalimat dengan Visual Foxpro

Menentukan Kata Ke-n Dalam Suatu Kalimat dengan Visual Foxpro

  14.13    Prometheus

---

&& Function KataKeX untuk mengambil kata ke-n dari sebuah kalimat
&& PARAMETERS _kalimat,_Ke dimana
&& _kalimat adalah Kalimat yang diberikan
&& _Ke adalah posisi yang diminta
&& Contoh : KataKeX("Saya mau pergi ke sekolah",4)
&& Hasilnya : "ke"
&& Sebab "ke" adalah kata ke-4 dari kalimat "Saya mau pergi ke sekolah"
&& Contoh : KataKeX("Saya mau pergi ke sekolah")
&& Hasilnya : "Saya"
&& Sebab ketika parameter _Ke tak diberikan dianggap numerik 1
&& Contoh : KataKeX(1111)
&& Hasilnya : ""
&& Sebab ketika parameter _kalimat tak diberikan dianggap ""


FUNCTION KataKeX
PARAMETERS _kalimat,_Ke
IF VARTYPE(_kalimat)<>"C"
        RETURN ""
ENDIF
_kalimat=ALLTRIM(_kalimat)+SPACE(1)
IF VARTYPE(_Ke)<>"N"
        _Ke=1
ENDIF
DO WHILE .T.
        IF AT(SPACE(2),_kalimat)<=0
                EXIT
        ENDIF
        _kalimat=STRTRAN(_kalimat,SPACE(2),SPACE(1))
ENDDO
_PosAkhir=at(" ",_kalimat,_Ke)
IF _Ke>1
        _PosAwal=at(" ",_kalimat,_Ke-1)+1
ELSE
        _PosAwal=1
ENDIF
RETURN SUBSTR(_kalimat,_PosAwal,_PosAkhir-_PosAwal)