LISP中在字符串中提取数字

取个长点勒名字

要想把一些不规则含数字的字符串中的数字分别提取处理要怎么办啊？

例如：

情况一："12.21ABC73.9·20A"字符串得到分开的三个数字 "12.21" "73.9" "20"
情况二："1200ABAC30·10BA"字符串得到分开的三个数字 "1200" "30" "10"


谢谢啊！

该贴已经同步到 取个长点勒名字的微博

Qwer1243

llsheng_73 发表于 2015-11-1 00:21
这个用正则好象最好搞，只是我不会正则

拿走 学习一下

电赛加油

  多谢大神分享，学习一下！

llsheng_73

这个用正则好象最好搞，只是我不会正则

1. (defun tt(a / b c d e)
   
2.   (setq b(vl-string->list a))
   
3.   (while b
   
4.     (setq a(car b)b(cdr b)c(car b)d(if(or(= a 46)(< 47 a 58))(list a)))
   
5.     (while(or(and(< -1 a 46)(< -1 c 46))
   
6.       (or(= a 46)(= c 46))
   
7.       (and(< 47 a 58)(< 47 c 58))
   
8.       (and(> a 57)(> c 57))
   
9.              (and(> a 128)(> c 128))
   
10.              (and(> a 128)(< c 129)(/=(length d)(*(/(length d)2)2))))
    
11.       (setq a(car b)b(cdr b)c(car b)
    
12.      d(if(or(< 47 a 58)(and(= a 46)(not(member 46 d))))(cons a d)d)))
    
13.     (setq e(if d(cons(reverse d)e)e)))
    
14.   (mapcar'VL-LIST->STRING(reverse e))
    
15.   )

(defun tt(a / b c d e)<br />   (setq b(vl-string->list a))<br />   (while b<br />     (setq a(car b)b(cdr b)c(car b)d(if(or(= a 46)(< 47 a 58))(list a)))<br />     (while(or(and(< -1 a 46)(< -1 c 46))<br />       (or(= a 46)(= c 46))<br />       (and(< 47 a 58)(< 47 c 58))<br />       (and(> a 57)(> c 57))<br />              (and(> a 128)(> c 128))<br />              (and(> a 128)(< c 129)(/=(length d)(*(/(length d)2)2))))<br />       (setq a(car b)b(cdr b)c(car b)<br />      d(if(or(< 47 a 58)(and(= a 46)(not(member 46 d))))(cons a d)d)))<br />     (setq e(if d(cons(reverse d)e)e)))<br />   (mapcar'VL-LIST->STRING(reverse e))<br />   )

_$ (tt"12.21ABC73.9·2.....0A")
("12.21" "73.9" "2.0")
_$ (tt"12.21ABC73.9·20A")
("12.21" "73.9" "20")

取个长点勒名字

llsheng_73 发表于 2015-11-1 00:21
这个用正则好象最好搞，只是我不会正则

厉害啊！要是 7888和5555能分开成独立的字符串就更厉害了

llsheng_73

取个长点勒名字 发表于 2015-11-1 02:18
厉害啊！要是 7888和5555能分开成独立的字符串就更厉害了

已更正，还是用正则最方便，可惜我不会用那个

取个长点勒名字

llsheng_73 发表于 2015-11-1 09:57
已更正，还是用正则最方便，可惜我不会用那个

谢谢啊。看起来有点复杂，得慢慢理解～

winerfjy

取个长点勒名字 发表于 2015-11-1 11:41
谢谢啊。看起来有点复杂，得慢慢理解～

这个正需要呢

ivde

_$ (RegExpS "[0-9]+[.0-9]+|[0-9]+" "13212.00adfsa1321" "i")
("13212.00" "1321")

springwillow

2. 
   
3. ;;--------------------------------------------主函数----------------------------------------------------;;
   
4. (defun xxexp (pat str key / end)
   
5.   (princ "\n ★"一刀屠文"(xxexp)(xxexpr) = 对字符串进行正则表达式测试及替换-by 梁雄啸.2007.7")
   
6.   (vl-load-com)
   
7.   (if (not *xxvbsexp)
   
8.     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))
   
9.   )
   
10.   (vlax-put *xxvbsexp 'Pattern pat)
    
11.   (if (not key)(setq key ""))  
    
12.   (setq key (strcase key))
    
13.   (setq keys '(("I"  "IgnoreCase")("G"  "Global")("M"  "Multiline")))
    
14.   (mapcar '(lambda(x)
    
15.        (if (wcmatch key (strcat "*" (car x) "*"))
    
16.          (vlax-put *xxvbsexp (read(cadr x)) 0)
    
17.          (vlax-put *xxvbsexp (read(cadr x)) -1)
    
18.          ))
    
19.     keys)
    
20.   (setq matches (vlax-invoke *xxvbsexp 'Execute str))
    
21.   (vlax-for x matches (setq end (cons (vla-get-value x) end)))
    
22.   (reverse end)
    
23. )
    
24. ;;--------------------------------------------end----------------------------------------------------;;
    
25. (setq str "a-.3A0.0+9.5d-1.3 1.2e-58d4d-15.1d5.6asf-1.2"
    
26.       pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")
    
27. (xxexp  pat str "")
    

<br /> ;;--------------------------------------------主函数----------------------------------------------------;;<br /> (defun xxexp (pat str key / end)<br />   (princ "\n ★"一刀屠文"(xxexp)(xxexpr) = 对字符串进行正则表达式测试及替换-by 梁雄啸.2007.7")<br />   (vl-load-com)<br />   (if (not *xxvbsexp)<br />     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))<br />   )<br />   (vlax-put *xxvbsexp 'Pattern pat)<br />   (if (not key)(setq key ""))  <br />   (setq key (strcase key))<br />   (setq keys '(("I"  "IgnoreCase")("G"  "Global")("M"  "Multiline")))<br />   (mapcar '(lambda(x)<br />        (if (wcmatch key (strcat "*" (car x) "*"))<br />          (vlax-put *xxvbsexp (read(cadr x)) 0)<br />          (vlax-put *xxvbsexp (read(cadr x)) -1)<br />          ))<br />     keys)<br />   (setq matches (vlax-invoke *xxvbsexp 'Execute str))<br />   (vlax-for x matches (setq end (cons (vla-get-value x) end)))<br />   (reverse end)<br /> )<br /> ;;--------------------------------------------end----------------------------------------------------;;<br /> (setq str "a-.3A0.0+9.5d-1.3 1.2e-58d4d-15.1d5.6asf-1.2"<br />       pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")<br /> (xxexp  pat str "")<br />

菜卷鱼

llsheng_73 发表于 2015-11-1 00:21
这个用正则好象最好搞，只是我不会正则

去学习一下啊，等你载誉归来

正则表达式30分钟入门-2013（转）
http://bbs.mjtd.com/forum.php?mo ... &fromuid=399892

llsheng_73

菜卷鱼 发表于 2015-11-2 15:12
去学习一下啊，等你载誉归来

正则表达式30分钟入门-2013（转）

那个都不知道看了好多个30分钟了，大概能理解，但不知道怎么在lisp里边写
当然，哪次都没能看够30分钟