函数:InStrT,返回字符串出现次数。

[CODE=vb]
Function InStrT(ByVal string1, ByVal string2)
Dim i, count:count = 0

For i = 1 To Len(string1)
If Mid(string1, i, Len(string2)) = string2 Then count = count + 1
InStrT = count
Next ‘i
End Function
[/CODE]

发表评论

邮箱地址不会被公开。 必填项已用*标注