计算行数

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

如何在消息框中获取自定义文本（比如"Number of Lines: 22"）

Answer 1

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

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

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

计算行数

Counting number of Lines

vbscript