|
發表於 2018/7/15 17:10:53
|
顯示全部樓層
属性名T,对应的表达式改为:
Part.Extension.CustompropertyManager("默认").Set("图号", "LY" & Left(Part.GetTitle, InStr(Part.GetTitle, " ") - 1))
'取文件名左起第一个空格左边的所有字符,并加上前缀"LY"
或:
Part.Extension.CustompropertyManager("默认").Set("图号", "LY" & Left(Part.GetTitle, InStrRev(Part.GetTitle, " ") - 1))
'取文件名右起第一个空格左边的所有字符,并加上前缀"LY"
或更简洁点:(推荐)
Part.Extension.CustompropertyManager("默认").Set("图号", "LY" & Split(Part.GetTitle, " ")(0))
'取文件名左起第一个空格左边的所有字符,并加上前缀"LY" |
|