|
|
发表于 2013-6-28 12:06:04
|
显示全部楼层
来自: 中国香港
本帖最后由 Francis 于 2013-6-28 12:12 编辑
) l8 u5 d# e1 ]8 C. |阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
. c- \# E$ Y3 Z: K9 ^. f7 |闷大,请教一下。我这样格式的文件名如何提取
& t/ A7 d9 h# h' S8 D. g$ W例如:300_222_33_固定销压板,我只想提取最后一个下划线“ ... 10 H% v% F s0 I
Dim Txt
5 D4 b! ^ y% ^Txt = Part.GetPathName
2 W/ F9 i% k% m5 B, dTxt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)- u3 s, y; S9 h3 C
Txt = Left(Txt, Len(Txt) - 7)5 c% E1 u/ S' Z$ n9 C" U
Part.Extension.CustomPropertyManager("").Set "partno", Txt
* K% p5 D0 F- v, f把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。* z# R; _+ ?: o. p' S
注意!必定要使用複製粘貼的方法,才可嵌合內碼到欄位。+ C5 d( X3 Y3 _, M- u: X K3 e6 t3 E
% W9 p+ \0 G, N" {: t. k" e" X# E
|
评分
-
查看全部评分
|