Question

VBS 求助高手 如何将文本文档中的数据读入作为变量

例如：E盘下1.txt：
123
456
789

将123赋值给VBS中变量a，456给变量b，789给变量c
求教高手写出代码 谢谢

Answer 1

Dim arr()
t=0
Set fso=CreateObject("Scripting.FileSystemObject")
Set ft=fso.OpenTextFile("E:\1.txt")
Do While Not ft.AtEndOfLine
ReDim Preserve arr(t)
arr(t)=ft.ReadLine
t=t+1
Loop
a = arr(0)
b = arr(1)
c= arr(2)