function CountStr(str1,str2)       dim tmp,i,j       if str1="" or isnull(str1) then                 j=0  ...

Function strnum(patrn, strng)  Dim regEx, Match, Matches,xx    xx=0  Set regEx = New RegExp  regEx.Pattern = patrn  regEx.IgnoreCase = True      ...

如何检测字符串出现的次数？FunctionCheckTheChar(TheChar,TheString)'TheChar="要检测的字符串".'TheString="待检测的字符串".ifinStr(TheString,TheChar)thenforn=1toLen(TheString)ifMid(TheString,n,Len(TheChar))=TheCharthenCheckTheChar=CheckTheChar+1EndifNextCheckTheChar="这个字符"&CheckTheChar&"次"elseCheckTheChar="0次"endifEndFunc...