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

qazybc987 · 发表于 2019-7-31 19:13:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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 · 发表于 2019-8-1 09:07:08

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

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

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 · 发表于 2019-8-1 09:08:41

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

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

		自动登录	找回密码
密码			立即注册

[已回复] 怎么把这种格式的坐标放到二维数组里面

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分