1 '方法1:
2 Dim str As String
3 str = "12345678"
4 MsgBox(UBound(Split(str, "3")))
5
6 '方法2:
7 Dim n&, j&
8 j = 0
9 n = InStr(1, text1.Text, "/ITEMNAME")
10 While n <> 0
11 n = InStr(n + 1, text1.text, text2.text)
12 j = j + 1
13 Wend
14 Print(j)
15
16
17 '方法3:
18 '调用 strCount(TextBox8.Text, "/ITEMNAME")
19
20 Function strCount(ByVal strA As String, ByVal strB As String) As Long
21 Dim lngA As Long
22 Dim lngB As Long
23 Dim lngC As Long
24 lngA = Len(strA)
25 lngB = Len(strB)
26 lngC = Len(Replace(strA, strB, ""))
27 strcount = (lngA - lngC) / lngB
28 MsgBox(strCount)
29
30
31 End Function