我经常要统计TXT文本的行数，而且行数非常之多，所以自己就找了些方法出来。有三种，分别如下。工具/原料moretxt记事本程序。第一种方法1/4分步阅读

第一种方法是：新建一个TXT文本，将下面的代码复制进去：

job id=HowManyLines

script language=VBScript

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)

/script

/job

然后保存，并将TXT文本的后序格式名改为：wsf 如图

2/4

然后将上面E:\统计行数\ 改为你自己想要的目录

3/4

将你要将统计的TXT文本以及刚刚生成的wsf文件放在该目录下。

4/4

双击打开该wsf文件，就会自动统计你设定目录下的TXT文件的行数。 如图，我有两个TXT文件，都统计出来了。

第二种方法1/4

第二种方法是统计指定目录下面的指定TXT文本。方法如下：

先将下面代码复制进一个新建的TXT文本：

job id=vbs

script language=VBScript

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

/script

/job

2/4

将“000.txt”改成当前目录下你想要统计的TXT文件的名称，例如我自己这里要统计的就是000.txt

3/4

保存后，将代码的TXT文本后序格式名改成wsf。

4/4

将wsf文件和你要统计的TXT文本放在同一目录下，双击打开wsf文件，就可以统计你刚才指定的TXT文本的行数。

第三种方法1/4

第三种方法更简便：首先也是新建一个TXT文件，然后将下面代码复制进去。

job id=HowManyLines

script language=VBScript

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)

/script

/job

2/4

保存，并和上面两种方法一样，将这个新建的TXT文本的后序格式名改为wsf

3/4

双击打开，输入你要查找的TXT文本名字

4/4

结果就出来了。

注意事项

上面的代码，你复制进TXT后可能是连成一行的，你要按照上面的来自己分好行。

如果不显示文件后序名的话，随便打开一个文件夹，然后点上面的工具－文件夹选项－查看 在高级设置下面，将隐藏已知文件的扩展名前的勾去掉，保存就行了。回到文件那里，就可以看到扩展名了。

wsf文件打开方法，就是对着该文件点右键，然后打开方式选记事本，就可以打开更改代码了。

记事本行数