[求助]怎么提取单行文字里空格隔开的文字？

coolpoom

怎么提取单行文字里空格隔开的文字？

如: 1234 56789 abcd dfgh

要提取1234为S1   56789为S2  abcd为S3  dfgh为S4

碎玉す全瓦

期待高手解答,我记得有个方法能直接把一行字符转换成表的?转换成表以后就可以方便的读取表里的元素了.

碎玉す全瓦

我找到方法了.(read (strcat "(" "1234 56789 abcd dfgh" ")"))这条语句之后就组成一个表了.之后可以利用car和cdr或者组合来读取表内元素了.

caoyin

楼上的方法在大部分情况下有效，下面的就不行了
(read (strcat "(" "Hello 2 World\t12 \" 5456.168" ")"))

2. ;;____________________________________________________________________________________________________
3. ;; ▓ (lt:str->list str)
4. ;; [功能] 将字符串转换为字符串列表
5. ;; [测试] (lt:str->list "Hello 2 World\t12 " 5456.168") -> ("Hello" "2" "World" "12" """ "5456.168")
6. (defun lt:str->list (str)
7.   (setq str (mapcar '(lambda (x) (if (member x '(9 10 32)) ")(" (strcat (itoa x) " ")))
8.                     (vl-string->list str)
9.             )
10.   )
11.   (mapcar 'vl-list->string (read (strcat "((" (apply 'strcat str) "))")))
12. )

;;____________________________________________________________________________________________________ ;; ▓ (lt:str->list str) ;; [功能] 将字符串转换为字符串列表 ;; [测试] (lt:str->list "Hello 2 World\t12 " 5456.168") -> ("Hello" "2" "World" "12" """ "5456.168") (defun lt:str->list (str)   (setq str (mapcar '(lambda (x) (if (member x '(9 10 32)) ")(" (strcat (itoa x) " ")))                     (vl-string->list str)             )   )   (mapcar 'vl-list->string (read (strcat "((" (apply 'strcat str) "))"))) )