|

楼主 |
发表于 2013-6-25 13:05:59
|
显示全部楼层
来自: 中国辽宁沈阳
本帖最后由 qiminger 于 2013-6-28 13:28 编辑 4 ` m1 \- w6 D1 X
9 B* b+ X" A* e _ F
0 Y& n9 @$ }+ ~) k- B十分感谢梁老师提供代码学习~~0 _) f( E+ l* Y7 D, U1 e
- K4 u- {) W4 m) p提示进来学习的坛友!
. I* b4 O' ]/ b( B) M通过在自定义属性里嵌入宏代码,问题已解决。
; g0 [2 |: H8 [! _下面代码在2011版本中均已测试成功。
/ z% J* }6 z v, @$ p! U7 L* M0 h' s" x* d% v
15楼代码,可以取左边字符
0 e$ q+ o3 o& d: L5 z# q: T! d19楼代码,可以取最后一个下划线后面的字符。
3 l% b' q2 C+ w" M# J! C% V: A* _- Y5 x4 e& c
下面这段代码,可以取第一个下划线前面的字符。1 }7 L0 s1 s( Q* z' F' N' ?# |
14 e% M' }7 v( t* ?+ j* e3 k6 T
dim yfd; }1 M. `+ \* W6 F, s% s" r
yfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1)) |
|