问一个数组问题

[tihua]

根据一个字符串来动态定义一个二维数组
如：str="a1,a2,a3,a4...n;b1,b2,b3,b4...n;c1,c2,c3,c4...n"

[hamadou]

想要定义成一个什么样的二维数组啊？没明白

[tihua]

说白了就是想变成这样：
a1,a2,a3,a4...n
b1,b2,b3,b4...n
c1,c2,c3,c4...n

[点点星灯]

Dim str As String
str = "a1,a2,a3,a4;b1,b2,b3,b4;c1,c2,c3,c4;d1,d2,d3,d4"
Me.Label1.Text = str
Dim array() As String = Split(str, ";")
'array() = Split(str, ";")
Me.Label2.Text = array(0)
Me.Label3.Text = array(1)
Me.Label4.Text = array(2)
Me.Label5.Text = array(3)

[FJGoodGood]

string[] rows = str.Split(";");
string[][] matrix = new string[][rows.Length];

int i = 0;
foreach (string s in rows)
{
matrix[i++] = s.Split(",");
}

[hamadou]

哦，分两次split就可以了，
第一次Dim a() As String = Split(str, ";")
然后循环，从i=0 到 a.count -1
再一次 Split(str, ",") 添加到一个数组就可以了。

[hamadou]

Dim a As String = "a,b,c;1,2,3;m,n,q"
Dim p As String() = a.Split(";")
Dim b As New ArrayList()
Dim i As Integer
For i = 0 To p.GetUpperBound(0)
Dim s As String() = p(i).Split(",")
b.AddRange(s)
Next
For i = 0 To b.Count - 1
MessageBox.Show(b.Item(i))
Next

[尚和空四]

string[] rows = str.Split(";");

[hamadou]

晕，错了。
FJGoodGood(_FJ_强中强) 的对！

[tihua]

强，结贴

[hlq8210]

气氛很好