提取字符串中的数字，若有则返回实数

gaics · 发表于 2021-8-15 14:11:38

本帖最后由 gaics 于 2021-8-15 14:14 编辑

(defun ExtractNumbers (str / lst num i)
(setq lst (vl-string->list str))
(setq i 0)
(setq num "")
(repeat (length lst)
(if (or (= (nth i lst) 46)
(and (> (nth i lst) 47)
(< (nth i lst) 58)
)
)
(setq num (strcat num (chr(nth i lst))))
)
(setq i (1+ i))
)
(if (= (strlen num) 0)
(princ "未找到数字！")
(atof num)
)
)

适合从字符串中提取出一组数字（含小数点），如“<正交开> 80.0 <正交关>”返回值是80.0。
如果是存在多组数值的情况，提取的结果可能无意义。

kkq0305 · 发表于 2021-8-15 15:51:28

本帖最后由 kkq0305 于 2021-8-16 16:05 编辑

写一个提取字符串文字的
(defun extstr (str / nstr)
  (if (/= "" str)
(if       (wcmatch str "#*")
   (cons (rtos (atof str) 2)
         (extstr (substr str (1+ (strlen (rtos (atof str) 2)))))
   )
   (progn
      (setq nstr "")
      (while (wcmatch str "[~1-9]*")
      (setq       nstr (strcat nstr (substr str 1 1))
            str  (substr str 2)
      )
      )
      (cons nstr (extstr str))
   )
)
  )
)
如果要数字则(mapcar 'atof (vl-remove-if-not '(lambda (x) (wcmatch x "#*")) (extstr str)))(setq str "Abcd80.0Edf95.63gHff")
(mapcar 'atof (vl-remove-if-not '(lambda (x) (wcmatch x "#*")) (extstr str)))

(80.0 95.63)

gaics · 发表于 2021-8-16 14:47:19

(ExtractNumbers "Abcd80.0Edfg90.0Hff")
如果要得到所有数字就把(atof num)改成num。

jinan1913 · 发表于 2021-8-16 14:31:54

(ExtractNumbers "Abcd80.0EdfgHff")
80.0
(ExtractNumbers "Abcd80.0Edfg90.0Hff")
80.09

(extstr "Abcd80.0EdfgHff")
("dcbA" "80" "ffHgfdE0.")

kkq0305 · 发表于 2021-8-16 15:59:31

jinan1913 发表于 2021-8-16 14:31
(ExtractNumbers "Abcd80.0EdfgHff")
80.0
(ExtractNumbers "Abcd80.0Edfg90.0Hff")

错误已在原楼修改

20060510412 · 发表于 2021-8-20 09:37:19

http://bbs.mjtd.com/thread-180398-1-1.html
这个里面有提取数字的函数

vladimir · 发表于 2022-2-4 10:43:56

非常不错的程序，谢谢分享

sandyvs · 发表于 2023-4-15 11:00:26

kkq0305 发表于 2021-8-16 15:59
错误已在原楼修改

只有括号，会出错
(setq str "12.5(25.8)")
"12.5(25.8)"
(extstr str) ("12.5000" "." "8.0000")

magicheno · 发表于 2023-8-3 02:59:08

感谢大佬分享

账号		自动登录	找回密码
密码			注册

[源码] 提取字符串中的数字，若有则返回实数

点评

浏览过的版块