字符串中提取某段数字

springwillow

能用正则表达式分解出各种钢筋面积最好啊！

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 />   )