Question

txt文本如何统计行数

有5个txt的文本，每天都要检查他们的行数是否是一样的，现在用的是UltreEdit一个个的打开然后把鼠标拖到最后一行看。这样挺麻烦的，有没有高手有别的办法解决~~
jackyfire 你的办法是挺好的，但是每周生成的文件名是不一样的，要是这样拷来拷去的也挺麻烦的，不知道有没有更好的方法~~

Answer 1

新建一个扩展名为wsf的文件，即window脚本宿主文件
输入以下代码
<job id="vbs">
<script language="VBScript">
Const ForReading = 1
Dim objFSO, objFile, i
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("test.txt", ForReading)
Do While objFile.AtEndOfStream <> True
objFile.ReadLine
i = i + 1
Loop
objFile.Close
Wscript.Echo i
</script>
</job>
把"test.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>

如果你连文件名都不想输，就用下面这个，指定下目录，会统计出该目录下所有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("C:\Documents and Settings\")
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>

Just make a try!

Answer 2

Notepad2 MOD

你需要装一下这个好东西

这是一个用来取代 Notepad 的绿色免费程序，具有显示行号、内建各种程序语法的高亮度显示、支持 Unicode 与 UTF-8 的功能。最重要的是他具有一般文书编辑软件所没有的「行列功能」，可以进行区块模式选取的编辑。绝对是程序设计、文本编辑的好帮手。

http://download.enet.com.cn/html/030232006072801.html

自己去下载吧

下回来后改名为notepad.exe

仿效替换

C:\WINDOWS\system32\dllcache
C:\WINDOWS\system32
C:\WINDOWS

下的相同文件...以后记事就不会复原了....

Answer 3

文本里查看菜单里有个状态栏，选中就可以了．不过功能无法和UE相比．

Answer 4

Pascal 程序中
读到chr(13)就加一就行了
chr(13)为回车

Answer 5

最好能些个小程序来统计，很简单的一个程序