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

本文转载自查看原文 2017-08-23 14:11 1809 vbs脚本

vbs代码:

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

 msgbox a
loop

test.txt内容

免责声明！

本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系本站邮箱yoyou2525@163.com删除。