计算行数

Question

我正在使用下面的VBScript来计算行数

Set t1 = CreateObject("Scripting.FileSystemObject")
Set t2 = t1.OpenTextFile ("c:\Users\sample.txt", 1)
Do Until t2.AtEndOfStream
    strlinenumber = t2.Line
    strLine = t2.Readline
Loop
MsgBox strlinenumber
t2.Close

如何在消息框中获得自定义的文本（例如“行数：22”）

Answer 1

只需将行数与您的消息文本结合起来即可：

Do Until t2.AtEndOfStream
    t2.ReadLine
Loop
MsgBox "Number of lines: " & t2.Line

您不需要计数器变量BTW。在您读取循环中的所有行之后，Line属性具有行数。