如题
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
新年快乐！VBS如何读取文本最后一行？
标题：新年快乐！VBS如何读取文本最后一行？
新年快乐。
Set fso = createobject
("filesystemobject")
set stream = fso.opentextfile
("test.txt",1)
lines = stream.readall
call stream.close()
arr = split(lines,vbcrlf)
call msgbox(arr(ubound(arr)))
[[i] Last edited by sonicandy on 2008-2-6 at 09:04 AM [/i]]
Set fso = createobject
("filesystemobject")
set stream = fso.opentextfile
("test.txt",1)
lines = stream.readall
call stream.close()
arr = split(lines,vbcrlf)
call msgbox(arr(ubound(arr)))
[[i] Last edited by sonicandy on 2008-2-6 at 09:04 AM [/i]]
On Error Resume Next
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("a.txt")
If Err Then
WScript.Echo Err.Description
Set oFSO = Nothing
WScript.Quit
End If
Do Until oFile.AtEndOfLine
str = oFile.ReadLine
Loop
WScript.Echo str
oFile.Close
Set oFile = Nothing
Set oFSO = NothingSet objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", 1)
Do Until objFile.AtEndOfStream
strNextLine = objFile.ReadLine
If Len(strNextLine) > 0 Then
strLine = strNextLine
End If
Loop
objFile.Close
Wscript.Echo strLine[ Last edited by lotus516 on 2008-2-10 at 06:01 PM ]
来源：https://www.cn-dos.net/forum/viewthread.php?tid=37579 · 打印时间 2026-08-07 14:23