Vbscript 计算行数

我使用下面的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”）

只需将行数与消息文本关联即可：

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

---

顺便说一句，您不需要计数器变量。

Line

属性具有读取循环中所有行后的行数。

另请参见在不必要的循环上保存-Ref