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

tzydsfy

比如我的零件直接保存为"ZP56-01-02A_零件",现在有大神们的模板能够实现将"ZP56-01-02A"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,这样在生成工程图时,也能够自动填写到标题栏对应的位置.现在我想请各位高人们如何能够实现将"ZP56-01-02_A_零件"中的"ZP56-01-02"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,把"A"填写到"版本"属性中,出工程图时也是直接分别生成到相应的栏中?也就是在工程中多出了一个版本号栏需自动填写?
下面的宏程序是之前的,就是只有一个"_":
( g4 Y3 ~7 ~1 d5 N宏图号   1
1 I8 ]6 R1 {$ \( P' \, G5 RDim Txt
" c; k/ }" e7 VTxt = part.GetTitle()
; ^; d$ L1 h8 Y; i5 dTxt = Left(Txt,InStr(Txt,"_")-1)
8 u  _* G  H2 XTxt = Part.Extension.CustomPropertyManager("").Set("图号",Txt)

- s* d2 d5 U; F; D7 \宏名称   2
9 o) P  K) W# J& e- e2 p4 cDim Txt
! M( {* _3 X; E- q3 }# bTxt = part.GetTitle()
Txt = Right(Txt,Len（Txt）-InStr(Txt,"_"))
' N) g6 T$ ]$ zTxt = Left(Txt,InStr(Txt,".")-1)
4 v4 N/ ]' Y3 ?, LTxt = Part.Extension.CustomPropertyManager("").Set("名称",Txt)

5 T1 A! B3 d2 c# Y2 ?  ]8 n现在我就是想增加一个
宏版本 3
Dim Txt
Txt=?
" t3 D  S- }5 ~( |Txt=?
Txt=?
...

就是下面的字符串怎么来用类似上面的字符串函数来生成?谢谢
0 c* E7 z! s  F0 E

gt.adan

6 ~; B7 j& T8 S; K
( b0 G, h1 L: p& j0 H0 }6 KTxt = Part.GetTitle()
9 {" H) t7 [- DTxt = Mid(Txt, InStr(Txt, "_") + 1, 1)

這樣就能抓到版次了

ryouss

參考
: t1 Y' J2 V0 u- Z, |- N0 {
) ]! n: ^' L# n6 `8 G0 \' X" q5 e9 w

1. Dim swApp As Object
   
2. Sub main()
   3 d  K: H9 y( c3 y: C; @1 H: ^! w
3. 
   
4. Dim retval             As Boolean
   2 M4 k6 Y5 G* ]$ @) N5 E% D
5. Dim name_              As String
   6 f" W9 B  O* o. a. N1 }+ D2 Z
6. Dim L1                 As Long
   
7. Dim swModel            As SldWorks.ModelDoc2
   
8. 
   " d% }0 _( r: _# ^+ }
9. Set swApp = Application.SldWorks
   
10. Set swModel = swApp.GetFirstDocument
    
11. 
    
12. name_ = swModel.GetTitle
    2 \- L  H4 z+ i2 o2 u
13. L1 = InStrRev(name_, "_", , 0)
    * M8 D3 ~, T! L$ ]
14. 
    ; J) h4 F0 C* u" L% F* R+ ~
15. 圖號 = Mid(name_, 1, L1 - 2)
    4 |6 O5 p- H: K- K, {0 \
16. 名稱 = Mid(name_, L1 + 1, Len(name_) - L1 - 7)
    4 X  R- U1 |% F9 i
17. 版本 = Mid(name_, L1 - 1, 1)
    . ~% k1 G, f- \9 j# S" Y# H+ D' [! H
18. 
    ( K- [0 l/ Z! U0 E& t/ C/ K
19. Txt = swModel.DeleteCustomInfo("圖號")
    # d& ^, p6 |4 M4 T* o( p: {  a
20. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    
21. Txt = swModel.DeleteCustomInfo("名稱")
    , q; ?2 _2 p  k, z: A( J; L; d
22. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    
23. Txt = swModel.DeleteCustomInfo("版本")
    ' `: k; c4 B9 c; Z: d% V
24. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    
25. 
    ( N& ]0 _2 B, F7 f6 f9 t0 }* c
26. End Sub
    

复制代码

大鹿

建議用 Split 函數

ryouss

大鹿 发表于 2017-1-10 12:58
; a7 o: [" |3 I6 f* a建議用 Split 函數

. {( k, w/ o7 c6 E/ b. ]mut = Split(name_, "_")
% D4 m6 T) K: @4 x, b9 ?2 B7 fcountx = UBound(mut)
If countx < 1 Then
! C' x) J% F$ R) `MsgBox " _ 符號不存在,不符合編碼規則. "
Exit Sub
; A! ^7 l6 {8 z! x8 ~  D) }' cEnd If

9 \$ [, o" Y0 M, o' R如上,請教鹿大,主要是做判定 " _ " 符號是否存在嗎?

ryouss

- d2 z" K* d5 G2 A. Y! w" [
6 O* g2 b- `* g+ }假如, 文件檔名可改為   "ZP56-01-02-A-固定套.SLDPRT" 之格式,可用如下Split函數之作法.
下例    Dim name_      As Strint 及 Dim L1     As Long  可以刪除.
8 i3 S6 X+ L3 \3 u
8 p) C3 f. q& d  D* L  |. m

1. ' 2017/1/10 2012-sp4版 test
   3 g# G% d' X$ X% ]9 t
2. ' 文件檔名:ZP56-01-02-A-固定套.SLDPRT (自訂屬性==> 圖號: ZP56-01-02 ,名稱:固定套 ,版本:A )
   
3. ' 宏 ---> 自訂屬性
   * O/ y1 l; `4 h5 s! J. K4 o
4. 
   
5. Dim swApp As Object
   / T8 n# Z" f( V" ^- ~% b
6. Sub main()
   . U. P9 r0 S# I  j! S2 t" e# b- L" G
7. 
   5 R  {7 f5 h' a' b3 H, r" A& L# I3 z
8. Dim retval             As Boolean
   
9. Dim name_              As String
   * A: ^# S: v0 r
10. Dim L1                 As Long
    
11. Dim swModel            As SldWorks.ModelDoc2
    
12. 
    . g8 ?5 p4 \: q5 d# {
13. Set swApp = Application.SldWorks
    0 d+ X5 L0 y- H- v4 S
14. Set swModel = swApp.GetFirstDocument
    
15. 
    7 F0 p$ }# A" U, _0 u/ y
16. Txt = Split(swModel.GetTitle, "-")
    # i/ q! ~/ S. t! W6 i# K( ]
17. 
    
18. 圖號 = Txt(0) & "-" & Txt(1) & "-" & Txt(2)
    
19. 名稱 = Left(Txt(4), Len(Txt(4)) - 7)
    1 p/ e" v' o) P! A
20. 版本 = Txt(3)
    + u0 y! X! F# |5 c! h3 Y
21. 
    3 U! `: I; r! ~* b  z
22. Txt = swModel.DeleteCustomInfo("圖號")
    
23. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    ; R0 Q5 W) i+ u) v0 f/ \* ]
24. Txt = swModel.DeleteCustomInfo("名稱")
    & Y) _& i9 T, P' S2 o
25. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    3 C$ J+ [+ m+ C! `7 b) h& l
26. Txt = swModel.DeleteCustomInfo("版本")
    
27. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    ' v! G) C# w  O
28. 
    
29. End Sub

复制代码

tzydsfy

谢谢