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

caoyin

QQ群讨论题目
练习：提取字符串"BM.H0.2W12TT.4KSE15.Y3E-3PD"中的数字
要求返回
(0.2 12 0.4 15.0 0.003)


该贴已经同步到 caoyin的微博

阿霸jun

safa

阿霸jun

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

langjs

以前编过一个类似的，不过照版主要求还差点
(defun strtolst (str / i ls lst st str1) ; 提取字符串中的数字转化为实数表
  (setq ls '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "."))
  (setq i 1 str1 "" lst '())
  (repeat (strlen str)
    (if (member (setq st (substr str i 1)) ls)
      (setq str1 (strcat str1 st))
      (if (/= str1 "")(setq lst (cons (atof str1) lst) str1 ""))
    )
    (setq i (1+ i))
  )
  (if (member st ls)(setq lst (cons (atof str1) lst)))
  (reverse lst)
)

qjchen

:) 参与学习一下，不过这个正则表达式写的比较烂，等下再来看看能否改进

2. 
   
3. (defun c:test (/ s regex lst)
   
4.   (setq s "BM.H0.2W12TT.4KSE15.Y3E-3PD" regex (vlax-create-object "VBScript.RegExp"))
   
5.   (vlax-put-property regex 'global  actrue)
   
6.   (vlax-put-property regex 'pattern "(\\d+)E[+-](\\d+)|(\\d+)\\.(\\d+)|(\\d+)|\\.(\\d+)")
   
7.   (vlax-for x (vlax-invoke regex 'execute s)
   
8.     (setq lst (cons (atof (vlax-get x 'value)) lst))
   
9.   )
   
10.   (vlax-release-object regex)
    
11.   (reverse lst)
    
12. )
    

<br /> (defun c:test (/ s regex lst)<br />   (setq s "BM.H0.2W12TT.4KSE15.Y3E-3PD" regex (vlax-create-object "VBScript.RegExp"))<br />   (vlax-put-property regex 'global  actrue)<br />   (vlax-put-property regex 'pattern "(\\d+)E[+-](\\d+)|(\\d+)\\.(\\d+)|(\\d+)|\\.(\\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 />

qjchen

to xshrimp
稍微改进的版本，可以判别正负数，添加了E和e都可以作为科学记数法但是有点奇怪的是多个负数连续的时候，会出问题，如-0.2-13.0之类的阿霸jun 朋友的写法可能会比我简约，但也可能会有些情况没有考虑到的

2. 
   
3. (defun c:test1 (/ s regex lst)
   
4.   (setq s "BM.H-0.2a-12.3TT-.4KSE15.Y2.3E-1PD" regex (vlax-create-object "VBScript.RegExp"))
   
5.   (vlax-put-property regex 'global  actrue)
   
6.   (vlax-put-property regex 'pattern "[-+]?(\\d+)?[.]?(\\d+)([Ee][+-](\\d+))?")
   
7.   (vlax-for x (vlax-invoke regex 'execute s)
   
8.     (setq lst (cons (atof (vlax-get x 'value)) lst))
   
9.   )
   
10.   (vlax-release-object regex)
    
11.   (reverse lst)
    
12. )
    
13. 
    

<br /> (defun c:test1 (/ s regex lst)<br />   (setq s "BM.H-0.2a-12.3TT-.4KSE15.Y2.3E-1PD" 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 /> <br />

wh89103

都是高手，顶贴

Gu_xl

游客，本帖隐藏的内容需要发帖数高于 10 才可浏览，你当前发帖数只有 0

198526

我也尝试着做了一个，请各位老师指点
(defun srtnum-lst (ab )
(defun srtnum ( a / nn num AA)
  (if (/= (SUBSTR A 1 1) ".")
  (if (numberp (READ (SUBSTR A 1 1)))
    (PROGN
      (sETQ NN 0)
      (sETQ NUM (ATOF A))
      (Setq lst (append lst (list num)))
      (WHILE (/= (ATOF (SUBSTR A N (sETQ NN (1+ NN)))) NUM))
      (setq aa (SUBSTR A (1+ Nn)))      
    )
   (Setq aa (SUBSTR A 2 ))
    )
    (if (and (/= (SUBSTR A 2 1) ".")(= (type (read(SUBSTR A 2 1))) 'int))
    (sETQ AA (srtnum (STRCAT "0" a ) ))
      (Setq aa (SUBSTR A 2 ))
      )
    )
  AA
  )
      
(setq lst nil)
(SETQ N 1)
(WHILE (> (STRLEN AB) 0)
  (sETQ AB (srtnum aB ))
  )
)
(srtnum-lst "BM.H0.2W12TT0.4KSE15.Y3E-3PD")

198526

刚程序没加返回值

(defun srtnum-lst (ab / lst)
(defun srtnum ( a / nn num AA)
  (if (/= (SUBSTR A 1 1) ".")
  (if (numberp (READ (SUBSTR A 1 1)))
    (PROGN
      (sETQ NN 0)
      (sETQ NUM (ATOF A))
      (Setq lst (append lst (list num)))
      (WHILE (/= (ATOF (SUBSTR A N (sETQ NN (1+ NN)))) NUM))
      (setq aa (SUBSTR A (1+ Nn)))      
    )
   (Setq aa (SUBSTR A 2 ))
    )
    (if (and (/= (SUBSTR A 2 1) ".")(= (type (read(SUBSTR A 2 1))) 'int))
    (sETQ AA (srtnum (STRCAT "0" a ) ))
      (Setq aa (SUBSTR A 2 ))
      )
    )
  AA
  )
      
(setq lst nil)
(SETQ N 1)
(WHILE (> (STRLEN AB) 0)
  (sETQ AB (srtnum aB ))
  )
  lst
)
(srtnum-lst "BM.H0.2W12TT0.4KSE15.Y3E-3PD")