如何用VBS和bat批处理逐行读取文件-创新互联

这篇文章主要介绍“如何用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 后面是你发挥的地方

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批处理逐行读取文件”的学习就结束了，希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习，快去试试吧！若想继续学习更多相关知识，请继续关注创新互联网站，小编会继续努力为大家带来更多实用的文章！

当前标题：如何用VBS和bat批处理逐行读取文件-创新互联
本文路径：https://www.cdcxhl.com/article8/johip.html

成都网站建设公司_创新互联，为您提供品牌网站制作、小程序开发、域名注册、面包屑导航、网页设计公司、做网站

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联