Question

求高手帮忙啊：vb 中如何从txt文件中将数据读取出来并赋值给二维数组？

已知有6行12列的数存在e:\aa.txt中，怎样操作能将这些数赋值给p(i,j) 其中i=0 to 11，j=0 to 5?

Answer 1

假设点击命令按钮Command1就将e:\aa.txt读入p(i,j)中，Command1的代码如下（你照复制就是）：
Private Sub Command1_Click()
Dim StrLine As String, a() As String, p(11, 5) As String, i As Long, j As Long
Open "e:\aa.txt" For Input As #1
For j = 0 To 5
Do Until EOF(1)
Line Input #1, StrLine
If StrLine <> "" Then
a() = Split(StrLine, " ")
For i = 0 To 11
p(i, j) = a(j)
Next
End If
Loop
Next
Close #1
End Sub

追问

那我想用p(i,j)进行下一步的计算 比如按Command2 就输出了下一步的结果 怎么调用p（i,j）啊？

追答

我在上面command1中声明的p(i,j)是文本型string，注意调用时要转换成数字型，还应该将它声明成全局型才可以在其他过程中调用哦。
上面已经完成将文件数据读入p(i,j)了，至于调用其实是看你自己的计算了，可采用循环批量调用、当然也可以单个单个调用。
P（0,0)对应第1行第1个数
P（1,0)对应第1行第2个数
P（2,0)对应第1行第3个数
.。。。。。
P（9,5)对应第6行第10个数
P（10,5)对应第6行第11个数
P（11,5)对应第6行第12个数

这个数组p(i,j) i=0to11 j=0to5是你自己要求这样声明的，我建议你改成下面的：
p(i,j) i=1to6 j=1to12，这样直观，你自己改吧。

哦，对了，上面的代码有误，改成下面的：
Private Sub Command1_Click()
Dim StrLine As String, a() As String, p(11, 5) As String, i As Long, j As Long
Open "e:\aa.txt" For Input As #1
j = -1
Do Until EOF(1)
j=j+1
Line Input #1, StrLine
If StrLine "" Then
a() = Split(StrLine, " ")
For i = 0 To 11
p(i, j) = a(j)
Next
End If
Loop
Close #1
End Sub

追问

哦 那我想把所有的p（i,j）输出到text1中，在图示那句下面加一句text1.text=p(i,j)可以么？

追答

不行，你只加text1.text=p(i,j)一句，最后的结果是text1中永远只会显示最后一个数据 即p(11,5)
如果用text1.text=text1.text & p(i,j) & "," 这句，就会把所有的结果6*12=72个数用逗号分隔在text1中使用一行显示出来啦（但text1中一行内显示那么多数是没有意思的吧）。
**********************************************************
如果接着上面command1代码（在end sub之前）写并在窗体form1上显示6行12列的代码如下：
for j=0 to 5
for i=0 to 11
print p(i,j);
next
print
next