一个检测一个字符串在另一个字符串当中出现几次的函数 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 ’++++++++++++++++ example: Response.write CheckTheChar("大家","a224大家4a434a4大家654arewr4a4a")
注册 登录
