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 () 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
adline
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)
adall
objFile.close
if  str=""  then
wscript.quit
end  if
strarry=split(str,vbcrlf)
for  each  linestr  in  strarry
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。