VBS和bat批處理逐行讀取文件實例
更新時間：2014年06月27日 11:01:25 投稿：junjie
這篇文章主要介紹了VBS和bat批處理逐行讀取文件實例,分別列出了2bat批處理版和2個VBS版,需要的朋友可以參考下
首先是批處理的，很簡單，每隔兩秒鐘讀取一行。
復(fù)制代碼 代碼如下:
@echo off
for /f "tokens=*" %%i in (lrbf.ini) do (echo %%i & ping -n 2 127.1>nul)
pause
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
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
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
相關(guān)文章
提升網(wǎng)絡(luò)效率 寬帶路由優(yōu)化與使用技巧
提升網(wǎng)絡(luò)效率 寬帶路由優(yōu)化與使用技巧...2006-11-11
批處理文件是無格式的文本文件，它包含一條或多條命令。它的擴展名為.bat或.cmd。在命令提示下鍵入批處理文件的名稱，或者雙擊該批處理文件，系統(tǒng)就會調(diào)用Cmd.exe按照該文件中各個命令出現(xiàn)的順序來逐個運行它們。使用批處理文件可以簡化日常或重復(fù)性任務(wù)。2015-09-09
這篇文章主要介紹了bat文件暫停延時的腳本代碼,本文給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價值，需要的朋友可以參考下2020-09-09
BAT批處理提取系統(tǒng)時間的實現(xiàn)代碼(bug修復(fù))
這篇文章主要介紹了BAT批處理提取系統(tǒng)時間的實現(xiàn)代碼(bug修復(fù)),需要的朋友可以參考下2021-09-09
這篇文章主要為大家詳細(xì)介紹了windows批處理中set命令的用法,例如設(shè)置變量,計算表達(dá)式等,文中的示例代碼講解詳細(xì),感興趣的小伙伴可以了解一下2023-08-08
本文主要介紹使用?at?和?schtasks?兩個命令實現(xiàn)常見任務(wù)計劃的增刪查改等操作,需要的朋友可以參考下2022-10-10
Windows命令之tasklist命令用法詳解(Windows查看進(jìn)程)
tasklist命令顯示本地計算機或遠(yuǎn)程計算機上當(dāng)前正在運行的進(jìn)程列表,命令結(jié)合篩選器一起使用,可以按照我們的需求進(jìn)行過濾,查找我們需要了解的進(jìn)程信息2025-03-03![間斷輸出文字的批處理[表白我愛的人是你字樣的文字]](http://img.jbzj.com/images/xgimg/bcimg7.png)
間斷輸出文字的批處理[表白我愛的人是你字樣的文字]，需要的朋友可以參考下。2011-02-02
cmd findstr 字符串查找增強使用說明，需要的朋友可以參考下。2011-12-12
批處理就是對某對象進(jìn)行批量的處理，通常被認(rèn)為是一種簡化的腳本語言，它應(yīng)用于DOS和Windows系統(tǒng)中，這篇文章主要介紹了windows清理系統(tǒng)垃圾bat腳本,需要的朋友可以參考下2022-05-05