放大镜站内搜索：

您现在的位置：首页 > 电脑 > 应用技巧 > 正文
一个检测一个字符串在另一个字符串当中出现几次的函数
学生王国 ∥ http://www.xswg.com 更新时间:2006年11月23日 调整字体：大 中 小


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

调用函数示例:
Response.write CheckTheChar("学生王国","欢迎光临学生王国http://www.xswg.com")


相关链接：
来自：
编辑：
浏览：
评论查看全部评论
您的评论
姓名：
请您注意：
1.请遵守《中国互联网行业自律条款》及中华人民共和国其他各项有关法律法规。
2.严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
3.用户需对自己在使用本站服务过程中的行为承担法律责任（直接或间接导致的）。
4.本站管理员有权保留或删除评论内容。
评论内容只代表网友个人观点，与本网站立场无关。