Buatlah satu form
tambahkan object berikut ke dalam form tsb
Text1 (Textbox), Command1 (Command button) dan List1 (Listbox)
dalam textbox masukkan kalimat sepanjang apapun
klik command1, hasilnya akan diurai kata per kata dalam listbox
silakan pelajari dan kembangkan tekniknya sesuai kebutuhan..
Copy paste script dibawah ini
===================================================================
Private Sub Command1_Click()
Dim vString As String, vLen As Integer, vPos As Integer, _
vNextStr As String, vText As String
Dim i As Integer
List1.Clear
vString = Trim(Text1.Text) 'Penggunaan Trim untuk menghindari
pembacaan space di awal dan akhir kalimat
vPos = InStr(vString, Chr(32)) 'Chr(32) adalah Space
Do While vPos > 0
i = i + 1
vLen = Len(vString)
vPos = InStr(vString, Chr(32)) 'vPos diulangi untuk keperluan
looping
vText = Left(vString, vPos)
If vText <> "" Then List1.AddItem vText
vString = Trim(Right(vString, vLen - vPos))
If i = 100 Then Exit Do
Loop
List1.AddItem vString
End Sub
===================================================================
semoga membantu
F
in Code we trust
--- In [email protected], bambang supriadi <[EMAIL PROTECTED]>
wrote:
>
> Mohon bantuan gimana cara ngambil string perkarakter, misalnya
>
> TES DOANG
>
> saya ingin ngambil kata TES lalu DOANG secara terpisah, tapi spasi
pada string diatas tidak mempengaruhi apakah satu spasi atw dua spasi
dst, misalnya
>
> TES DOANG
>
>
> ---------------------------------
> Ahhh...imagining that irresistible "new car" smell?
> Check outnew cars at Yahoo! Autos.
>
> [Non-text portions of this message have been removed]
>
