VB2008 文本文件读取问题

我有文本文件

1,2,3,4,5,6,7,8,9,0

2,3,4,5,6,7,8,9,0,1

N行，无序排列，逗号分割

我想在读取文件将每一行以逗号分隔，赋予数组，A()，B()，C()，D()，E()，F()……

第一行赋予下标0的数组~A(0)，B(0)，C(0)，D(0)，E(0)，F(0)……

第二号赋予下标1的数组~A(1)，B(1)，C(1)，D(1)，E(1)，F(1)……

以此类推~

该怎样实现？

Imports System.IO

Module Module1
Sub Main()
Const k = 1 ' 一共有k+1行
Const m = 3 ' 每行有m+1个数
Dim A(k), B(k), C(k), D(k) As Integer ' 分别存储每行的第x(x=A,B,C...)纵列
Dim Z()() As Integer = New Integer()() {A, B, C, D} ' 用数组的数组装起来，方便循环操作
Dim r As New StreamReader("D:\ccc.txt")
Dim n As Integer = 0
While Not r.EndOfStream
Dim s = r.ReadLine().Split(New Char() {","})
For j As Integer = 0 To m
Z(j)(n) = Integer.Parse(s(j))
Next
n = n + 1
End While
r.Close()
For i As Integer = 0 To n - 1
For j As Integer = 0 To m
Console.Write(Z(j)(i) & " ")
Next
Console.WriteLine()
Next
End Sub
End Module

一种排列顺序 要知道我初三了好紧张 VB没学完 给你个例子 http://zhidao.baidu.com/question/103003408.html

你每行的个数是一样的?

你可以把文本的全部数据一次性读取进来;放在一个字符串数组或者集合里;

计算总的行数 count ;声明 count 个数组; 每个数组个数即为一行的个数;

然后 开始读取第一行数据;

给这 count 个数组 赋值赋值对应下标的成员;

循环读取 赋值 就行了;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息