Textbox ta aranan kelime sayısı - sayfa: 2

al kardeş kesin çözüm ben yazdım çalışıyor...

form üzerine
iki adet textbox ve bir command butonu koy

Private Sub Command1_Click()
´text2 aranılan kelime
´text1 arama yapılacak cümle
u1 = Len(Text1)
u2 = Len(Text2)
a = InStr(1, Text1, Text2)
s = 1
If a <> 0 Then
For x = 1 To u1
a = InStr(s, Text1, Text2)
If a <> 0 Then
s = a + 1
adet = adet + 1
End If
Next
Else
adet = 0
MsgBox "Aranılan Kelime Hiç YOk"
End If
MsgBox adet
End Sub

al kardeş kesin çözüm ben yazdım çalışıyor...

form üzerine
iki adet textbox ve bir command butonu koy

Private Sub Command1_Click()
´text2 aranılan kelime
´text1 arama yapılacak cümle
u1 = Len(Text1)
u2 = Len(Text2)
a = InStr(1, Text1, Text2)
s = 1
If a <> 0 Then
For x = 1 To u1
a = InStr(s, Text1, Text2)
If a <> 0 Then
s = a + 1
adet = adet + 1
End If
Next
Else
adet = 0
MsgBox "Aranılan Kelime Hiç YOk"
End If
MsgBox adet
End Sub

Sağol CeaSeR [:)]