雷火电竞-中国电竞赛事及体育赛事平台

歡迎來(lái)到入門教程網(wǎng)!

vb

當(dāng)前位置:主頁(yè) > 軟件編程 > vb >

VBS和bat批處理逐行讀取文件實(shí)例

來(lái)源:本站原創(chuàng)|時(shí)間:2020-01-10|欄目:vb|點(diǎn)擊:

首先是批處理的,很簡(jiǎn)單,每隔兩秒鐘讀取一行。

復(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的兩個(gè)版本

第一種方式,逐行讀取,依次顯示:

復(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實(shí)現(xiàn)的保存剪貼板中的文本并編輯或保存

欄    目:vb

下一篇:使用 Iisftp.vbs 暫停FTP站點(diǎn)的方法

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

本文地址:http://www.jygsgssxh.com/a1/vb/7264.html

網(wǎng)頁(yè)制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語(yǔ)言數(shù)據(jù)庫(kù)服務(wù)器

如果侵犯了您的權(quán)利,請(qǐng)與我們聯(lián)系,我們將在24小時(shí)內(nèi)進(jìn)行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負(fù)任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有