Kelime sayma (vb)

[velociraptor]

bu uygulamada kullanıcıdan alınan metin içersinde yine kullanıcıdan alınan başka bir ifade alınır

araçlar: 3 textbox ve 1 buton

Option Explicit


Private Sub Command1_Click()
Dim say, uzunluk, i, j As Integer
Dim metin, bak As String
say = 0
metin = Text1.Text
'mayhemious
metin = metin + "#"
uzunluk = Len(metin)
For i = 1 To uzunluk
For j = 1 To uzunluk
bak = Mid(metin, i, j)
If bak = Text2.Text Then say = say + 1
Next
Next
Text3.Text = "ifade içinde " & say & " defa geçiyo"

End Sub

ALINTIDIR