[编程申请]：分解字符串

wcf

将7－17－27，分解为7，－，17，－，27，而不是单个字符
G0.6－0.6－0，分解为G,0.60,－,0.60，－，0
将325;46;21(为一字符串)，分解为字符串325，;  ，46，; ， 21
图中的数字有各个角度的，所编的程序能批量处理在屏幕上原位置
替换原格式的文字。适用于R14以上版本。

lsjjm

请参考:
http://www.xdcad.net/forum/showt ... amp;threadid=127470

wcf

我看了一下，有一定的难度，能否写出一个完整的程序来，请高手试试。

lsjjm

编程主要是为了操作自动化和提高效率.
一般来说, 那些重复性工作, 且有一定规律可循, 便通过编程来解决. 是有条件的.
例如第二例:7-17-27, 可以把"-"当作分隔符, 很容易. 但第一例G0.6-0.6是否有规律? 其中"G"是否一定是字母? 一个还是多个? 你这些不说清楚, 别人怎么编?

wcf

文字格式中第一类前面只有一个字母，图上已经很清楚了。
如果解决不了第一类格式，编程能把第二类格式分解开也行。

梦断江南

我看规律是数字分离
也不是不能编的：）

lsjjm

最初由 wcf 发布
[B]文字格式中第一类前面只有一个字母，图上已经很清楚了。
如果解决不了第一类格式，编程能把第二类格式分解开也行。 [/B]

第二类可以使用acet-str-to-list函数:
(acet-str-to-list " " (acet-str-replace "-" " - " "7-1.7-2.7")) .

第一类:
  (setq ss "G0.6-0.6-0")
  (cons (substr ss 1 1)
            (acet-str-to-list " " (acet-str-replace "-" " - " (substr ss 2 (1- (strlen ss)))))
  )

e2002

这个应该是PKPM_SATWE或TAT的配筋简图,格式是固定的,所以很容易实现string->list的解析

lsjjm

"配筋简图"?

efan2000

2. 
   
3.   [FONT=courier new]
   
4. Function SplitNumber(Expression As String) As Variant
   
5.     Dim s As String
   
6.     s = Left(Expression, 1)
   
7.     Dim IsChar As Boolean
   
8.     If InStr("0123456789.", s) = 0 Then
   
9.         IsChar = True
   
10.     End If
    
11.     Dim n As Integer
    
12.     Dim a() As String
    
13.     n = 0
    
14.     ReDim Preserve a(n)
    
15.     a(n) = s
    
16.     Dim i As Integer
    
17.     For i = 2 To Len(Expression)
    
18.         s = Mid(Expression, i, 1)
    
19.         If InStr("0123456789.", s) Then
    
20.             If IsChar = True Then
    
21.                 n = n + 1
    
22.                 ReDim Preserve a(n)
    
23.                 a(n) = s
    
24.             Else
    
25.                 a(n) = a(n) + s
    
26.             End If
    
27.             IsChar = False
    
28.         Else
    
29.             If IsChar = True Then
    
30.                 a(n) = a(n) + s
    
31.             Else
    
32.                 n = n + 1
    
33.                 ReDim Preserve a(n)
    
34.                 a(n) = s
    
35.             End If
    
36.             IsChar = True
    
37.         End If
    
38.     Next
    
39.     SplitNumber = a
    
40. End Function
    
41. 
    
42. Sub test()
    
43.     Dim v As Variant
    
44.     v = SplitNumber("325;46;21")
    
45.     Dim i As Integer
    
46.     For i = 0 To UBound(v)
    
47.         Debug.Print v(i)
    
48.     Next
    
49. End Sub
    
50. 
    
51. 7－17－27拆分为：
    
52. 7
    
53. －
    
54. 17
    
55. －
    
56. 27
    
57. 
    
58. G0.6－0.6－0拆分为：
    
59. G
    
60. 0.6
    
61. －
    
62. 0.6
    
63. －
    
64. 0
    
65. 
    
66. 325;46;21拆分为：
    
67. 325
    
68. ;
    
69. 46
    
70. ;
    
71. 21
    
72.   [/FONT]
    

<br />   [FONT=courier new]<br /> Function SplitNumber(Expression As String) As Variant<br />     Dim s As String<br />     s = Left(Expression, 1)<br />     Dim IsChar As Boolean<br />     If InStr("0123456789.", s) = 0 Then<br />         IsChar = True<br />     End If<br />     Dim n As Integer<br />     Dim a() As String<br />     n = 0<br />     ReDim Preserve a(n)<br />     a(n) = s<br />     Dim i As Integer<br />     For i = 2 To Len(Expression)<br />         s = Mid(Expression, i, 1)<br />         If InStr("0123456789.", s) Then<br />             If IsChar = True Then<br />                 n = n + 1<br />                 ReDim Preserve a(n)<br />                 a(n) = s<br />             Else<br />                 a(n) = a(n) + s<br />             End If<br />             IsChar = False<br />         Else<br />             If IsChar = True Then<br />                 a(n) = a(n) + s<br />             Else<br />                 n = n + 1<br />                 ReDim Preserve a(n)<br />                 a(n) = s<br />             End If<br />             IsChar = True<br />         End If<br />     Next<br />     SplitNumber = a<br /> End Function<br /> <br /> Sub test()<br />     Dim v As Variant<br />     v = SplitNumber("325;46;21")<br />     Dim i As Integer<br />     For i = 0 To UBound(v)<br />         Debug.Print v(i)<br />     Next<br /> End Sub<br /> <br /> 7－17－27拆分为：<br /> 7<br /> －<br /> 17<br /> －<br /> 27 <br /> <br /> G0.6－0.6－0拆分为：<br /> G<br /> 0.6<br /> －<br /> 0.6<br /> －<br /> 0 <br /> <br /> 325;46;21拆分为：<br /> 325<br /> ;<br /> 46<br /> ;<br /> 21<br />   [/FONT]<br />

自由的鱼

明经的MEFLYING不是给你搞定了吗？

iwater

我真想立刻开始学习二次开发，可是从何开始？

自由的鱼

下载电子教程来学习，然后多在论坛看看帖子，多练习，自然水平就可以提高了！