欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-06-24 16:11:26
首先是批处理的,很简单,每隔两秒钟读取一行。 复制代码 代码如下:@echo off for /f "tokens=*" %%i in (lrbf.ini) do (e...

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

复制代码 代码如下:
@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