復制代碼代碼如下:
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的功能一樣。不過算法不一樣，結果也不太一樣，原因是如何理解何為“有效字符”
