字符串变数组

perfect131

dongdonggege 发表于 2022-12-18 10:56
我改成VBA.Trim(Mid(xPath, x + 1))，但是数组就不对了。

因为空格不规范，这是字体编码吧 不推荐用arr(0)(0) ,用 arr(1,1)

准提部林

dongdonggege 发表于 2022-12-18 10:48
谢谢老师，但是我这是powerpoint做的，在ppt中，xPath = Application.Trim(Mid(xPath, x + 1))运行不了啊 ...

那只能就現況//兩個變一個
xPath = Replace(Mid(xPath, x + 1), "  ", " ")

dongdonggege

鄂龙蒙 发表于 2022-12-18 10:07

好的，谢谢老师指点。

dongdonggege

准提部林 发表于 2022-12-18 12:04
那只能就現況//兩個變一個
xPath = Replace(Mid(xPath, x + 1), "  ", " ")

1. Sub Test_A1()
   
2.     Dim xPath, x%, Tr, Ar
   
3.     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" & _
   
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.     x = InStr(xPath, "C")
   
8.     xPath = Replace(Mid(xPath, x + 1), "  ", " ")
   
9.     xPath = Trim(Replace(xPath, "Z", ""))
   
10.     Tr = Split(xPath, "C")
    
11.     ReDim Ar(UBound(Tr))
    
12.     For i = 0 To UBound(Tr)
    
13.         Ar(i) = Split(Trim(Tr(i)), " ")
    
14.     Next i
    
15. End Sub

复制代码

收到，谢谢老师。

dongdonggege

perfect131 发表于 2022-12-18 11:52
因为空格不规范，这是字体编码吧 不推荐用arr(0)(0) ,用 arr(1,1)

谢谢老师惠顾，帮助。

dongdonggege

perfect131 发表于 2022-12-18 11:52
因为空格不规范，这是字体编码吧 不推荐用arr(0)(0) ,用 arr(1,1)

这是svg,我想把PowerPoint物体运动的路径画成图形。
下图是我画出来的路径图形。

dongdonggege

perfect131 发表于 2022-12-18 11:52
因为空格不规范，这是字体编码吧 不推荐用arr(0)(0) ,用 arr(1,1)

看，左边的是路径线，右边的是画的线。

micch

划线用不着这样数组吧，直接x和y分别一个数组就行了，搞6个没必要

1. Sub cSplit()
   
2.    
   
3. '字符串一般是M开始，后面跟着坐标，然后就是C后面跟着六个数，以Z结束。我想把它变成一个二维数组。
   
4. '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" & _
   
5. '" 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" & _
   
6. '" 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" & _
   
7. '" 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"
   
8. '数组得数如下?
   
9. 'arr(0)(0) = 0.001: arr(0)(1) = 0.04533
   
10. 'arr(0)(2) = 0.011: arr(0)(3) = 0.08667
    
11. 'arr(0)(4) = 0.028: arr(0)(5) = 0.11333
    
12. '……
    
13. 'arr(7)(0) = -0.011: arr(7)(1) = 0.08667
    
14. 'arr(7)(2) = -0.001: arr(7)(3) = 0.04533
    
15. 'arr(7)(4) = 0: arr(7)(5) = 0
    
16.    
    
17.     Const Pth  As String = " 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" & _
    
18.     " 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" & _
    
19.     " 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" & _
    
20.     " 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"
    
21.    
    
22.     s = Replace(Pth, "M", "")
    
23.     s = Replace(s, "C", "")
    
24.     s = Replace(s, "Z", "")
    
25.     While InStr(s, "  ") > 0
    
26.         s = Replace(s, "  ", " ")
    
27.     Wend
    
28.    
    
29.     ar = Split(s)
    
30.     k = 1
    
31.     For Each a In ar
    
32.         If Len(a) > 0 Then
    
33.             k = k + 1
    
34.             i = k \ 2
    
35.             j = k Mod 2 + 1
    
36.             Cells(i, j).Value = a
    
37.         End If
    
38.     Next
    
39.    
    
40. End Sub
    

复制代码

dongdonggege

micch 发表于 2022-12-18 13:36
划线用不着这样数组吧，直接x和y分别一个数组就行了，搞6个没必要

谢谢，之前是PowerPoint里物体运动的路径path，后来改成根据路径计算，画成像路径一样的图形。
比如说，正常的路径是path1，不移动物体，而移动路径后的路径是path2，
path1 = " 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"

path2 = " M 0.22084 -3.33333E-6 C 0.22188 0.04537 0.23178 0.08658 0.24879 0.11343 C 0.24879 0.11459 0.27587 0.1507 0.27587 0.14931" & _
" C 0.2908 0.16945 0.29983 0.19723 0.29983 0.22662 C 0.29983 0.28542 0.26476 0.33195 0.22084 0.33334" & _
" C 0.17691 0.33195 0.14184 0.28542 0.14184 0.22662 C 0.14184 0.19723 0.15087 0.16945 0.1658 0.14931" & _
" C 0.1658 0.1507 0.19289 0.11459 0.19289 0.11343 C 0.2099 0.08658 0.2198 0.04537 0.22084 -3.33333E-6 Z"
画正常路径的图形，程序是正确的。而改成画移动路径的图形时，中心点的坐标就错误了。

dongdonggege

micch 发表于 2022-12-18 13:36
划线用不着这样数组吧，直接x和y分别一个数组就行了，搞6个没必要

左边的图形是未移动时，画的图形是正确的；
右边的图形是移动了路径，画路径图形，中心点坐标，不对了。帮忙修改，谢谢。