[求助]再问关于字符串转换多个实数问题

无痕

2. (defun str2lst (str / st nstr i)
3.   (setq nstr "" i 0)
4.   (repeat (strlen str)
5.    (if (or (wcmatch (setq st (substr str (setq i (1+ i)) 1)) "#")(= st "."))
6.        (setq nstr (strcat nstr st))
7.        (if (and (/= "" nstr)(/= " " (substr nstr (strlen nstr))))(setq nstr (strcat nstr " ")))
8.    )
9.   )
10.   (read (strcat "(" nstr")"))
11. )
12. ;|测试
13. (setq str (list "23, 45, 1.023" "meflying18.8" "meflyin18.8￥g18。18.5$8.8$$$1。8"))
14. (mapcar '(lambda(x)(str2lst x)) str)
15. ->((23 45 1.023) (18.8) (18.8 18 18.5 8.8 1 8))
16. |;

(defun str2lst (str / st nstr i)   (setq nstr "" i 0)   (repeat (strlen str)    (if (or (wcmatch (setq st (substr str (setq i (1+ i)) 1)) "#")(= st "."))        (setq nstr (strcat nstr st))        (if (and (/= "" nstr)(/= " " (substr nstr (strlen nstr))))(setq nstr (strcat nstr " ")))    )   )   (read (strcat "(" nstr")")) ) ;|测试 (setq str (list "23, 45, 1.023" "meflying18.8" "meflyin18.8￥g18。18.5$8.8$$$1。8")) (mapcar '(lambda(x)(str2lst x)) str) ->((23 45 1.023) (18.8) (18.8 18 18.5 8.8 1 8)) |;