字符串中提取某段数字

womrli

例如：字符串2%%13218分别输出2和18

自贡黄明儒

天宇飞翔12 发表于 2021-9-21 14:43
能不能写个读取圆管得到面积的，比如%%c76X4，读取外径76（有可能是三位数）和壁厚4（有可能是两位数）， ...

如果是“钢管”，其密度是7.85，可以根据“钢管”两个来判断。如果只是“圆管”，不知密度，就不好算重量了。

vitalgg

1. (defun split-steel-dim (str)
   
2.   (string:to-lst str "%%132"))
   
3. 
   
4. (defun C:ssd ( / str-tbl)
   
5.   (while (setq str-tbl
   
6.                (split-steel-dim (cdr (assoc 1 (entget (car (entsel )))))))
   
7.     (entity:make-text
   
8.      (format nil "根数:~a  直径: ~a " (car str-tbl) (cadr str-tbl))
   
9.      (getpoint) 350 0 0.8 0 13)))
   

(defun split-steel-dim (str)<br />   (string:to-lst str "%%132"))<br /> <br /> (defun C:ssd ( / str-tbl)<br />   (while (setq str-tbl<br />                (split-steel-dim (cdr (assoc 1 (entget (car (entsel )))))))<br />     (entity:make-text<br />      (format nil "根数:~a  直径: ~a " (car str-tbl) (cadr str-tbl))<br />      (getpoint) 350 0 0.8 0 13)))<br />

springwillow

先抛一块砖

2. (defun c:ttt()
   
3. ;板筋分割
   
4. (setq aa "B-X:%%1328@150;Y:%%13210@150")
   
5. (setq bb (mapcar '(lambda (x) (setq ll (xxexp "\\d+[^@]\\d+" x nil)) (list (substr (car ll) 4)(cadr ll))) (xxexp "%%\\d+@\\d+" aa nil)))
   
6. 
   
7. ;梁筋分割
   
8. (setq aa "2%%13218tttt2%%13220")
   
9. (setq bb (mapcar '(lambda(x) (setq ll (xxexp "\\d+" x nil)) (list (car ll) (substr (cadr ll) 4))) (xxexp "\\d+%%\\d+" aa nil)))
   
10.   )

(defun c:ttt()<br /> ;板筋分割<br /> (setq aa "B-X:%%1328@150;Y:%%13210@150")<br /> (setq bb (mapcar '(lambda (x) (setq ll (xxexp "\\d+[^@]\\d+" x nil)) (list (substr (car ll) 4)(cadr ll))) (xxexp "%%\\d+@\\d+" aa nil)))<br /> <br /> ;梁筋分割<br /> (setq aa "2%%13218tttt2%%13220")<br /> (setq bb (mapcar '(lambda(x) (setq ll (xxexp "\\d+" x nil)) (list (car ll) (substr (cadr ll) 4))) (xxexp "\\d+%%\\d+" aa nil)))<br />   )

mikewolf2k

%%132是你自定义的字体的字符，这串没有通用型，需要根据你的字体先处理掉才能获得真正的数值2和18.

自贡黄明儒

也许正则可以一步求解，不过我没有找到方法。
下面2步求解
(setq str (vl-string-subst " " "%%132"  "2%%13218"))
(xd::string:regexps "[^\\s]+" str "")
===============>>>>("2" "18")

xyp1964

1. ;; (abc"2%%13218")
   
2. (defun abc (str / n)
   
3.   (if (setq n (vl-string-search "%%13" str))
   
4.     (list (substr str 1 n) (substr str (+ n 6)))
   
5.   )
   
6. )

;; (abc"2%%13218")<br /> (defun abc (str / n)<br />   (if (setq n (vl-string-search "%%13" str))<br />     (list (substr str 1 n) (substr str (+ n 6)))<br />   )<br /> )

lijiao

正则表达式:
\d\b|[0-9]{2}\b
提前第一位数字和最后两位数字

海盗曹

留下脚印，以备学习

天宇飞翔12

能不能写个读取圆管得到面积的，比如%%c76X4，读取外径76（有可能是三位数）和壁厚4（有可能是两位数），计算圆管面积

tdl555

留下脚印，以备学习