VBS和bat批处理逐行读取文件实例

首先是批处理的，很简单，每隔两秒钟读取一行。

@echo off
for /f "tokens=*" %%i in (lrbf.ini) do (echo %%i & ping -n 2 127.1>nul)
pause

更直观的：

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

当然如果你想做更多其他的事 do 后面是你发挥的地方

vbs的两个版本

第一种方式，逐行读取，依次显示：

const forreading = 1
dim   objfso,objfile,strline  
set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.opentextfile("lrbf.ini", forreading)
do   until   objfile.atendofstream  
        strline=objfile.readline  
        wscript.echo   strline   '这里是显示一行内容而已,可以换成别的内容
loop  
objfile.close  
set   fso=nothing

第二种方式，全部读取，依次显示：

const forreading = 1
dim   objfso,objfile,strline  
set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.opentextfile("lrbf.ini", forreading)
str=objfile.readall  
objfile.close  
if   str=""   then  
        wscript.echo   "nothing"  
        wscript.quit  
end   if  
strarry=split(str,vbcrlf)  
for   each   linestr   in   strarry  
          wscript.echo   linestr   '这里是用echo显示每一行的内容,可以换成别的内容
next  
set   fso=nothing 

vbs读取文本最后一行：
const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.opentextfile("lrbf.ini", forreading)
do until objfile.atendofstream
strnextline = objfile.readline
if len(strnextline) > 0 then
strline = strnextline
end if
loop
objfile.close
wscript.echo strline