有什么软件可以统计特定字符的字数

来源:百度知道 编辑:UC知道 时间:2024/05/14 01:31:46
比方说我就要统计一篇文章中“笑”这个字出现的次数。

写一个 vbs 脚本即可以
某文章保存名为 "test.txt" 的文本中.

将以下代码保存成 ".vbs" 格式

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("test.txt",1)
sth = inputbox("请输入你要查询什么字符?","输入","笑")
str=file.readall
a=0
num=len(str)
for i = 1 to num
ctr=mid(str,i,1)
if ctr = sth then a=a+1
next
msgbox sth&"出现了"&a&"次"