如何读取第二个空格后的字符?

tzydsfy

$ G) q. V% @; Q1 _* Z. k比如我的零件直接保存为"ZP56-01-02A_零件",现在有大神们的模板能够实现将"ZP56-01-02A"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,这样在生成工程图时,也能够自动填写到标题栏对应的位置.现在我想请各位高人们如何能够实现将"ZP56-01-02_A_零件"中的"ZP56-01-02"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,把"A"填写到"版本"属性中,出工程图时也是直接分别生成到相应的栏中?也就是在工程中多出了一个版本号栏需自动填写?
下面的宏程序是之前的,就是只有一个"_":
宏图号   1
& D) p, Q( l+ D+ B% L2 g0 i: iDim Txt
Txt = part.GetTitle()
Txt = Left(Txt,InStr(Txt,"_")-1)
Txt = Part.Extension.CustomPropertyManager("").Set("图号",Txt)

宏名称   2
; h- m6 B5 J5 I# A' vDim Txt
+ i5 I4 ]5 P6 v. Z; lTxt = part.GetTitle()
' b' Z; n  l! J6 b7 \' V( yTxt = Right(Txt,Len（Txt）-InStr(Txt,"_"))
Txt = Left(Txt,InStr(Txt,".")-1)
& Y/ |7 |8 `; {# {9 BTxt = Part.Extension.CustomPropertyManager("").Set("名称",Txt)

现在我就是想增加一个
宏版本 3
8 ^/ q1 A% V5 L, c- U. [Dim Txt
/ h! T! K% ?' n$ d; \; J, KTxt=?
! \6 J+ i  c4 r. P8 b* u2 qTxt=?
Txt=?
...
& s$ Y2 N" a$ F; p
8 A; q% M  Y$ w, [就是下面的字符串怎么来用类似上面的字符串函数来生成?谢谢

gt.adan

4 Q9 x7 W7 a: RTxt = Part.GetTitle()
Txt = Mid(Txt, InStr(Txt, "_") + 1, 1)

這樣就能抓到版次了
7 g9 j- D3 s$ w2 U4 V

ryouss

參考
+ Q6 j) Z9 V* `! A, r

* X2 Z+ q1 J) ^- E- P( Y

1. Dim swApp As Object
   
2. Sub main()
   
3. 
   * p# y8 z. u. c( s+ \
4. Dim retval             As Boolean
   
5. Dim name_              As String
   4 v$ A. ?. a, z0 O* f
6. Dim L1                 As Long
   0 o. h0 i1 w7 X3 M- n* W1 E7 H/ p
7. Dim swModel            As SldWorks.ModelDoc2
   2 i6 t) j# Y* m
8. 
   
9. Set swApp = Application.SldWorks
   
10. Set swModel = swApp.GetFirstDocument
    3 q* z, I1 q# ^! V
11. 
    6 A- N) Q4 E1 Z7 ]. Q
12. name_ = swModel.GetTitle
    6 K8 ^* q/ l; {6 b9 X
13. L1 = InStrRev(name_, "_", , 0)
    ( \" _1 Y1 W: m$ X( _& Z! q" L
14. 
    7 m* ]; t7 k9 c8 Y/ E3 a  ~5 J
15. 圖號 = Mid(name_, 1, L1 - 2)
    / b# u4 p7 O1 s& f7 q# S" ~7 z
16. 名稱 = Mid(name_, L1 + 1, Len(name_) - L1 - 7)
    
17. 版本 = Mid(name_, L1 - 1, 1)
    8 N2 I7 h, h$ o& T) n
18. 
    0 b' A% g0 h: _& w4 m
19. Txt = swModel.DeleteCustomInfo("圖號")
    
20. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    4 n: w& d6 t9 x
21. Txt = swModel.DeleteCustomInfo("名稱")
    8 J& A6 p9 {( r4 @
22. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    . }/ W1 z. z" x& U' C0 j
23. Txt = swModel.DeleteCustomInfo("版本")
    
24. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    . f* m0 n$ G/ j: P
25. 
    
26. End Sub
    

复制代码

大鹿

建議用 Split 函數

ryouss

大鹿 发表于 2017-1-10 12:58
+ V8 V  M8 z2 a9 k) C建議用 Split 函數

" D9 P$ D+ b2 Y4 I1 P- l6 Wmut = Split(name_, "_")
' x) H5 m* K. N* q6 J; U8 Kcountx = UBound(mut)
If countx < 1 Then
$ _- d$ v$ b& S" NMsgBox " _ 符號不存在,不符合編碼規則. "
Exit Sub
End If
9 s! e! J& C5 C
$ a* Y0 G& u- a7 L如上,請教鹿大,主要是做判定 " _ " 符號是否存在嗎?

ryouss

假如, 文件檔名可改為   "ZP56-01-02-A-固定套.SLDPRT" 之格式,可用如下Split函數之作法.
下例    Dim name_      As Strint 及 Dim L1     As Long  可以刪除.
3 W' u; B$ y0 h/ F- ~6 `! z
& ?. D: U+ k7 b  e8 M5 {) M4 o; c, F
2 o& g$ s, B. ~3 e, N

1. ' 2017/1/10 2012-sp4版 test
   
2. ' 文件檔名:ZP56-01-02-A-固定套.SLDPRT (自訂屬性==> 圖號: ZP56-01-02 ,名稱:固定套 ,版本:A )
   7 P4 k! y6 G0 k# y
3. ' 宏 ---> 自訂屬性
   
4. 
   
5. Dim swApp As Object
   
6. Sub main()
   $ l; A- y! U; R' s3 |6 R
7. 
   
8. Dim retval             As Boolean
   
9. Dim name_              As String
   ! S7 ^! m( x& W; q% y, Q/ P% T) S
10. Dim L1                 As Long
    ' g  V" Z/ s- |
11. Dim swModel            As SldWorks.ModelDoc2
    ( t9 p3 I1 p' U% Q8 ~1 d$ b- X* S
12. 
    
13. Set swApp = Application.SldWorks
    
14. Set swModel = swApp.GetFirstDocument
    8 Z0 G/ a, J8 V) |  t  u# [
15. 
    
16. Txt = Split(swModel.GetTitle, "-")
    " U6 Z4 u/ p2 c2 C! Q) R9 c1 w
17. 
    $ R* g8 ?) f4 A, I$ k8 c
18. 圖號 = Txt(0) & "-" & Txt(1) & "-" & Txt(2)
    8 \1 @' P& z0 F9 ?1 I, f0 H* ?
19. 名稱 = Left(Txt(4), Len(Txt(4)) - 7)
    & @9 q- j* ~( h. A) |
20. 版本 = Txt(3)
    
21. 
    
22. Txt = swModel.DeleteCustomInfo("圖號")
    + \, Y6 T) a" N  W& Z, v' }
23. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    
24. Txt = swModel.DeleteCustomInfo("名稱")
    
25. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    . C! X( x* |& i
26. Txt = swModel.DeleteCustomInfo("版本")
    
27. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    5 P- G' _/ k. h" Y  X
28. 
    4 {2 E& P2 a* F$ C
29. End Sub

复制代码

0 ^' u- b/ H) ^$ e6 _

tzydsfy

谢谢