VBS和bat批处理逐行读取文件实例
2018-10-12 14:11
671 查看
首先是批处理的,很简单,每隔两秒钟读取一行。
@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访问外部文本文件一些方法和脚本实例
- 统计文件信息及生成SQL语句(VBS)实例
- 使用VBS访问外部文本文件一些方法和脚本实例
- [编程实例]vbs编写右键-新建新的文件类型的程序
- 使用VBS访问外部文本文件一些方法和脚本实例代码
- Spring Batch入门实例教程实现对CVS文件的操作
- Android开发存储方式详解之本地文件读写实例
- python3写的简单本地文件上传服务器实例
- 坚持#第269天~tomcat(安装、配置文件、虚拟主机、多实例)
- VBS获取当前文件目录
- PHP unlink与rmdir删除目录及目录下所有文件实例代码
- 一起talk C栗子吧(第十一回:C语言实例--文件组织结构)
- python3 发送任意文件邮件的实例
- C#导出Word文件实例代码
- java操作html转换成pdf文件的实例代码
- Nodejs中读取中文文件编码问题、发送邮件和定时任务实例
- Nodejs中读取中文文件编码问题、发送邮件和定时任务实例
- php 多个文件上传(给图片加水印实例)
- 文件操作实例(简单,主要涉及out用…
- Jquery+asp.net实现Ajax方式文件下载实例代码