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 "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
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
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
上一篇: 使用bat批处理来安装和卸载ASP组件
下一篇: AJAX应用之草稿自动保存