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
Filed under: 2. Pemrograman, 2.1. Foxpro | 2 Comments »