怎样用VBA实现把文本数据读入数组？

zzz8662

怎样用VBA实现把数据读入数组？


数据格式.txt文件


12，23，32


56，58，47，


7，8，66


。。。。。。

my_computer

你要那种：


1                         list(0) = 12;list(1)= 23;list(2)=32;list(3) = 56...........


       


2         list(0,0)=12;list(0,1)= 23;list(0,2)=34;list(1,0)= 56;list(1,1)=58.....

zzz8662

还是不明白。我要通过程序来进行的。要一次性读入。

myfreemind

2楼给的就是程序

mccad

2楼给的不是楼主要的程序。

myfreemind

楼主用这个吧，如果是多列就改j的值 Sub tt()
Dim i As Integer
Dim j As Integer
Dim hz As Variant
Dim hsz() As Double
Dim ltext() As Variant
Dim textline() As String
i = 1
Open "l:\tt.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve textline(i)
ReDim Preserve ltext(i, 2)
Line Input #1, textline(i)
hz = Split(textline(i), ",")
For j = 0 To 2
ltext(i, j) = hz(j)
'Debug.Print ltext(i, j)
Next Loop End Sub

zzz8662

谢谢，我试一下。

zzz8662

myfreemind ,谢谢你的程序。在AUTOCAD2000的visial basic 中运行，split那一行怎么总是出错啊 。”子程序或函数未定义“

myfreemind

因为split函数是VB6才有，AUTOCAD2000是VB5，在2002里运行就可以了！

zzz8662

太谢谢了