字符串查找

[jp0077777]

有一字符串" 1 1 1 "

想查找1在字符串中出现了几次

这是个例子 字符串不是一样的也可能是" 1 1 " 或者" 1 1 " " "


谢了

[jhone99]

A = "爱你就说I love you，想你就上ICQ(I seek you)..."
B = "you"
C = 1
D = 0
'AB不解释了，C是查找的起点，D是统计出现次数
Do
   C = InStr(C, A, B) '第1次从1开始找，找到you位置在12，结果C=12(第2次就从15开始找)
   If C > 0 Then '如果找到了，加1次：下次向后跳3格找(因为you是3个字母)
       D = D + 1
       C = C + Len(B) 
   end if
Loop Until C = 0 '如果找不到，循环结束
MsgBox D 

[yachong]

Private Sub Command1_Click()
    Dim S1 As String, S2 As String
    Dim nLen1 As Long, nLen2 As Long
    Dim n As Long
    
    S1 = "123456123456123456123456123"
    S2 = "123"
    nLen1 = Len(S1)
    nLen2 = Len(S2)
    n = (nLen1 - Len(Replace(S1, S2, ""))) \ nLen2
    MsgBox "S2在S1中出现" & CStr(n) & "次"
End Sub

[jp0077777]

谢了 星星就是历害