Question

vb 某段字在text出现次数

有没有办法如图点command后在text2显示出ababab行在text1出现的次数。请高手指教。

Answer 1

Private Sub Command1_Click()
Dim i As Integer, Ci As Integer
For i = 0 To List1.ListCount
If List1.List(i) = Text1.Text Then Ci = Ci + 1
Next
Text2.Text = Ci
End Sub

Answer 2

给你一个思路

字符串1 就是很多的那个字符串 有一个长度

你要查找的字符串有一个长度

现在 我们把字符串1 中的 要查找的字符串用空字符替换

然后得到一个新的长度 新的长度和原来长度的差 和 要查找的字符串的长度 的商 就是出现的次数