明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: tender138

[提问] 请问提取"【"开始,"】"结束之间的字符串正则怎么写?

[复制链接]
发表于 2024-11-10 16:41:21 | 显示全部楼层
搜出来了,替换字符填上你需要的就是了。
发表于 2024-11-10 16:50:46 | 显示全部楼层
没有注册,就注册一下
发表于 2024-11-10 16:56:16 | 显示全部楼层
发表于 2024-11-10 17:01:21 | 显示全部楼层
有事实证明,autolisp可以用正则。如果你还不能用,可能是遇到假的CAD了。
发表于 2024-11-10 17:30:06 | 显示全部楼层

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


是不是要这样的结果?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 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)
  •   (setq  str   (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 "阳月南飞雁,传闻至此回。【我行殊未已,何日复归来】" "\【\】\。")
  • )
结果 :("阳月南飞雁,传闻至此回" "我行殊未已,何日复归来")
 楼主| 发表于 2024-11-10 20:07:49 | 显示全部楼层
统一网名 发表于 2024-11-10 18:24
  • ;删除字符中多的字符
  • (defun scdgzf (str delim / L1 L2)
  •   (setq  str   (vl-string->list ...

  • 非常感谢你的帮忙,但【、】是不确定的特征字符串
    发表于 2024-11-10 21:53:33 | 显示全部楼层
    ;;非源码谨慎下载


    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?注册

    x
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
    ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

    GMT+8, 2024-11-22 20:57 , Processed in 0.172266 second(s), 19 queries , Gzip On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表