VBALISPER 发表于 2024-11-10 16:41:21

搜出来了，替换字符填上你需要的就是了。

VBALISPER 发表于 2024-11-10 16:50:46

没有注册，就注册一下

VBALISPER 发表于 2024-11-10 16:56:16

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=57445&highlight=%D5%FD%D4%F2

VBALISPER 发表于 2024-11-10 17:01:21

有事实证明，autolisp可以用正则。如果你还不能用，可能是遇到假的CAD了。

统一网名 发表于 2024-11-10 17:30:06


("【阳月南飞雁，传闻至此回】" "【我行殊未已，何日复归来】")


是不是要这样的结果？

tender138 发表于 2024-11-10 17:38:42

统一网名 发表于 2024-11-10 17:30
("【阳月南飞雁，传闻至此回】" "【我行殊未已，何日复归来】")




谢谢！我想如下结果：
("阳月南飞雁，传闻至此回" "我行殊未已，何日复归来")

统一网名 发表于 2024-11-10 18:24:20

tender138 发表于 2024-11-10 17:38
谢谢！我想如下结果：
("阳月南飞雁，传闻至此回" "我行殊未已，何日复归来")

[*];删除字符中多的字符
[*](defun scdgzf (str delim / L1 L2)
[*](setqstr   (vl-string->list str)delim (vl-string->list delim) )
[*](while str
[*]    (if(not (member (car str) delim))
[*]      (setq l1 (cons (car str) l1))
[*]      (if l1(setq l2 (cons (vl-list->string (reverse l1)) l2)l1 nil))
[*]    )
[*]    (setq str (cdr str))
[*])
[*](if l1(setq l2 (cons (vl-list->string (reverse l1)) l2)))
[*](reverse l2)
[*])
[*]
[*]这个函数是在本论坛上找的，原作者不记得了。
[*]
[*](defun c:aa(/ lst)
[*](scdgzf "阳月南飞雁，传闻至此回。【我行殊未已，何日复归来】" "\【\】\。")
[*])
结果 ：("阳月南飞雁，传闻至此回" "我行殊未已，何日复归来")

tender138 发表于 2024-11-10 20:07:49

统一网名 发表于 2024-11-10 18:24
[*];删除字符中多的字符
[*](defun scdgzf (str delim / L1 L2)
[*](setqstr   (vl-string->list ...

非常感谢你的帮忙，但【、】是不确定的特征字符串

xyp1964 发表于 2024-11-10 21:53:33

;;非源码谨慎下载


页: 1 [2]
查看完整版本: 请问提取"【"开始，"】"结束之间的字符串正则怎么写？