Question

vb读一个含数据的txt文件,并放入数组中

数据之间以空格相互隔开，把数据读入到text中 并放到数组中去，如何编程??谢谢。。。

Answer 1

数据是多行还是一行要说清楚
如果是单行的话
Open "c:\1.txt" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close #1
Dim a
a = Split(Text1.Text)
虞明明
的代码也可以改为VB的
set fso = createobject("scripting.filesystemobject")
set ts = fso.opentextfile("c:\data.txt",1,true)
Text1.Text= ts.readAll
dim a
a= split(Text1.Text)

追问

我可能是学的比较少的过。。input的函数，input （lof（1），1）是什么意思？
还有 我觉的你写的程序是把text全部放到a里了，我的意思是，数据有好多，比如，34 39 52 12 54.。。等等 只是用空格隔开的好多数字，然后分别放到a(0) a(1)a(2)/......中去。。。用input函数能够实现么？

追答

1是“As #1”中的1，是个编号，表示这个文件的代号
a= split(Text1.Text)就是分别放到a(0) a(1)a(2)/......中

追问

不用split可以么。。。因为这个我没有学过，input能实现么

Answer 2

input是从文件里读入数据……，两者没关系

Answer 3

set fso = wscript.createobject("scripting.filesystemobject")
set ts = fso.opentextfile("data.txt",1,true)
dim datas
datas = ts.readAll
dim text
text = split(datas, ' ')
这样数据就放到数据text中了

追问

这个是vb的代码么。。。。。为什么我感觉不是呢。。。

追答

不好意思，看错了，这是vbs的代码，用的是基于vb的语法