计算行数[重复]

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

顺便说一句，您不需要计数器变量。 Line 属性具有读取循环中所有行后的行数。