欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

vbs 字符统计功能模块

程序员文章站 2022-03-21 11:35:38
字符统计功能模块 复制代码 代码如下:sub tongji() set objfso = createobject("scripting.filesystemobject"...
字符统计功能模块
复制代码 代码如下:

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