vbs 字符统计功能模块

字符统计功能模块

sub tongji()
set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.opentextfile("ok.txt", 1)
strtext = objfile.readall
all = len(strtext)
s="` ~ ! @ # $ % ^ & * ( ) - _ = + \ | [ { ] } ; : ' , < . > / ? · ！ ￥ （ ） 、 【 】 ； ： ‘ ' “ ” ， 《 。 》 ？ …… —— chr(34) vbcrlf"
signs=split(s," ")
for each sign in signs
strtext = replace(strtext, "sign", " ")
next
objfile.close
for k=1 to len(strtext)
tmpstr=mid(strtext, k, 1)
if asc(tmpstr) > 127 or asc(tmpstr) < 0 then
c = c + 1
tmpstr=" "
end if
str = str + tmpstr
next
arrwords = split(str, " ")
for each strword in arrwords
if len(strword) > 0 then
i = i + 1
end if
next
sum = c + i
msgbox "字符总数：" & all & chr(13) & "有效字符：" & sum & chr(13) & "汉字总数：" & c, 64, "字符统计"
end sub

tongji()将上面代码保存为tongji.vbs，在tongji.vbs同目录下建立ok.txt文本文件，将你要统计的文本复制到ok.txt中，运行tongji.vbs即可以统计字数，与word的功能一样。不过算法不一样，结果也不太一样，原因是如何理解何为“有效字符”