<pre id=\"best-answer-content\" class=\"reply-text mb10\">Dim fso , sFile
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse = 0
Const BeginLine = 5 \'指定行,请修改
Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set sFile = fso.OpenTextFile( \"1.txt\", ForReading,TristateFalse) \'打开文本文件,请修改
Do While Not sFile.AtEndOfStream
If sFile.Line = BeginLine Then \'从指定行开始读取文本文件数据
MsgBox sFile.ReadLine
End If
sFile.Skipline
Loop
sFile.Close
Set fso = Nothing
Set sFile = Nothing |