怎样让带有空格的字符串转换成表

wwwbxd

那位大侠帮帮忙
（setq str "50 35 80 40 50")
怎样让 变量 str 转换成下表
（50 50 35 80 40 50）表内数据全部为数字

wwwbxd

哈哈
自己突然找到答案了
（setq str "50 35 80 40 50")
(setq str (strcat "(" str ")"))
(setq lst (read str))
返回：（50 35 80 40 50）

liujing95

(setq str '(50 35 80 40 50))

fl202

这个太强大了！
会用本论坛的搜索果然不一样。
这个小函数用处很大，用于list_box 中多选（ctrl or shift）删除的表中的几个项：


本来还想用下面的程序解决问题呢，楼主这个NB！！！：

2. ;;85.1 [功能] 字符串分割
   
3. ;;http://www.mjtd.com/function/info-129-216.html,有修改 黄明儒 2013年8月9日
   
4. ;;(setq str   "100,,23456.876,345.456," delim ",")
   
5. (defun parse1 (str delim / LST POS)
   
6.   (while (setq pos (vl-string-search delim str))
   
7.     (setq lst (cons (substr str 1 pos) lst)
   
8.           str (substr str (+ pos 2))
   
9.     )
   
10.   )
    
11.   (if (> (strlen str) 0)
    
12.     (setq lst (cons str lst))
    
13.   )
    
14.   (reverse lst)
    
15. )

;;85.1 [功能] 字符串分割<br /> ;;http://www.mjtd.com/function/info-129-216.html,有修改 黄明儒 2013年8月9日<br /> ;;(setq str   "100,,23456.876,345.456," delim ",")<br /> (defun parse1 (str delim / LST POS)<br />   (while (setq pos (vl-string-search delim str))<br />     (setq lst (cons (substr str 1 pos) lst)<br />           str (substr str (+ pos 2))<br />     )<br />   )<br />   (if (> (strlen str) 0)<br />     (setq lst (cons str lst))<br />   )<br />   (reverse lst)<br /> )

附另一半程序：

2. ;============{ 在指定位置删除或插入元素 }===============
   
3. ;nil表示要删除。如果有值为要插入的元素---by wowan1314
   
4. ;(t11 '(1 2 3 4 5 6) 2 0);;->(1 2 0 3 4 5 6)
   
5. ;(t11 '(1 2 3 4 5 6) 2 nil);;->(1 2 4 5 6)
   
6. ;2013年7月20日 星期六
   
7. (defun t11 (lst pos mod / qlst a hlst)
   
8.     (setq a -1)
   
9.     (setq hlst (vl-member-if-not
   
10.             '(lambda(x)
    
11.                 (setq a (1+ a))
    
12.                 (if (= a pos) nil
    
13.                     (setq qlst (cons x qlst))
    
14.                 )
    
15.             )
    
16.             lst
    
17.         )
    
18.     )
    
19.     (if mod
    
20.         (apply 'append (list (reverse(cons mod qlst)) hlst))
    
21.         (apply 'append (list (reverse qlst) (cdr hlst))
    
22.         )
    
23.     )
    
24. )

;============{ 在指定位置删除或插入元素 }=============== <br /> ;nil表示要删除。如果有值为要插入的元素---by wowan1314 <br /> ;(t11 '(1 2 3 4 5 6) 2 0);;->(1 2 0 3 4 5 6) <br /> ;(t11 '(1 2 3 4 5 6) 2 nil);;->(1 2 4 5 6) <br /> ;2013年7月20日 星期六 <br /> (defun t11 (lst pos mod / qlst a hlst) <br />     (setq a -1)<br />     (setq hlst (vl-member-if-not<br />             '(lambda(x)<br />                 (setq a (1+ a))<br />                 (if (= a pos) nil<br />                     (setq qlst (cons x qlst))<br />                 )<br />             )<br />             lst<br />         )<br />     )<br />     (if mod<br />         (apply 'append (list (reverse(cons mod qlst)) hlst))<br />         (apply 'append (list (reverse qlst) (cdr hlst))<br />         )<br />     )<br /> )

改进：
用于list_box 中多选（ctrl or shift）删除的表中的几个项
:list_box{label = "all:";key="d11";edit_width=10;alignment = right;multiple_select=true;}

2. (defun tt2_sub1(vvs)
   
3. (print vvs)
   
4. (setq i 0 tb2 '() ab (read (strcat "(" vvs ")" )))
   
5. (repeat (length tb1)
   
6.   (if (member i ab)
   
7.     (princ)
   
8.     (setq tb2 (cons (nth i tb1) tb2))
   
9.     )
   
10.     (setq i (1+ i))
    
11.     )
    
12.   (setq tb2 (reverse tb2))
    
13.   (show_list "d12" tb2)
    
14. )

(defun tt2_sub1(vvs)<br /> (print vvs)<br /> (setq i 0 tb2 '() ab (read (strcat "(" vvs ")" )))<br /> (repeat (length tb1)<br />   (if (member i ab)<br />     (princ)<br />     (setq tb2 (cons (nth i tb1) tb2))<br />     )<br />     (setq i (1+ i))<br />     )<br />   (setq tb2 (reverse tb2)) <br />   (show_list "d12" tb2) <br /> )

xyp1964

试试这个： (setq str "50 35 文 80 本 40 50")

434939575

这个可以有！谢谢了！

Exlw

read 看起来好简洁
比循环判断好看多了
好像只能用于空格  别的比如逗号什么的就不行了