怎么把这种格式的坐标放到二维数组里面

qazybc987

dim a
a = "1,11,111|2,22,222|3,33,333|4,44,444|5,55,555"
如何把里面的值放进二维数组？
b(0,0)=1
b(0,1)=11
b(0,2)=111
b(1,0)=2
..................
....
...
.
.
.

linyoude

用的是动态数组,二维最好是统一的下标数量

[按键精灵] 纯文本查看 复制代码

Dim text, Texarr, Tarr, darr, sarr

text = "1,11,111|2,22,222|3,33,333|4,44,444|5,55,555"
Texarr = Split(text, "|")
n1 = UBound(Texarr)

Tarr = Split(Texarr(0), ",")
n2 = UBound(Tarr)

Redim darr(n1, n2)

For i = 0 To n1
	sarr = Split(Texarr(i), ",")
	For j = 0 To n2
		darr(i, j) = sarr(j)
	Next
Next

For k = 0 To UBound(darr, 1)
	For h = 0 To UBound(darr, 2)
		TracePrint "darr(" & k & "," & h & ") = " & darr(k, h)
	Next
Next 

linyoude

[按键精灵] 纯文本查看 复制代码

Dim text, Texarr, Tarr, darr, sarr,n1,n2,i,j,k,h

text = "1,11,111|2,22,222|3,33,333|4,44,444|5,55,555"
Texarr = Split(text, "|")
n1 = UBound(Texarr)

Tarr = Split(Texarr(0), ",")
n2 = UBound(Tarr)

Redim darr(n1, n2)

For i = 0 To n1
        sarr = Split(Texarr(i), ",")
        For j = 0 To n2
                darr(i, j) = sarr(j)
        Next
Next

For k = 0 To UBound(darr, 1)
        For h = 0 To UBound(darr, 2)
                TracePrint "darr(" & k & "," & h & ") = " & darr(k, h)
        Next
Next