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刪除。