中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-09 01:24

共 47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行

DOS批处理 & 脚本技术（批处理室） » 逐行读取中如何不显示每行前五位

可打印版本　693 / 6

第1楼　yywd	发表于 2008-06-07 22:02
中级用户　发帖 130　积分 358
逐行读取中如何不显示每行前五位逐行读取中如何不显示每行前五位下面只能逐行读取显示每行全部 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("d:\1\1.txt", 1) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine Wscript.Echo strLine Loop objFile.Close [ Last edited by yywd on 2008-6-7 at 10:05 PM ]

第2楼　bat-zw	发表于 2008-06-07 22:37
金牌会员　发帖 1,276　积分 3,105
不懂vbs: 我觉得这个用批处理就能很好地解决： @echo off&setlocal enabledelayedexpansion for /f "delims=" %%i in (a.txt) do ( set str=%%i echo !str:~5! ping /n 2 127.1>nul )

第3楼　slore	发表于 2008-06-07 22:49
铂金会员　发帖 2,478　积分 5,212
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("d:\1\1.txt", 1) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine Wscript.Echo Mid(strLine,6) Loop objFile.Close

第4楼　yywd	发表于 2008-06-07 23:11
中级用户　发帖 130　积分 358
谢谢您，很好用

第5楼　joyn	发表于 2008-06-07 23:14
中级用户　发帖 105　积分 280　来自广西
如 Slore 所写

第6楼　terse	发表于 2008-06-08 01:15
银牌会员　发帖 946　积分 2,404
加上 objFile.Skip(5) 也一样

第7楼　bat-zw	发表于 2008-06-08 20:26
金牌会员　发帖 1,276　积分 3,105
难道用批处理不行吗？非要用vbs？

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