CMIIW
coba jwb nich, pake fungsi MID. coba skrip ini dech....
Private Sub Command1_Click()
Dim i As Byte
Dim tmp As String
dim hit As Byte
hit = 0
For i = 1 To Len(Text1.Text)
tmp = Mid(Text1.Text, i, 1)
If tmp = "m" Then
hit = hit + 1
End If
Next i
MsgBox hit
End Sub
----- Original Message -----
From: "Toto Sugiarto" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, July 04, 2005 11:45 AM
Subject: [Programmer-VB] Hitung suatu karakter di string
> Yth miliser,
>
> Ada gak ya fungsi untuk menghitung karakter tertentu di suatu string.
> Contohnya:
> karakter "m" di "programmer-vb" adalah 2
>
> Terima kasih sebelumnya
> Toto Sugiarto
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
