text文本里边查找字符串

Question

我想在text文本里边查找我需要的字符串，想看看text文本中一共出现了多少个我需要查找的字符串。自动计算出来，请问这个怎么实现啊？

Answer 1

    Text1.Text = "abcdefgbcdabcbop"
    Dim b As String:  b = "ab"
    MsgBox Len(Replace(Text1.Text, b, String(Len(b) + 1, "*"))) - Len(Text1.Text)

Answer 2

Private Sub Command1_Click()
   Dim i As Integer, n As Integer, w As Integer, iStr As String
   Text1 = "xxxabyyyyabcccabhhhabyyy"
   iStr = "ab"
   
   For i = 1 To Len(Text1)
       w = InStr(i, Text1, iStr)
       If w <> 0 Then
          n = n + 1
          i = w + Len(iStr)
       Else
          Exit For
       End If
   Next
   MsgBox n
   
End Sub

Answer 3

Private Sub Command1_Click()
   Dim iStr1 As String
   Text1 = "xxxabyyyyabcccabhhhabyyy"
   iStr1 = "ab"
   MsgBox (Len(Text1) - Len(Replace(Text1, iStr1, ""))) / Len(iStr1)
   
   
End Sub

Answer 4

用InputB函数将文件内容全部读入String变量，再用Instr函数循环查找并计数
或用VBScript中的正则表达式

Answer 5

如果我想从txt文本文档里查找怎么弄啊，上午字符串太多了，text文本框放不下。如果我想从txt文档中查找怎不实现啊。

Answer 6

text文本框放不下
*******************
可以用richtextbox