第一个指定字符前的数字

/db_自贡黄明儒_ · 发表于 2016-4-7 16:51:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;;;;;第一个指定字符前的数字　2016.4.7
;;(parse15 "100D200DE 1050 SF-1" "DE")＝>"200"
;;(parse15 "100D200 自贡105 自贡-1" "自贡")＝>"200"
;;(parse15 "100D 自贡105 自贡-1" "自贡")＝>nil
;;(parse15 "自贡105 自贡-1" "自贡")＝>nil

游客，如果您要查看本帖隐藏内容请回复

newer · 发表于 2016-4-7 17:24:40

支持，泉涌啊

yoyoho · 发表于 2016-4-8 07:09:24

回复学习，感谢分享程序!

HLCAD · 发表于 2016-4-8 07:49:11

支持楼主！回复学习！

天若有情007 · 发表于 2016-10-17 12:27:56

支持啊，学习学习

桥云山 · 发表于 2016-10-17 18:19:39

学习大师作品，感谢中

Lispboy · 发表于 2016-10-17 19:24:13

用正则表达式可以这样

XD::STRING:RegExpS 见： http://bbs.xdcad.net/thread-669166-1-1.html

;找指定字符前的最近的数字串
(defun _findnum (txt find)
  (xd::string:regexps (strcat "[0-9]+(\\.[0-9]*)?(?=" find ")") txt "")
)

(defun c:tt ()
  (if (and
        (progn
          (prompt "\n选取文字<退出>:")
          (setq e (ssget ":E:S" '((0 . "text"))))
        )
        (setq e (ssname e 0))
        (/= "" (setq a (getstring "\n输入字符串<退出>:")))
      )
    (progn
      (if (setq txt (_findnum (cdr (assoc 1 (entget e))) a)
          )
        (progn
          (prompt "\n找到了数字:")
          (prompt (car txt))
        )
      )
    )
  )
  (princ)
)

ynhh · 发表于 2016-10-17 19:26:38

谢谢黄总啊

lj524917100 · 发表于 2016-10-18 08:59:54

啥也不说了，感谢楼主分享哇！

向嘟嘟 · 发表于 2016-10-18 11:29:04

啥也不说了，感谢楼主分享哇！

Bao_lai · 发表于 2016-10-24 00:27:00

一如既往地腻害！！！

yoyoho · 发表于 2016-10-24 08:44:33

学习 Lispboy 的方法!

lywzcf · 发表于 2017-6-3 02:04:44

学习 Lispboy 的方法!

freefor5127 · 发表于 2017-6-3 02:10:34

回复学习，感谢分享程序

yinzhun22 · 发表于 2017-8-16 17:46:37

支持楼主！回复学习！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 第一个指定字符前的数字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。