当前位置： 移动技术网 > IT编程>脚本编程>VBScript > vbs 字符统计功能模块

vbs 字符统计功能模块

2017年12月08日  | 移动技术网IT编程  | 我要评论

本田汽车召回事件,冒险奇兵2008,黄楚贤

字符统计功能模块
复制代码 代码如下:

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的功能一样。不过算法不一样，结果也不太一样，原因是如何理解何为“有效字符”

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网