字符串变数组

dongdonggege

各位老师，大家好。
请求帮助，我有一个字符串，就是path，path长度不定，格式是一定的。
字符串一般是M开始，后面跟着坐标，然后就是C后面跟着六个数，以Z结束。我想把它变成一个二维数组。
Path = " M 0 0  C 0.001 0.04533  0.011 0.08667  0.028 0.11333  C 0.028 0.11467  0.055 0.15067  0.055 0.14933" & _
" C 0.07 0.16933  0.079 0.19733  0.079 0.22667  C 0.079 0.28533  0.044 0.332  0 0.33333" & _
" C -0.044 0.332  -0.079 0.28533  -0.079 0.22667  C -0.079 0.19733  -0.07 0.16933  -0.055 0.14933" & _
" C -0.055 0.15067  -0.028 0.11467  -0.028 0.11333  C -0.011 0.08667  -0.001 0.04533  0 0  Z"
数组得数如下。
arr(0)(0) = 0.001: arr(0)(1) = 0.04533
arr(0)(2) = 0.011: arr(0)(3) = 0.08667
arr(0)(4) = 0.028: arr(0)(5) = 0.11333
……
arr(7)(0) = -0.011: arr(7)(1) = 0.08667
arr(7)(2) = -0.001: arr(7)(3) = 0.04533
arr(7)(4) = 0: arr(7)(5) = 0
请各位老师帮帮忙，谢谢。

蓝桥玄霜

aa=split(path,"C")
redim arr(1 to 8,1 to 6)
for i=1 to ubound(aa)
bb=split(aa(i))
for j=0 to ubound(bb)
     arr(i,j+1)=bb(j)
next
大致是这样

zxsea_7426

楼主这数组写法倒有点像是字典套字典啊

dongdonggege

蓝桥玄霜 发表于 2022-12-18 09:48
aa=split(path,"C")
redim arr(1 to 8,1 to 6)
for i=1 to ubound(aa)

先谢谢，少个next啊，我发现aa那个数组，有点像，arr那个数组，没有搞好。

dongdonggege

zxsea_7426 发表于 2022-12-18 09:57
楼主这数组写法倒有点像是字典套字典啊

我对数组不懂，麻烦老师做个，谢谢。

鄂龙蒙

1. Sub 字符串变数组()
   
2.     Dim arr(), p, path, i, m
   
3.     path = " M 0 0  C 0.001 0.04533  0.011 0.08667  0.028 0.11333  C 0.028 0.11467  0.055 0.15067  0.055 0.14933" & _
   
4.     " C 0.07 0.16933  0.079 0.19733  0.079 0.22667  C 0.079 0.28533  0.044 0.332  0 0.33333" & _
   
5.     " C -0.044 0.332  -0.079 0.28533  -0.079 0.22667  C -0.079 0.19733  -0.07 0.16933  -0.055 0.14933" & _
   
6.     " C -0.055 0.15067  -0.028 0.11467  -0.028 0.11333  C -0.011 0.08667  -0.001 0.04533  0 0  Z"
   
7. '数组得数如下?
   
8. 'arr(0)(0) = 0.001: arr(0)(1) = 0.04533
   
9. 'arr(0)(2) = 0.011: arr(0)(3) = 0.08667
   
10. 'arr(0)(4) = 0.028: arr(0)(5) = 0.11333
    
11. '……
    
12. 'arr(7)(0) = -0.011: arr(7)(1) = 0.08667
    
13. 'arr(7)(2) = -0.001: arr(7)(3) = 0.04533
    
14. 'arr(7)(4) = 0: arr(7)(5) = 0
    
15.     path = Mid(path, 1, Len(path) - 1)
    
16.     p = Split(path, "C")
    
17.     For i = 1 To UBound(p)
    
18.         Do While InStr(p(i), "  ")
    
19.             p(i) = VBA.Replace(p(i), "  ", " ")
    
20.         Loop
    
21.         p(i) = Trim(p(i))
    
22.         m = m + 1
    
23.         ReDim Preserve arr(1 To m)
    
24.         arr(m) = Split(p(i), " ")
    
25.     Next
    
26. End Sub
    

复制代码

zxsea_7426

dongdonggege 发表于 2022-12-18 10:05
我对数组不懂，麻烦老师做个，谢谢。

Sub test()
Path = " M 0 0  C 0.001 0.04533  0.011 0.08667  0.028 0.11333  C 0.028 0.11467  0.055 0.15067  0.055 0.14933" & _
" C 0.07 0.16933  0.079 0.19733  0.079 0.22667  C 0.079 0.28533  0.044 0.332  0 0.33333" & _
" C -0.044 0.332  -0.079 0.28533  -0.079 0.22667  C -0.079 0.19733  -0.07 0.16933  -0.055 0.14933" & _
" C -0.055 0.15067  -0.028 0.11467  -0.028 0.11333  C -0.011 0.08667  -0.001 0.04533  0 0  Z"
Key = Mid(Path, InStr(Path, "C") + 1, InStr(Path, "Z") - InStr(Path, "C") - 1) '取出从C一Z之间的字符串
Key = Replace(Key, "  ", " ")       '多个空格替换成单个
aa = Split(Key, "C")
ReDim arr(1 To UBound(aa) + 1, 1 To 1)
For i = 0 To UBound(aa)
    bb = Split(Trim(aa(i)), " ")
    If UBound(bb) + 1 > UBound(arr, 2) Then
        ReDim Preserve arr(1 To UBound(aa) + 1, 1 To UBound(bb) + 1)
    End If
    For j = 0 To UBound(bb)
        arr(i + 1, j + 1) = bb(j)
    Next j
Next i
Sheet1.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr   '数组输出
Sheet1.[a1].Resize(UBound(arr), UBound(arr, 2)).Borders.LineStyle = 1 '加边框线
End Sub

准提部林

只是要取出數值. 是不需如此麻煩,
若堅持...則
1) Path 為內建用字, 不要當變數使用
2) 空白字元有1個/2個...須加工處理
3) 去頭+去尾...轉成所需字段
Sub Test_A1()
Dim xPath, x%, Tr, Ar
xPath = " M 0 0  C 0.001 0.04533  0.011 0.08667  0.028 0.11333  C 0.028 0.11467  0.055 0.15067  0.055 0.14933" & _
" C 0.07 0.16933  0.079 0.19733  0.079 0.22667  C 0.079 0.28533  0.044 0.332  0 0.33333" & _
" C -0.044 0.332  -0.079 0.28533  -0.079 0.22667  C -0.079 0.19733  -0.07 0.16933  -0.055 0.14933" & _
" C -0.055 0.15067  -0.028 0.11467  -0.028 0.11333  C -0.011 0.08667  -0.001 0.04533  0 0  Z"
x = InStr(xPath, "C")
xPath = Application.Trim(Mid(xPath, x + 1))
xPath = Trim(Replace(xPath, "Z", ""))
Tr = Split(xPath, "C")
ReDim Ar(UBound(Tr))
For i = 0 To UBound(Tr)
    Ar(i) = Split(Trim(Tr(i)), " ")
Next i
MsgBox Ar(0)(0)
End Sub

dongdonggege

准提部林 发表于 2022-12-18 10:43
只是要取出數值. 是不需如此麻煩,
若堅持...則
1) Path 為內建用字, 不要當變數使用

谢谢老师，但是我这是powerpoint做的，在ppt中，xPath = Application.Trim(Mid(xPath, x + 1))运行不了啊。

dongdonggege

准提部林 发表于 2022-12-18 10:43
只是要取出數值. 是不需如此麻煩,
若堅持...則
1) Path 為內建用字, 不要當變數使用

我改成VBA.Trim(Mid(xPath, x + 1))，但是数组就不对了。