首先是批处理的，很简单，每隔两秒钟读取一行。
复制代码 代码如下: @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
您可能感兴趣的文章:
- 可以将Bat转换位VBS文件的VBS脚本
- 用VBS来代替BAT或CMD文件进行命令
- vbs后台运行bat删除自身的代码
- 进程监控实现代码[vbs+bat]
- vbs 批量修改文件，bat 批处理文件调用执行vbs，并在cmd窗口打印返回值（vbs运行结果）
- VBS脚本和BAT批处理删除自身的方法
- EXE2BAT(EXE转BAT)的vbs脚本
- BAT批处理、VBScript批量安装字体脚本分享
- vbs与bat混编修改虚拟盘符的卷标
本文由 华域联盟 原创撰写：华域联盟 » VBS和bat批处理逐行读取文件实例
转载请保留出处和原文链接：https://www.cnhackhy.com/17860.htm
