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

tzydsfy

+ [/ {% Y5 A5 Y1 s( `# a' R
5 m' U2 _5 C* T  `* H7 Z$ O$ t  K! X比如我的零件直接保存为"ZP56-01-02A_零件",现在有大神们的模板能够实现将"ZP56-01-02A"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,这样在生成工程图时,也能够自动填写到标题栏对应的位置.现在我想请各位高人们如何能够实现将"ZP56-01-02_A_零件"中的"ZP56-01-02"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,把"A"填写到"版本"属性中,出工程图时也是直接分别生成到相应的栏中?也就是在工程中多出了一个版本号栏需自动填写?
下面的宏程序是之前的,就是只有一个"_":
  j$ D  B* v2 m" x4 j* L3 p宏图号   1
Dim Txt
8 M: k5 l& b5 n( m/ D% pTxt = part.GetTitle()
Txt = Left(Txt,InStr(Txt,"_")-1)
Txt = Part.Extension.CustomPropertyManager("").Set("图号",Txt)
6 a' E4 V4 d" R( _
宏名称   2
/ L0 b4 l( U( O, ~Dim Txt
4 D' w$ }# h8 ~, @4 @  W1 YTxt = part.GetTitle()
1 p, X) h& @% G; YTxt = Right(Txt,Len（Txt）-InStr(Txt,"_"))
; d  {9 s2 z4 L( z- B+ c# `Txt = Left(Txt,InStr(Txt,".")-1)
7 A1 ]- s  p0 D+ kTxt = Part.Extension.CustomPropertyManager("").Set("名称",Txt)
5 k! }* L& K: t+ w
现在我就是想增加一个
宏版本 3
Dim Txt
) }2 [5 L4 ?6 UTxt=?
, j. N  R6 u" q' rTxt=?
( T+ C5 f5 T3 ]. M/ S1 L2 S  NTxt=?
. ]! W1 \2 U- k  ]/ W...

就是下面的字符串怎么来用类似上面的字符串函数来生成?谢谢
! R! X% S9 G) D2 q

gt.adan

Txt = Part.GetTitle()
. x  P/ a) u) f( d3 H; BTxt = Mid(Txt, InStr(Txt, "_") + 1, 1)
  i# X% A, N; i: X, x7 O# [
這樣就能抓到版次了
2 Z6 I8 H: E/ j9 y1 l/ f7 V

ryouss

參考

* L) H7 d2 @. E# L* J% H; F
: {- q% F, q6 M7 v4 ~, w+ }

1. Dim swApp As Object
   / h7 \  `5 l' Y* v
2. Sub main()
   ! A* I; q( U9 X" ]
3. 
   : d! \! M. A' m' X% M8 W
4. Dim retval             As Boolean
   
5. Dim name_              As String
   
6. Dim L1                 As Long
   & [5 B, l; J( q7 K* u" O
7. Dim swModel            As SldWorks.ModelDoc2
   
8. 
   
9. Set swApp = Application.SldWorks
   8 Q) m( E( G0 B# z/ u5 v4 t
10. Set swModel = swApp.GetFirstDocument
    ( J0 V' d# j- @6 e! o
11. 
    # ]+ ^% |( ]) ]& _) n1 ^6 a
12. name_ = swModel.GetTitle
    " M0 g! _$ Q0 I
13. L1 = InStrRev(name_, "_", , 0)
    
14. 
    
15. 圖號 = Mid(name_, 1, L1 - 2)
    3 u7 C& X6 S6 X0 V+ f, d1 }
16. 名稱 = Mid(name_, L1 + 1, Len(name_) - L1 - 7)
    $ n# K& V5 s- u2 a2 R
17. 版本 = Mid(name_, L1 - 1, 1)
    
18. 
    
19. Txt = swModel.DeleteCustomInfo("圖號")
    0 A3 a- w" g7 p8 q: E- C8 D8 o' a
20. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    
21. Txt = swModel.DeleteCustomInfo("名稱")
    0 ~. g4 G3 X) _6 i
22. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    
23. Txt = swModel.DeleteCustomInfo("版本")
    
24. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    / C/ c% {4 s- g/ R5 v+ m; \
25. 
    9 a) g$ U4 I, `2 O# ]
26. End Sub
    

复制代码

大鹿

建議用 Split 函數

ryouss

大鹿 发表于 2017-1-10 12:58
建議用 Split 函數

1 g- U% O1 {' P( q! a7 Ymut = Split(name_, "_")
. D2 p$ i+ n# ^& Z2 p% Q9 kcountx = UBound(mut)
If countx < 1 Then
+ e5 P) h  V2 z+ M2 VMsgBox " _ 符號不存在,不符合編碼規則. "
Exit Sub
) m% K) U) o: n+ HEnd If

如上,請教鹿大,主要是做判定 " _ " 符號是否存在嗎?

ryouss

" K2 Y- G' D3 [假如, 文件檔名可改為   "ZP56-01-02-A-固定套.SLDPRT" 之格式,可用如下Split函數之作法.
下例    Dim name_      As Strint 及 Dim L1     As Long  可以刪除.

; o; {' w  K) ]: p

1. ' 2017/1/10 2012-sp4版 test
   " t, E5 t% n2 k, a1 L; Q. i5 W3 U
2. ' 文件檔名:ZP56-01-02-A-固定套.SLDPRT (自訂屬性==> 圖號: ZP56-01-02 ,名稱:固定套 ,版本:A )
   ) @# Q4 t" N- ?1 p5 O7 l' w
3. ' 宏 ---> 自訂屬性
   - h% y# l7 ?; q/ |
4. 
   1 S/ p% D# I. {
5. Dim swApp As Object
   0 M' z9 C" p; y6 `
6. Sub main()
   
7. 
   + W0 k+ D7 Z+ \; k2 r3 R: O* a0 h+ D
8. Dim retval             As Boolean
   : W2 k* F4 d# x$ Q: W
9. Dim name_              As String
   
10. Dim L1                 As Long
    - r- ]9 {6 ]  m
11. Dim swModel            As SldWorks.ModelDoc2
    $ X" G( I% D* Z$ O  _; [
12. 
    
13. Set swApp = Application.SldWorks
    : B7 e5 k& m5 W" n
14. Set swModel = swApp.GetFirstDocument
    
15. 
    
16. Txt = Split(swModel.GetTitle, "-")
    
17. 
    
18. 圖號 = Txt(0) & "-" & Txt(1) & "-" & Txt(2)
    % R5 F+ ?3 x3 ?) \. }% E
19. 名稱 = Left(Txt(4), Len(Txt(4)) - 7)
    2 a- n$ C( X9 w# q
20. 版本 = Txt(3)
    
21. 
    
22. Txt = swModel.DeleteCustomInfo("圖號")
    4 I! R7 j' z& B4 [/ y
23. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    
24. Txt = swModel.DeleteCustomInfo("名稱")
    " ]0 Z/ c& g$ |: ^
25. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    $ ]6 \* }+ k; X% J$ r) J$ X. v9 |) O
26. Txt = swModel.DeleteCustomInfo("版本")
    # `, M7 {, r, l1 D4 t& U# L
27. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    : A% O+ F. C9 X5 s( T3 U
28. 
    
29. End Sub

复制代码

9 T0 _; v7 R. Q" ]  j. k! r( h

tzydsfy

谢谢