社区 › VB › 怎样用VBA实现把文本数据读入数组？

zzz8662 发表于 2004-3-26 20:25:00

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

怎样用VBA实现把数据读入数组？
数据格式.txt文件
12，23，32
56，58，47，
7，8，66
。。。。。。

my_computer 发表于 2004-3-26 22:22:00

你要那种：
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 发表于 2004-3-27 10:34:00

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

myfreemind 发表于 2004-3-27 13:39:00

2楼给的就是程序

mccad 发表于 2004-3-27 13:52:00

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

myfreemind 发表于 2004-3-27 16:06:00

楼主用这个吧，如果是多列就改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 发表于 2004-3-30 15:14:00

谢谢，我试一下。

zzz8662 发表于 2004-3-30 16:43:00

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

myfreemind 发表于 2004-3-30 18:38:00

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

zzz8662 发表于 2004-3-31 10:24:00

太谢谢了

查看完整版本: 怎样用VBA实现把文本数据读入数组？