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

本帖最后由 作者 于 2004-3-27 15:02:03 编辑

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

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()<BR>Dim i As Integer<BR>Dim j As Integer<BR>Dim hz As Variant<BR>Dim hsz() As Double<BR>Dim ltext() As Variant<BR>Dim textline() As String<BR>i = 1<BR>Open "l:\tt.txt" For Input As #1<BR>Do While Not EOF(1)<BR>ReDim Preserve textline(i)<BR>ReDim Preserve ltext(i, 2)<BR>Line Input #1, textline(i)<BR>hz = Split(textline(i), ",")<BR>For j = 0 To 2<BR>ltext(i, j) = hz(j)<BR>'Debug.Print ltext(i, j)<BR>Next


Loop


End Sub

zzz8662 发表于 2004-3-30 15:14:00

谢谢，我试一下。

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

<A name=7868><FONT color=#990000><B>myfreemind</B></FONT></A> ,谢谢你的程序。在AUTOCAD2000的visial basic 中运行，split那一行怎么总是出错啊 。”子程序或函数未定义“

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

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

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

太谢谢了
页: [1] 2
查看完整版本: 怎样用VBA实现把文本数据读入数组？