练习：提取字符串"BM.H0.2W12TT.4KSE15.Y3E-3PD"中的数字

阿霸jun

(defun test(pat str / aa)
  (setq aa (regex pat str ""))
  (setq aa (mapcar '(lambda (x) (atof x)) aa))
)
regex是正则函数，测试：
命令: (test "\\d*[.]?(\\d+E-)?(\\d+E)?\\d+[.]?" "BM.H0.2W12TT.4KSE15.Y3E3PD")
(0.2 12.0 0.4 15.0 3000.0)

命令: (test "\\d*[.]?(\\d+E-)?(\\d+E)?\\d+[.]?" "BM.H0.2W12TT.4KSE15.Y3E-3PD")
(0.2 12.0 0.4 15.0 0.003)

Gu_xl

Gu_xl 发表于 2012-7-5 10:15
;;参考Lee Mac 的代码修改而来，原帖地址：
http://lee-mac.com/parsenumbers.html

8楼代码已修正Bug

xshrimp

2. 
   
3. (defun gxl  (s / dot)
   
4.   (
   
5.    (lambda (l )
   
6.      (read
   
7.        (strcat "("
   
8.         (vl-list->string
   
9.    (apply
   
10.        'append
    
11.      (mapcar
    
12.        (function
    
13.          (lambda (a b c d)
    
14.     (if
    
15.       (or
    
16.         (< 47 b 58)
    
17.          (and (= 43 b) (< 47 c 58) )
    
18.         (and (= 45 b) (< 47 c 58) )
    
19.         (and (= 46 b)  (< 47 a 58) (< 47 c 58))
    
20.         (and (= 46 b)  (not (< 47 a 58)) (< 47 c 58))
    
21.         (and (= 46 b)  (< 47 a 58) (not (< 47 c 58)))
    
22.         (and (or (= 69 b)(= 101 b)) (< 47 a 58) (or (< 47 c 58) (and (or (= 43 c) (= 45 c)) (< 47 d 58))))
    
23.         )
    
24.        (if (and (= 46 b)  (not (< 47 a 58)) (< 47 c 58))
    
25.          (if (not dot)
    
26.     (progn (setq dot t) (list  48 b))
    
27.     (list  48 b)
    
28.     )
    
29. 
    
30.          (if (and (= 46 b)  (< 47 a 58) (not (< 47 c 58)))
    
31.     (if (not dot)
    
32.     (list  b 48 32)
    
33.      (progn (setq dot nil)  (list 32 ))
    
34.       )
    
35.     (if (and (< 47 b 58) (= 45 c))
    
36.       (progn (setq dot nil) (list b 32))
    
37.       (if (and (= 46 b)  (< 47 a 58) (< 47 c 58))
    
38.         (if (not dot)
    
39.         (progn (setq dot t) (list b))
    
40.           (progn (setq dot t) (list 32 48 b))
    
41.           )
    
42.         (list b)
    
43.         )
    
44.       )
    
45.     )
    
46.          )
    
47.        (progn (setq dot nil) '(32))
    
48.        )
    
49.     )
    
50.          )
    
51.        (cons nil l)
    
52.        l
    
53.        (append (cdr l) (list nil))
    
54.        (append (cddr l) (list nil nil))
    
55.        )
    
56.      )
    
57.    )
    
58.         ")"
    
59.         )
    
60.        )
    
61.      )
    
62.     (vl-string->list s)
    
63.     )
    
64.   )
    
65. 
    
66. 
    
67. (defun qjchen (s /  lst regex x)
    
68.   (setq regex (vlax-create-object "VBScript.RegExp"))
    
69.   (vlax-put-property regex 'global  actrue)
    
70.   (vlax-put-property regex 'pattern "[-+]?(\\d+)?[.]?(\\d+)([Ee][+-](\\d+))?")
    
71.   (vlax-for x (vlax-invoke regex 'execute s)
    
72.     (setq lst (cons (atof (vlax-get x 'value)) lst))
    
73.   )
    
74.   (vlax-release-object regex)
    
75.   (reverse lst)
    
76. )
    

<br /> (defun gxl  (s / dot)<br />   (<br />    (lambda (l )<br />      (read<br />        (strcat "("<br />         (vl-list->string<br />    (apply<br />        'append<br />      (mapcar<br />        (function<br />          (lambda (a b c d)<br />     (if<br />       (or<br />         (< 47 b 58)<br />          (and (= 43 b) (< 47 c 58) )<br />         (and (= 45 b) (< 47 c 58) )<br />         (and (= 46 b)  (< 47 a 58) (< 47 c 58))<br />         (and (= 46 b)  (not (< 47 a 58)) (< 47 c 58))<br />         (and (= 46 b)  (< 47 a 58) (not (< 47 c 58)))<br />         (and (or (= 69 b)(= 101 b)) (< 47 a 58) (or (< 47 c 58) (and (or (= 43 c) (= 45 c)) (< 47 d 58))))<br />         )<br />        (if (and (= 46 b)  (not (< 47 a 58)) (< 47 c 58))<br />          (if (not dot)<br />     (progn (setq dot t) (list  48 b))<br />     (list  48 b)<br />     )<br /> <br />          (if (and (= 46 b)  (< 47 a 58) (not (< 47 c 58)))<br />     (if (not dot)<br />     (list  b 48 32)<br />      (progn (setq dot nil)  (list 32 ))<br />       )<br />     (if (and (< 47 b 58) (= 45 c))<br />       (progn (setq dot nil) (list b 32))<br />       (if (and (= 46 b)  (< 47 a 58) (< 47 c 58))<br />         (if (not dot)<br />         (progn (setq dot t) (list b))<br />           (progn (setq dot t) (list 32 48 b))<br />           )<br />         (list b)<br />         )<br />       )<br />     )<br />          )<br />        (progn (setq dot nil) '(32))<br />        )<br />     )<br />          )<br />        (cons nil l)<br />        l<br />        (append (cdr l) (list nil))<br />        (append (cddr l) (list nil nil))<br />        )<br />      )<br />    )<br />         ")"<br />         )<br />        )<br />      )<br />     (vl-string->list s)<br />     )<br />   )<br /> <br /> <br /> (defun qjchen (s /  lst regex x)<br />   (setq regex (vlax-create-object "VBScript.RegExp"))<br />   (vlax-put-property regex 'global  actrue)<br />   (vlax-put-property regex 'pattern "[-+]?(\\d+)?[.]?(\\d+)([Ee][+-](\\d+))?")<br />   (vlax-for x (vlax-invoke regex 'execute s)<br />     (setq lst (cons (atof (vlax-get x 'value)) lst))<br />   )<br />   (vlax-release-object regex)<br />   (reverse lst)<br /> )<br />

(list "1.1.1.1" "5e-0.5A12"  "5e0.5A12" "AB0.125e5C+-.2.2D3")
正确返回值
((1.1 0.1 0.1) (5 -0.5 12) (5 0.5 12) (12500.0  0.2 0.2 3))

(mapcar 'gxl    (list "1.1.1.1" "5e-0.5A12"  "5e0.5A12" "AB0.125e5C+-.2.2D3"))
=>((1.1 0.1 0.1) (5E-0 12) (5E0 12) (12500.0 0.2 0.2 3))


(mapcar 'qjchen (list "1.1.1.1" "5e-0.5A12"  "5e0.5A12" "AB0.125e5C+-.2.2D3"))
=>((1.1 0.1 0.1) (5.0 0.5 12.0) (5.0 0.5 12.0) (0.125 5.0 -0.2 0.2 3.0))

fjutcivil

Gu_xl 发表于 2012-7-5 10:15
;;参考Lee Mac 的代码修改而来，原帖地址：
http://lee-mac.com/parsenumbers.html

G版 请问 我要接力怎么接啊 比如你的程序出来的是（0.4 5 6） 我想用读取第一个数  第二个 第三个数 用于后面的计算 怎么写啊？

434939575

学习了。谢谢。在用这个！