中国DOS联盟

逐行读取中如何不显示每行前五位

下面只能逐行读取显示每行全部

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 ]

我觉得这个用批处理就能很好地解决：

@echo off&setlocal enabledelayedexpansion

for /f "delims=" %%i in (a.txt) do (

     set str=%%i

     echo !str:~5!

     ping /n 2 127.1>nul

)

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

谢谢您， 很好用

如 Slore 所写

加上 objFile.Skip(5) 也一样

难道用批处理不行吗？非要用vbs？