提取文件名的内容

willj

帖子关闭，无解决方案

qazxswk

试试(vl-filename-base (getvar "dwgname" ) )

happyxt

$(substr,$(getvar,dwgname),15,$(-,$(strlen,$(getvar,dwgname)),19))或许可以

willj

happyxt 发表于 2022-12-13 12:57
$(substr,$(getvar,dwgname),15,$(-,$(strlen,$(getvar,dwgname)),19))或许可以

这个可以提取括号内的内容，但是我只想要那个数字，不要那个单位该怎样修改？

willj

happyxt 发表于 2022-12-13 12:57
$(substr,$(getvar,dwgname),15,$(-,$(strlen,$(getvar,dwgname)),19))或许可以

对了，忘记说前面左边的字符不固定的，只有右边的 ).dwg这几个是固定

fl202

(setq txt1 "0.A4256AD工程部件(42件).dwg")
(setq txt1 "0.A4256AD工程部件(71452件).dwg")
(setq n1 (vl-string-search "(" txt1) n2 (vl-string-search ")" txt1)  )
(setq txt2 (substr txt1 (+ 2 n1) (- n2 n1 3)))


命令: (setq txt1 "0.A4256AD工程部件(42件).dwg")
"0.A4256AD工程部件(42件).dwg"
命令: (setq n1 (vl-string-search "(" txt1) n2 (vl-string-search ")" txt1)  )
22
命令: (setq txt2 (substr txt1 (+ 2 n1) (- n2 n1 3)))
"42"

命令: (setq txt1 "0.A4256AD工程部件(71452件).dwg")
"0.A4256AD工程部件(71452件).dwg"
命令: (setq n1 (vl-string-search "(" txt1) n2 (vl-string-search ")" txt1)  )
25
命令: (setq txt2 (substr txt1 (+ 2 n1) (- n2 n1 3)))
"71452"

happyxt

willj 发表于 2022-12-13 13:07
对了，忘记说前面左边的字符不固定的，只有右边的 ).dwg这几个是固定

如果左边长度固定，可以这么改：$(substr,$(getvar,dwgname),15,$(-,$(strlen,$(getvar,dwgname)),20))
表达式中，“15”指的是你想要的字符在整个字符串的起始位置，“20”是指起始位置与后面不想要的字符之和。
如果左边长度不固定，暂时找不到好办法，diesel的函数太少了，要在一个表达式完成循环搜索功能比较难。

willj

happyxt 发表于 2022-12-13 15:32
如果左边长度固定，可以这么改：$(substr,$(getvar,dwgname),15,$(-,$(strlen,$(getvar,dwgname)),20))
...

好的，多谢抽空解答

happyxt

如果将文件名中的“（”和“）"换成”，“，就非常方便操作了。如果有提取需求，建议以后文件命名时就规范好。

惜惜2

qazxswk 发表于 2023-3-17 12:48
试试(vl-filename-base (getvar "dwgname" ) )

这个只能以命令的方式实现吗？  不能像excel中在文本矿输入=号就可以直接引用？