Question

vb text中把数据读入数组

0 80 .0079 0 -531
60 160 .0158 0 -532
120 239 .0238 0 -532
180 319 .0318 -6.425 -526
240 399 .0397 -8.804 -530
300 478 .0477 -7.139 -532
360 558 .0557 -7.139 -532
420 638 .0636 -6.663 -532
480 717 .0716 -4.997 -532
540 797 .0796 -3.926 -533
600 877 .0875 -.952 -533
660 956 .0955 -.238 -535
720 1036 .1035 0 -535
780 1116 .1114 0 -535
840 1195 .1194 0 -535
900 1275 .1274 0 -535
960 1355 .1353 4.997 -527
1020 1434 .1433 13.683 -534
1080 1514 .1513 16.062 -535
1140 1594 .1592 21.416 -535
1200 1673 .1672 27.722 -535
1260 1753 .1752 32.481 -535
1320 1833 .1831 36.646 -535
1380 1912 .1911 42.833 -535
1440 1992 .1991 48.901 -535
1500 2072 .207 54.255 -535
这是一个机器测的数据，原来是放在文本文件中的，后面还有很多行，就不全部列出来了，我现在已经把他读到一个TEXT1.text中，现在需要从TEXT中一列一列地读到五个数组中，我后面要画图用的，请大家帮忙指导下，我VB不杂会。注意，不能直接从文本文件读到数组中，一定要在TEXT中读出来！还有就是数据不只这么一点哈，后面还有很多很多，也就是说读到每个数组中数据的个数未知的。谢谢各位解答，感激不尽！
各位高手，我也是没的办法，我VB很菜的，我建立了两个窗口，在第一个窗体中用文件驱动程序实现列表框文件筐的联动，把TXT文件已经读入txtfile中，在第一个窗口中还新建了一个按钮，名称是时间电位图，我现在想点一下时间电位图 这个按钮，跳出第二个窗体，用第一列和第五列画出图像，画图那些我都会，我现在就是不知道怎样把第一个窗体中的读到txtfile中的数据怎样在第二个窗体中读到数组中画图，所以我傻傻的在第二个窗体中也添加了个TEXT控件，呵呵，有没有朋友帮忙补充下怎样直接调用第一个窗体的数组嘛，感激不尽

Answer 1

Dim a(), b(), c(), d(), e()
Dim fn As Integer
fn = FreeFile
Text1.Text = ""
k = 0
Open "c:\data.txt" For Input As fn
Do While Not EOF(fn)
Line Input #fn, x
Text1.Text = Text1.Text & x & vbCrLf
k = k + 1
Loop
Close fn
ReDim a(k), b(k), c(k), d(k), e(k)
x = Text1.Text
Do While InStr(x, Space(2))
x = Replace(x, Space(2), Space(1))
Loop
y = Split(x, Chr(13) + Chr(10))
For i = 0 To k - 1
z = Split(y(i), Space(1))
a(i) = z(0)
b(i) = z(1)
c(i) = z(2)
d(i) = z(3)
e(i) = z(4)

Next

For i = 0 To k - 1

Debug.Print a(i), b(i), c(i), d(i), e(i)

Next

Answer 2

非常气愤 你读取到text里在往数组里加不是多此一举吗？？

Dim a(999), a1(999), a2(999), a3(999), a4(999) As Double
Dim b As Integer
Private Sub Command1_Click()
On Error Resume Next
Open "f:\2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, c
b = b + 1
a(b) = Mid(c, 1, InStr(c, " "))
a1(b) = Mid(c, 11, InStr(Mid(c, 11, Len(c)), " "))
a2(b) = Mid(c, 22, InStr(Mid(c, 22, Len(c)), " "))
a3(b) = Mid(c, 31, InStr(Mid(c, 31, Len(c)), " "))
a4(b) = Mid(c, 41, InStr(Mid(c, 41, Len(c)), " "))
Print c
Loop
Close #1
MsgBox a(1) & " " & a1(1) & " " & a2(1) & " " & a3(1) & " " & a4(1)
End Sub
定义个全局变量 所有窗体都有用的啊
或者使用窗体间传值

Answer 3

dim a1!(),a2!(),a3!(),a4!(),a(5)!
Private Sub Command1_Click()
dim a,b,i&,j&
a=split(text1,vbcrlf)
i=ubound(a)
redim a1(i),a2(i),a3(i),a4(i),a5(i)
for j=0 to i
b=split(a(j)," ")
a1(j)=b(0)
a2(j)=b(1)
a3(j)=b(2)
a4(j)=b(3)
a5(j)=b(4)
next
End Sub

Answer 4

哈哈。我也同意非常气愤的那位同志的意见。没事干你读到textbox中干嘛？