如何用VBS脚本程序读取文本文件

发布网友发布时间：2023-10-31 23:55

共2个回答

热心网友时间：2024-04-23 02:30

ReadLine 方法
从 TextStream 文件中读入一整行字符（直到下一行，但不包括下一行字符），并返回结果字符串。

object.ReadLine

object 应为 TextStream 对象的名称。

说明
下面例子说明如何使用 ReadLine 方法从 TextStream 文件中读取字符并返回字符串:

Function ReadLineTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
MyFile.WriteLine "Hello world!"
MyFile.WriteLine "The quick brown fox"
MyFile.Close
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadLineTextFile = MyFile.ReadLine ' Returns "Hello world!"
End Function

热心网友时间：2024-04-23 02:31

程序已经通过测试~ CODE:

on error resume next
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("DIZHI.TXT")'DIZHI.TXT要改成DIZHI.TXT的绝对路径

find=inputbox("请输入邮编:")
do while file.atendofstream<>true
a=file.readline
s = Instr(1,a,find)
if s<>0 then
result=replace(a,find,"")
a=msgbox(result,64,"查询结果")
end if
loop
file.close