'str1为一堆数据,str2为指定数据
Function Test(ByVal str1,ByVal str2)
Dim lim '比较次数
Dim number '相同数据个数
l1=len(str1)
l2=len(str2)
lim=l1-l2+1
For i = 1 To lim '循环str1
str=Mid(str1,i,l2) '从str1中返回指定数目的字符
If str2=str Then '判断返回的字符是否跟指定数据str2一样
number=number+1
Else
number=0
End If
Next
Test=number
End Function
Function Test(ByVal str1,ByVal str2)
Dim lim '比较次数
Dim number '相同数据个数
l1=len(str1)
l2=len(str2)
lim=l1-l2+1
For i = 1 To lim '循环str1
str=Mid(str1,i,l2) '从str1中返回指定数目的字符
If str2=str Then '判断返回的字符是否跟指定数据str2一样
number=number+1
Else
number=0
End If
Next
Test=number
End Function