如题
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 新年快乐！VBS如何读取文本最后一行？
查看 859 回复 3
楼 主
新年快乐！VBS如何读取文本最后一行？
发表于 2008-02-06 01:24 · 中国 湖南 常德 电信
第 2 楼
发表于 2008-02-06 09:00 · 中国 北京 移动
新年快乐。
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]]
第 3 楼
发表于 2008-02-06 12:52 · 中国 湖北 荆门 电信
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 = Nothing
第 4 楼
发表于 2008-02-06 20:41 · 中国 江西 九江 电信
Set 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 ]
论坛跳转: