Question

我怎样才能读取一个txt文件，并输出所有单词的数量。

示例

嘿，我的名字是嘿嘿嘿，我喜欢这样

嘿：4 我的：1 名称：1
是：2
我：1 喜欢2
这个：1

我有这个：

'Option Explicit


Dim objTextFile,ForReading,objFSO,objOpen







Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOpen = objFSO.OpenTextFile("C:\Users\mib\.oracle_jre_usage\Desktop\olsenbanden.txt")
strContents = CStr(objOpen.ReadAll)

WScript.Echo(strContents)

好吧，我现在尝试了这个但是不起作用：

Dim x
x=10

set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\mib\.oracle_jre_usage\Desktop\olsenbanden.txt",1)
Dim strLine
Dim total_words
total_words = 0
do while not objFileToRead.AtEndOfStream
     strLine = objFileToRead.ReadLine()

     a=Split(strLine,":")
     for each x in a
        if IsNumeric(x) then
            total_words = total_words + 1
        end if
     next
loop

objFileToRead.Close
Set objFileToRead = Nothing

WScript.Echo(IsNumeric(x) & "<br />")

Answer 1

我想你想要计算文件中的每个单词？您可以使用字典来收集单词，然后在您处理完文档后将其写出来

php artisan

不确定您是否使用Windows脚本宿主或ASP，但您需要做的就是将Wscript.Echo语句更改为等效的ASP等

Answer 2

您可以使用IsNumeric（值）函数。

示例：

Dim x
x=10
response.write(IsNumeric(x) & "<br />")

您的代码可能是这样的：

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(your_file,1)
Dim strLine
Dim total_words
total_words = 0
do while not objFileToRead.AtEndOfStream
     strLine = objFileToRead.ReadLine()

     a=Split(strLine,":")
     for each x in a
        if IsNumeric(x) then
            total_words = total_words + 1
        end if
     next
loop

objFileToRead.Close
Set objFileToRead = Nothing

注意：我没有尝试过，所以我可能会有错误......

祝你好运!!

读取txt文件并输出所有单词

2 个答案: