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的功能一样。不过算法不一样,结果也不太一样,原因是如何理解何为“有效字符”
复制代码 代码如下:
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的功能一样。不过算法不一样,结果也不太一样,原因是如何理解何为“有效字符”
上一篇: 杜甫为何不能入朝为官?背后有哪些原因呢
推荐阅读
-
Axure RP 8怎么使用函数统计字符串长度?
-
java 字符串词频统计实例代码
-
Python统计一个字符串中每个字符出现了多少次的方法【字符串转换为列表再统计】
-
python统计字母、空格、数字等字符个数的实例
-
java中对字符串每个字符统计的方法
-
python统计字符串中指定字符出现次数的方法
-
Java统计一个字符串在另外一个字符串出现次数的方法
-
aabccd统计每个字符出现的次数,结果显示{ a: 2, b: 1, c: 2, d: 1 };去掉重复的字符,使结果显示abcd
-
JS字符串统计操作示例【遍历,截取,输出,计算】
-
JavaScript中英文字符长度统计方法示例【按照中文占2个字符】