چطور در یک متن طولانی تعداد دفعات تکرار یک رشته رو به دست بیاریم

[morrning]

من میخوام از یه متن طولانی تعداد دفعات تکرار یک رشته خاص داخل اون متن رو به دست بیارم مثلا اگه عبارت "the land of the dead" رو وارد کنیم و تعداد دفعات حرف "the"رو بخوایم بهمون عدد دو رو برگشت بده.

[Saman_12]

Private Function Repeat(ByVal Str As String, ByVal StrOn As String) As Integer

For i As Integer = 1 To Str.Length

Application.DoEvents()
If Mid(Str, i, StrOn.Length) = StrOn Then Repeat += 1 : i += StrOn.Length - 1
Next

Return Repeat
End Function
یا

MsgBox("the land of the dead the the".Split("the").Length - 1)

بهتر بود اول جستجو میکردی.

[Ghaisard]

سلام

فکر کنم منظورتون از "حرف" کلمه باشه
اگه می خواین یه کلمه رو توی یک فایل TXT جستجو کنید یه راهش اینه که خط به خط فایل رو بخونید و بعدش با یه If اون رشته رو پیدا کنید.
اینم از کدش:



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim file As Integer = FreeFile()
FileOpen(file, "c:\1.txt", OpenMode.Input, OpenAccess.Read)
Dim str As String
Dim cnt As Integer
While Not EOF(file)
str = LineInput(file)
If str.Contains(TextBox1.Text) Then
cnt = cnt + 1
End If
End While
FileClose(file)
Label1.Text = cnt
End Sub