這篇文章主要介紹“如何用VBS和bat批處理逐行讀取文件”,在日常操作中,相信很多人在如何用VBS和bat批處理逐行讀取文件問題上存在疑惑,小編查閱了各式資料,整理出簡單好用的操作方法,希望對大家解答”如何用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 (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
到此,關于“如何用VBS和bat批處理逐行讀取文件”的學習就結束了,希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習,快去試試吧!若想繼續(xù)學習更多相關知識,請繼續(xù)關注創(chuàng)新互聯(lián)網(wǎng)站,小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>
當前標題:如何用VBS和bat批處理逐行讀取文件-創(chuàng)新互聯(lián)
本文路徑:http://aaarwkj.com/article8/johip.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、小程序開發(fā)、域名注冊、面包屑導航、網(wǎng)頁設計公司、做網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容