中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-07 13:34

共 48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行

DOS批处理 & 脚本技术（批处理室） » 新年快乐！VBS如何读取文本最后一行？

可打印版本　860 / 3

第1楼　hackhd	发表于 2008-02-06 01:24
中级用户　发帖 102　积分 231
新年快乐！VBS如何读取文本最后一行？如题

第2楼　sonicandy	发表于 2008-02-06 09:00
中级用户　发帖 91　积分 273
新年快乐。 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楼　3742668	发表于 2008-02-06 12:52
荣誉版主　发帖 718　积分 2,013
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楼　lotus516	发表于 2008-02-06 20:41
高级用户　发帖 246　积分 551
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 ]

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023