| ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile =objFSO.GetFile("<テキストファイルを指定>")
Set objTS = objFile.OpenAsTextStream(ForReading, 0)
r = objTS.ReadAll r = replace(r, "(", " ")
r = replace(r, ")", " ")
r = replace(r, "/", " ")
r = replace(r, "=", " ")
r = replace(r, ".", " ")
r = Replace(r,chr(9)," ")
r = Replace(r, "," ," ")
r = Replace(r, ":", " ")
r = Replace(r, ";", " ")
r = Replace(r, """", " ")
r = Replace(r, "“", " ")
r = Replace(r, "”", " ")
r = Replace(r, "’", " ")
r = Replace(r, "?", " ")
r = Replace(r, "!", " ")
r = Replace(r, "$", " ")
r = Replace(r, "\", " ")
r = Replace(r, "%", " ")
r = Replace(r, "*", " ")
r = Replace(r, "，", " ")
r = Replace(r, "[", " ")
r = Replace(r, "]", " ")
r = Replace(r, "{", " ")
r = Replace(r, "}", " ")
r = Replace(r, " ", " ")
r = Replace(r, "|", " ")
r = Replace(r, "~", " ")
r = Replace(r, "‘", " ")
r = Replace(r, "+", " ")
r = Replace(r, "<", " ")
r = Replace(r, ">", " ")
r = Replace(r, "…", " ")
r = Replace(r, "&", " ")
r = Replace(r, "-", " ")
r = Replace(r, "1", " ")
r = Replace(r, "2", " ")
r = Replace(r, "3", " ")
r = Replace(r, "4", " ")
r = Replace(r, "5", " ")
r = Replace(r, "6", " ")
r = Replace(r, "7", " ")
r = Replace(r, "8", " ")
r = Replace(r, "9", " ")
r = Replace(r, "0", " ")
r = Replace(r, "_", " ")
r = Replace(r, "@", " ")
r = Replace(r, " ", " ")
r = Replace(r, vbCr, " ")
r = Replace(r, vbLF, " ")
r = Replace(r, vbCrLf, " ") arrR = split(r," ") wscript.echo UBound(arrR) Set objDic = CreateObject("Scripting.Dictionary")
Set objDicCount = CreateObject("Scripting.Dictionary") For each n in arrR
n = UCase(trim(n))
If len(n) >1 and IsNull(n) = False then
If not objDic.Exists(n) then
objDic.Add n,1
Else
objDic.Item(n) = objDic.Item(n) + 1
End If
End if
Next Wscript.Echo objDic.Count
objKeys = objDic.Keys
objItems = objDic.Items For i = 0 To objDic.Count -1
Wscript.Echo objKeys(i) & "," & objDic.Item(objKeys(i))
Next |
