Split Kalimat

Tanya :

Di foxpro ada nggak ya, fungsi untuk split kalimat menjadi kata perkata
contoh
Ini Barang Baru Datang di split menjadi
1. Ini
2. Barang
3. Baru
4. Datang

Jawab :

KataSaya=’Ini Barang Baru Datang’
=pisah(KataSaya)

procedure pisah
parameter kalimat
no=1
terus=.t.
do while terus
posawal=iif(no=1,1,at(‘ ‘,kalimat,no-1)+1)
if at(‘ ‘,kalimat,no)=0
jmlhuruf=iif(no=1,at(‘ ‘,kalimat,no)-1,len(kalimat)-;

at(‘ ‘,kalimat,no-1))
else
jmlhuruf=iif(no=1,at(‘ ‘,kalimat,no)-1,;

at(‘ ‘,kalimat,no)-at(‘ ‘,kalimat,no-1)-1)
endif
kmacro=”kalimat”+allt(str(no))+”='”;

+substr(kalimat,posawal,jmlhuruf);

+”‘”

&kmacro
if at(‘ ‘,kalimat,no)=0
terus=.f.
endif
no=no+1
enddo