VBS和bat批處理逐行讀取文件實例

2020-06-09 14:24:58

字體：大中小

來源：轉載

供稿：網(wǎng)友

首先是批處理的，很簡單，每隔兩秒鐘讀取一行。

復制代碼代碼如下:

@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 后面是你發(fā)揮的地方

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   '這里是顯示一行內(nèi)容而已,可以換成別的內(nèi)容
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顯示每一行的內(nèi)容,可以換成別的內(nèi)容
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刪除自身的代碼進程監(jiān)控實現(xiàn)代碼[vbs+bat]vbs 批量修改文件，bat 批處理文件調用執(zhí)行vbs，并在cmd窗口打印返回值（vbs運行結果）VBS腳本和BAT批處理刪除自身的方法EXE2BAT(EXE轉BAT)的vbs腳本BAT批處理、VBScript批量安裝字體腳本分享vbs與bat混編修改虛擬盤符的卷標

上一篇：海量文件復制和備份的技巧(xcopy命令實現(xiàn))

下一篇：批處理bat計算上個月最后一天的日期