主题：[求助]如何查找给定的子字符串在一个字符串中出现的次数

如何查找给定的子字符串在一个字符串中出现的次数？急..............

 这个问题需要定义一个规则。怎样算一次。

 比如 aa 在 aaaabbb中，算2次，还是算3次？

Dim str As String = "aabbbccaa"
Dim s As String = "aa"
Dim count As Integer = 0
Dim i As Integer = 0
Do While 1
    i = str.IndexOf(s)
    If i < 0 Then
        Exit Do
    End If
    str = str.SubString(i + s.Length)
    count = count + 1
Loop
output.Show(count)

呵呵，这样简单点：

 

Dim s1 As String = "aabbbccaaaa"
Dim s2 As String = "aa"
Dim s3 As String = s1.Replace(s2,"")
Dim cnt = (s1.Length - s3.Length) / s2.Length
MessageBox.show(cnt & "次")