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

2 Responses

  1. Terima kasih banyak atas informasinya dan ini banyak membantu saya.

    salam,

  2. Thanks a lot for your information.

    Rgds,
    Wahyu

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: