這篇文章主要介紹“如何用VBS和bat批處理逐行讀取文件”，在日常操作中，相信很多人在如何用VBS和bat批處理逐行讀取文件問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”如何用VBS和bat批處理逐行讀取文件”的疑惑有所幫助！接下來，請跟著小編一起來學習吧！

在西塞山等地區(qū)，都構建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產品創(chuàng)新能力，以專注、極致的服務理念，為客戶提供成都做網站、網站建設 網站設計制作按需網站建設,公司網站建設,企業(yè)網站建設,成都品牌網站建設,營銷型網站,成都外貿網站建設,西塞山網站建設費用合理。

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

代碼如下:

@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   '這里是顯示一行內容而已,可以換成別的內容
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

到此，關于“如何用VBS和bat批處理逐行讀取文件”的學習就結束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習，快去試試吧！若想繼續(xù)學習更多相關知識，請繼續(xù)關注創(chuàng)新互聯網站，小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>

當前標題：如何用VBS和bat批處理逐行讀取文件-創(chuàng)新互聯
本文路徑：http://www.rwnh.cn/article8/johip.html

成都網站建設公司_創(chuàng)新互聯，為您提供品牌網站制作、小程序開發(fā)、域名注冊、面包屑導航、網頁設計公司、做網站

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯