willj 发表于 2022-12-13 11:52:36

提取文件名的内容

本帖最后由 willj 于 2022-12-23 14:59 编辑

帖子关闭，无解决方案

happyxt 发表于 2022-12-13 12:57:05

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

willj 发表于 2022-12-13 13:00:05

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

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

willj 发表于 2022-12-13 13:07:08

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

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

fl202 发表于 2022-12-13 13:28:08

(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 发表于 2022-12-13 15:32:34

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

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

willj 发表于 2022-12-13 17:15:37

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

好的，多谢抽空解答

happyxt 发表于 2022-12-13 17:55:41

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

qazxswk 发表于 2023-3-17 12:48:04

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

惜惜2 发表于 2024-9-7 11:52:59

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

这个只能以命令的方式实现吗？不能像excel中在文本矿输入=号就可以直接引用？
页: [1]
查看完整版本: 提取文件名的内容