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を実行すると文字数を集計でき、ワードの機能と同じです。でも、アルゴリズムが違っています。結果も違っています。「有効文字」とはどういう意味ですか？