vbs 字符统计功能模块
导读：收集整理的这篇文章主要介绍了vbs 字符统计功能模块，觉得挺不错的，现在分享给大家，也给大家做个参考。 字符统计功能模块 复制代码 代码如下:Sub TongJi( Set objFS...
收集整理的这篇文章主要介绍了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的功能一样。不过算法不一样，结果也不太一样，原因是如何理解何为“有效字符”
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs 字符统计功能模块
本文地址： https://pptw.com/jishu/609802.html