vbs读取整个文本文件并输出

Const ForReading = 1

Dim message



Dim fs, ts

set fs = CreateObject("Scripting.FileSystemObject")

set ts = fs.OpenTextFile("1.txt", ForReading)

Do Until ts.AtEndOfStream

    message = ts.ReadLine       '即使是空行，也会被读一次

    if message <> "" Then

        MsgBox message

    End if

Loop

ts.Close

set ts = Nothing

set fs = Nothing