vb 定义二维数组,数组行是固定的,列是动态的,二维要用split(s,"|")函数付值,这样的数组怎么定义

Question

例如,定义一个二维数组a(),行是3,列是用split(string,"|")进行赋值,我该怎么做

Answer 1

定义另一个一维数组，用
一维数组=split(string,"|")
然后再

调整二维数组的列与一维数组行数相同

For n = LBound(一维数组) To UBound(一维数组)
二维数组(指定行,n)=一维数组(n)
next

呃......没注意看是C的，我用VB的结构，不过也差不多了，学习方法而已。追问

问题是二维数组(指定行,n)这n不确定是几啊,有时候是2,有时候是10

追答

所以才要调整二维数组的列也就是n与一维数组相同大小，采用增加列数保持其它数据不变的语句，C不知道有没有，VB就很简单。

你建个工程，表单只添加一个command，复制以下代码

Dim a() As String
Private Sub Command1_Click()
Dim J1() As String
Dim i As Long
Dim n As Long
J1 = Split("ad|fg|af|g|r|e|wt", "|")
ReDim a(2, 0)
For n = LBound(J1) To UBound(J1)
ReDim Preserve a(2, n)
a(2, n) = J1(n)
Debug.Print a(2, n)
Next
End Sub