如何检测字符串出现的次数?
Function CheckTheChar(TheChar,TheString) ' TheChar="要检测的字符串". ' TheString="待检测的字符串". if inStr(TheString,TheChar) then for n =1 to Len(TheString) if Mid(TheString,n,Len(TheChar))=TheChar then CheckTheChar=CheckTheChar+1 End if Next CheckTheChar="这个字符"&CheckTheChar&"次" else CheckTheChar="0次" end if End Function |