Menghitung Jumlah Kata dengan Visual Foxpro

Menghitung Jumlah Kata dengan Visual Foxpro

  11.17    Prometheus

---

&& FUNCTION JumlahKata
&& PARAMETERS _kalimat, dimana _kalimat yang akan dihitung jumlah katanya
&& FUNCTION ini untuk  menentukan jumlah kata dalam suatu kalimat
&& Contoh : JumKataDalamKalimat("Saya   mau pergi      sekarang")
&& Hasil = 4

FUNCTION JumlahKata
PARAMETERS _kalimat
IF VARTYPE(_kalimat)<>"C"
        _kalimat=""
ENDIF
_balik=0
FOR _kei=1 TO 100
        _testc=KataKeX(_kalimat,_kei)
        IF EMPTY(_testc)
            _balik=_kei
            EXIT
        ENDIF
NEXT
RETURN _balik-1