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

來源：本站原創(chuàng)|時間：2020-01-10|欄目：vb|點擊：次

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

復(fù)制代碼代碼如下:

@echo off

for /f "tokens=*" %%i in (lrbf.ini) do (echo %%i & ping -n 2 127.1>nul)

pause

更直觀的：

復(fù)制代碼代碼如下:

FOR /F "delims=" %i IN (file.txt) DO echo %i

當(dāng)然如果你想做更多其他的事 do 后面是你發(fā)揮的地方

VBS的兩個版本

第一種方式，逐行讀取，依次顯示：

復(fù)制代碼代碼如下:

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

第二種方式，全部讀取，依次顯示：

復(fù)制代碼代碼如下:

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

上一篇：vbs實現(xiàn)的保存剪貼板中的文本并編輯或保存

欄目：vb

下一篇：使用 Iisftp.vbs 暫停FTP站點的方法

本文標(biāo)題：VBS和bat批處理逐行讀取文件實例

本文地址：http://mengdiqiu.com.cn/a1/vb/7264.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

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

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機閱讀