[LISP]关于字符串的问题？

daanff

最近想写一个内差计算函数，因为用到字符串输入，但是提取的时候却有问题了，比如原始文件中：“10                                                 2.3”，用read-line能把它读出来，然后可以用read函数把前面一个数提取出来，可是后面的数呢，有没有一个函数能做到的，特请教高手。

SWAYWOOD

试试这个 (defun str2no (str / ll nn ss)
(setq nn "" ss "")
(repeat (strlen str)
(setq s (substr str 1 1))
(if (or (= (ascii s) 46)(wcmatch s "#"))
(setq nn (strcat nn s)
ll (append ll (list ss))
ss "")
(setq ss (strcat ss s)
ll (append ll (list nn))
nn "")
)
(setq str (substr str 2))
)
(setq ll (vl-remove "" ll))
(if (/= nn "")(setq ll (append ll (list nn))))
(if (/= ss "")(setq ll (append ll (list ss))))
ll
)

龙龙仔

(setq EE "10 2.3")
(setq EE (strcat "(" EE ")"))
(setq EE (read EE))

daanff

谢谢二位的回复，二楼的好像太复杂了，而三楼的不能达到我所要求的目的，其实我已经写了一个子程序来实现我的功能，只是觉得太麻烦了，所以才来和大家探讨一下，现在拿出来与大家研究一下： (defun aa()

(setq a1 (read a))
(setq n (strlen a))
(setq m 1)
(while (<= m n)
(if (= (substr a m 1) " ")
(progn
(setq a2 (read (substr a m)))
(setq m (+ n 1)))
(setq m (+ m 1))
))

) 其中变量a就是那个字符串

meflying

3楼的达不到你的要求？你试了没有？ (setq EE "10 2.3")
(setq EE (strcat "(" EE ")")) ;得到EE为"(10 2.3)"
(setq EE (read EE)) ;得到EE为 (10 2.3) 都得到一个表了，你要哪个数字还不会取吗？？？

daanff

呵呵，谢谢五楼的，没有想到这种思路，长见识了，这种方法比我想的还要好，感谢了。

无痕

昏倒

yxp

就是，弄清别人回帖子意图了再说也不迟。

SWAYWOOD

不好意思我还以为你要这样的 命令: (setq ee "10 adf234 dsa 45 2.3")
"10 adf234 dsa 45 2.3" 命令: (str2no ee)
("10" " adf" "234" " dsa " "45" " " "2.3")