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

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

您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。