我經常要統計TXT文本的行數,而且行數非常之多,所以自己就找了些方法出來。有三種,分別如下。
工具/原料
txt記事本程序。
第一種方法
第一種方法是:新建一個TXT文本,將下面的代碼複製進去:
Const ForReading = 1
Dim objFSO, fold, f, strMsg, fileNames(100), objFile, lineCount(100),files,i
set objFSO = CreateObject("Scripting.FileSystemObject")
set fold = objFSO.GetFolder("E:\統計行數\")
set files = fold.Files
For Each f in files
If objFSO.GetExtensionName(f) = "txt" Then
Set objFile = objFSO.OpenTextFile(f, ForReading)
Do While objFile.AtEndOfStream <> True
objFile.ReadLine
lineCount(i) = lineCount(i) + 1
Loop
objFile.Close
fileNames(i) = f.Name
i = i + 1
End If
Next
strMsg = ""
For i = 0 To UBound(fileNames)
If fileNames(i)<>"" Then
strMsg = strMsg & fileNames(i) & ":" & lineCount(i)
strMsg = strMsg & Chr(13)
End If
Next
MsgBox(strMsg)
然後保存,並將TXT文本的後序格式名改為:wsf 如圖
然後將上面 E:\統計行數\ 改為你自己想要的目錄
將你要將統計的TXT文本以及剛剛生成的wsf文件放在該目錄下。
雙擊打開該wsf文件,就會自動統計你設定目錄下的TXT文件的行數。 如圖,我有兩個TXT文件,都統計出來了。
第二種方法
第二種方法是統計指定目錄下面的指定TXT文本。方法如下:
先將下面代碼複製進一個新建的TXT文本:
Const ForReading = 1
Dim objFSO, objFile, i
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("000.txt", ForReading)
Do While objFile.AtEndOfStream <> True
objFile.ReadLine
i = i + 1
Loop
objFile.Close
Wscript.Echo i
將“000.txt”改成當前目錄下你想要統計的TXT文件的名稱,例如我自己這裡要統計的就是000.txt
保存後,將代碼的TXT文本後序格式名改成wsf。
將wsf文件和你要統計的TXT文本放在同一目錄下,雙擊打開wsf文件,就可以統計你剛才指定的TXT文本的行數。
第三種方法
第三種方法更簡便:首先也是新建一個TXT文件,然後將下面代碼複製進去。
Const ForReading = 1
Dim strMsg, fileNames, objFile, lineCount(100)
set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell = WScript.CreateObject("WScript.Shell")
strMsg = InputBox("Please enter your file name:")
fileNames = Split(strMsg, " ", -1, 1)
For i = 0 To UBound(fileNames)
Set objFile = objFSO.OpenTextFile(fileNames(i) & ".txt", ForReading)
Do While objFile.AtEndOfStream <> True
objFile.ReadLine
lineCount(i) =lineCount(i) + 1
Loop
objFile.Close
Next
strMsg = ""
For i = 0 To UBound(fileNames)
strMsg = strMsg & lineCount(i)& " "
Next
MsgBox(strMsg)
保存,並和上面兩種方法一樣,將這個新建的TXT文本的後序格式名改為wsf
雙擊打開,輸入你要查找的TXT文本名字
結果就出來了。
注意事項
上面的代碼,你複製進TXT後可能是連成一行的,你要按照上面的來自己分好行。
如果不顯示文件後序名的話,隨便打開一個文件夾,然後點上面的工具-文件夾選項-查看 在高級設置下面,將隱藏已知文件的擴展名前的勾去掉,保存就行了。回到文件那裡,就可以看到擴展名了。
wsf文件打開方法,就是對著該文件點右鍵,然後打開方式選記事本,就可以打開更改代碼了。