vbs读取TXT每一行并赋值到变量a

分类: IT文章 • 2022-09-02 08:50:12

vbs代码:

Dim fso,f,a
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile("D:	est.txt",1)
DO While f.AtEndOfStream <> True
 a=f.ReadLine 

 msgbox a
loop

test.txt内容

vbs读取TXT每一行并赋值到变量a

相关推荐