Question

VB 读取txt中的行列式并存放为二维数组，这个行列式四行，列数不定。求高手回答！

我现在需要用VB把存放在txt中的行列式提取出来，放在一个数组当中。行列式四行，但是列数不定，求高手解答。如下面行列式
2 2 3 4 5 6 5
3 4 5 6 7 8 5
4 5 6 7 8 9 6
4 5 42 8 9 6

Answer 1

列数不定不好办啊，无法形成矩阵，可以行数不定，但列数必须固定

追问

行数不定和列数不定有什么不一样的吗？你能给出一个行数不定列数定的代码么？
谢谢了

追答

假设列数固定为7列，行数在1000行以内，文件内容为：
2 2 3 4 5 6 5
3 4 5 6 7 8 5
4 5 6 7 8 9 6
4 5 4 2 8 9 6
下面是代码：

Private Sub Command1_Click()
Dim a(1000, 6) As Integer, b() As String, l, i, j
Open "c:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
b = Split(s, " ")
If UBound(b) = 6 Then
For i = 0 To 6
a(l, i) = CInt(b(i))
Next
l = l + 1
End If
Wend
Close #1
For i = 0 To l - 1
For j = 0 To 6
Print a(i, j); Spc(3);
Next
Print
Next
End Sub

Answer 2

你可以全部读出来，然后除以4就可以得到列数了，然后就付给数组就可以了吧

追问

能给一点参考代码么？初学VB，实在是不会啊·····

追答

==，晚上才有时间，可以帮你写点

追问

好的，非常感谢啊！初学VB，用的着急~ 最好能让其显示出来 谢谢了~

追答

不知道你还在吗，我弄好了