Question

vbs如何实现一行文字每个单字的逐个读取到变量

vbs如何实现一行文字每个单字的逐个读取到变量
举例：
word=“中央人民广播电台”
现在要把每个汉字读取逐一的赋值到变量，做到
x1=中
x2=央
x3=人
x4=民
x5=广
x6=播
x7=电
x8=台
可能说的简单一点就是逐字读取文本
谢谢了，着急用呢

Answer 1

dim fso,filee,x()
redim preserve x(0) '初始化
set fso=createobject("scripting.filesystemobject")
set filee=fso.opentextfile("a.txt") '这是文件路径
Do While filee.AtEndOfStream <> True
x(ubound(x))=filee.read(1)
redim preserve x(ubound(x)+1)
loop
msgbox "共" & ubound(x) & "个文字!"
for each out in x
outt=outt & vbcrlf & out
next
msgbox outt,,"分别是" 'x(0)-x(?)