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

tzydsfy

2 R7 G* H9 N7 m! [
1 c* p, H: y$ V) w  S! f* Z比如我的零件直接保存为"ZP56-01-02A_零件",现在有大神们的模板能够实现将"ZP56-01-02A"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,这样在生成工程图时,也能够自动填写到标题栏对应的位置.现在我想请各位高人们如何能够实现将"ZP56-01-02_A_零件"中的"ZP56-01-02"自动填写到"图号"属性中,把"零件"填写到"名称"属性中,把"A"填写到"版本"属性中,出工程图时也是直接分别生成到相应的栏中?也就是在工程中多出了一个版本号栏需自动填写?
+ O% q+ ]! h! ~" j下面的宏程序是之前的,就是只有一个"_":
6 w3 F2 t7 v, Y6 M5 ?0 b$ M宏图号   1
5 f) @- W% T1 V/ @; Y9 v7 D7 l! dDim Txt
: i# c1 x9 x7 F+ l" B0 n' X$ YTxt = part.GetTitle()
Txt = Left(Txt,InStr(Txt,"_")-1)
Txt = Part.Extension.CustomPropertyManager("").Set("图号",Txt)
( |0 u( T/ U' z3 E& q+ j/ O
宏名称   2
Dim Txt
) h* H# J/ P& H$ ]- |" RTxt = part.GetTitle()
  Y/ W8 w+ F7 Q/ {1 W* y  f2 E, TTxt = Right(Txt,Len（Txt）-InStr(Txt,"_"))
Txt = Left(Txt,InStr(Txt,".")-1)
Txt = Part.Extension.CustomPropertyManager("").Set("名称",Txt)
6 w! X, H) R  F0 O8 j
现在我就是想增加一个
  F, ^5 B/ b9 d8 p% I# Z宏版本 3
Dim Txt
Txt=?
5 J- D% D( g" M$ p3 `Txt=?
Txt=?
...

, b6 b8 s' g- s" y0 t就是下面的字符串怎么来用类似上面的字符串函数来生成?谢谢
( R% i/ T( k) z6 w0 _. D

gt.adan

5 c1 k' L" F* M/ [" e
% U. f) {2 V' }# ?* r: vTxt = Part.GetTitle()
Txt = Mid(Txt, InStr(Txt, "_") + 1, 1)
4 c4 O; m6 o, Q" H/ p6 e; V
這樣就能抓到版次了

ryouss

參考


; ?$ ?7 j. Q& p- u

1. Dim swApp As Object
   
2. Sub main()
   ) D* Y( d5 k8 K: e" F" W2 R8 j
3. 
   8 W4 j0 M0 B4 r* h- w
4. Dim retval             As Boolean
   
5. Dim name_              As String
   
6. Dim L1                 As Long
   
7. Dim swModel            As SldWorks.ModelDoc2
     n0 }. `; Y/ m
8. 
   ) H/ D5 V9 H' I* i
9. Set swApp = Application.SldWorks
   
10. Set swModel = swApp.GetFirstDocument
    
11. 
    
12. name_ = swModel.GetTitle
    
13. L1 = InStrRev(name_, "_", , 0)
    
14. 
    $ B; J- T, P6 T* F& S/ w
15. 圖號 = Mid(name_, 1, L1 - 2)
    
16. 名稱 = Mid(name_, L1 + 1, Len(name_) - L1 - 7)
    
17. 版本 = Mid(name_, L1 - 1, 1)
    
18. 
    / H9 }. z0 T/ S8 G
19. Txt = swModel.DeleteCustomInfo("圖號")
    : G3 _- N3 h9 T7 B' V+ a- k8 I0 q
20. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    
21. Txt = swModel.DeleteCustomInfo("名稱")
    / a' v1 U6 F  o0 T$ V; c1 p. |. f
22. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    3 D* h( c/ p" ]3 D3 X
23. Txt = swModel.DeleteCustomInfo("版本")
    
24. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    
25. 
    
26. End Sub
    & _0 b0 y2 V  M9 S) @4 {

复制代码

大鹿

建議用 Split 函數

ryouss

大鹿 发表于 2017-1-10 12:58
  w/ o5 G' A! U, d$ X8 R建議用 Split 函數

mut = Split(name_, "_")
6 Y$ y7 W& j6 L/ ]countx = UBound(mut)
! o- h8 U2 T! a! q  e' L! mIf countx < 1 Then
MsgBox " _ 符號不存在,不符合編碼規則. "
! P$ }5 F' X: t) eExit Sub
End If
; |0 _; B" {- u" ~6 m5 y2 U* c
如上,請教鹿大,主要是做判定 " _ " 符號是否存在嗎?

ryouss

4 ^3 L6 A0 D3 T% L# J) g
7 b$ O2 A1 T- k, G; Y假如, 文件檔名可改為   "ZP56-01-02-A-固定套.SLDPRT" 之格式,可用如下Split函數之作法.
8 N3 j) ^) w# r5 l# O% U下例    Dim name_      As Strint 及 Dim L1     As Long  可以刪除.
' x5 t# t; H2 i2 s5 T( Q% _
$ \/ m8 v; ^4 {% i( @- f
* X* c, C* j$ M) D& V

1. ' 2017/1/10 2012-sp4版 test
   
2. ' 文件檔名:ZP56-01-02-A-固定套.SLDPRT (自訂屬性==> 圖號: ZP56-01-02 ,名稱:固定套 ,版本:A )
   3 S- G: y- r  G* ?
3. ' 宏 ---> 自訂屬性
   
4. 
   9 I% F$ X, q6 i. g; [; C% ^
5. Dim swApp As Object
   ( Q* Z7 S  o% [
6. Sub main()
   
7. 
   ; U3 _8 x5 o: W# {
8. Dim retval             As Boolean
   / B& ?  N( s. C
9. Dim name_              As String
   
10. Dim L1                 As Long
      E* k, k( Q! l( s% d
11. Dim swModel            As SldWorks.ModelDoc2
    / o; d: ^( P5 A  Z+ U. w# E
12. 
    ( d1 O  [7 ?3 ]2 }& ]+ K9 [
13. Set swApp = Application.SldWorks
    6 H6 a/ [$ E# }5 Y. L5 z! i  ~
14. Set swModel = swApp.GetFirstDocument
    " a) T- F+ ?5 X% [2 U
15. 
    " h4 t. B) l  Y& ^
16. Txt = Split(swModel.GetTitle, "-")
    5 x9 d! v, m6 v# h
17. 
    
18. 圖號 = Txt(0) & "-" & Txt(1) & "-" & Txt(2)
    
19. 名稱 = Left(Txt(4), Len(Txt(4)) - 7)
    
20. 版本 = Txt(3)
    8 e' ^# Q, J+ [5 `' R5 ?0 i
21. 
    
22. Txt = swModel.DeleteCustomInfo("圖號")
    
23. Txt = swModel.AddCustomInfo3("", "圖號", swCustomInfoText, 圖號)
    
24. Txt = swModel.DeleteCustomInfo("名稱")
    6 I) n( X( W( ]2 M- W
25. Txt = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, 名稱)
    3 S# p9 Q7 s2 [- r; N
26. Txt = swModel.DeleteCustomInfo("版本")
    
27. Txt = swModel.AddCustomInfo3("", "版本", swCustomInfoText, 版本)
    
28. 
      E2 H. M* k2 t. g9 Q( B
29. End Sub

复制代码

tzydsfy

谢谢