欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

更直觀的：

復(fù)制代碼 代碼如下:
FOR /F "delims=" %i IN (file.txt) DO echo %i

當然如果你想做更多其他的事 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

相關(guān)文章

最新評論