如何将用逗号隔开的文字分开

changyiran

文本中有好多行用逗号隔开的文字，比如"图元1，图元2，图元3"，在用read-line函数读出该行后，怎么将图元1，图元2，图元3提取出来呢？请高手们指教！

重慶崽兒

vl-string-left-trim或者vl-string-right-trim
不知道对不对

菜卷鱼

1. (defun c:fd ()
   
2. (princ "打开文件所在文件夹\n选择文件:")
   
3. (setq name(getfiled "指定文件" (getvar "dwgprefix") "dwg" 0))
   
4. (setq position
   
5. (vl-string-search "\\" name 4))
   
6. (setq np position)
   
7. (while (numberp position )
   
8. (setq position
   
9. (vl-string-search "\\" name (1+ position)))
   
10. (if (/= position nil)(setq np position))
    
11. )
    
12. (setq tn(substr name 1 np))
    
13. (mapcar 'princ (list "\n文件路径=" tn))
    
14. (startapp "explorer" tn)
    
15. (prin1)
    
16. )

(defun c:fd ()<br /> (princ "打开文件所在文件夹\n选择文件:")<br /> (setq name(getfiled "指定文件" (getvar "dwgprefix") "dwg" 0))<br /> (setq position<br /> (vl-string-search "\\" name 4))<br /> (setq np position)<br /> (while (numberp position )<br /> (setq position<br /> (vl-string-search "\\" name (1+ position)))<br /> (if (/= position nil)(setq np position))<br /> )<br /> (setq tn(substr name 1 np))<br /> (mapcar 'princ (list "\n文件路径=" tn))<br /> (startapp "explorer" tn)<br /> (prin1)<br /> )

你根据这个改一改，就懒得给你具体弄了

yshf

(setq zfc (read-line wjm))
(while (vl-string-search "," zfc)
     (setq zfc (vl-string-subst " " "," zfc))
)
(setq jgz (read (strcat "(" zfc ")")))
;jgz=(图元1  图元2 ...)

changyiran

yshf 发表于 2014-3-11 22:07
(setq zfc (read-line wjm))
(while (vl-string-search "," zfc)
     (setq zfc (vl-string-subst " " " ...

这个不行，我用的就是这个方法，但是得出的结果是图元1，图元2，图元3……而不是"图元1"，"图元2"，"图元3"……，就是说结果不是字符串，然后呢就没法和字符串进行比较，比如说是否等于？你可以试验下。

yshf

要变字符串，再加一行不就了!
(setq jgz (mapcar '(lambda(x) (vl-princ-to-string x)) jgz))
或者
(setq jgz (mapcar 'vl-princ-to-string jgz))

xyp1964

2. ;; (Str2Lst "图元1，图元2，图元3" "，") → ("图元1" "图元2" "图元3")
   
3. (defun Str2Lst (str sprstr / lst m n a)
   
4.   (setq        lst '()
   
5.         m   (strlen sprstr)
   
6.   )
   
7.   (while (setq n (vl-string-search sprstr str))
   
8.     (setq a   (substr str 1 n)
   
9.           str (substr str (+ n m 1))
   
10.           lst (if (/= a "")
    
11.                 (cons a lst)
    
12.                 lst
    
13.               )
    
14.     )
    
15.   )
    
16.   (reverse (cons str lst))
    
17. )

;; (Str2Lst "图元1，图元2，图元3" "，") → ("图元1" "图元2" "图元3")<br /> (defun Str2Lst (str sprstr / lst m n a)<br />   (setq        lst '()<br />         m   (strlen sprstr)<br />   )<br />   (while (setq n (vl-string-search sprstr str))<br />     (setq a   (substr str 1 n)<br />           str (substr str (+ n m 1))<br />           lst (if (/= a "")<br />                 (cons a lst)<br />                 lst<br />               )<br />     )<br />   )<br />   (reverse (cons str lst))<br /> )

77077

院长这次发的是真源码!赶紧收藏~~~
;;;
;;;读取文件并按行将文件转换为表 ;;;函数代码：
;;;(Txt2Lst "d:\\临时文件.txt")

2. (defun Txt2Lst(files / tmplst x fn)  
   
3.   (setq files(findfile files))
   
4.   (if files
   
5.     (progn
   
6.       (setq fn (open  files "r"))
   
7.       (while (setq x (read-line fn))
   
8.         (setq txtlst(append txtlst (list x)))
   
9.       )
   
10.       (close fn)
    
11.       txtlst
    
12.     )
    
13.      nil
    
14.   )
    
15. )

(defun Txt2Lst(files / tmplst x fn)  <br />   (setq files(findfile files))<br />   (if files<br />     (progn<br />       (setq fn (open  files "r"))<br />       (while (setq x (read-line fn))<br />         (setq txtlst(append txtlst (list x)))<br />       )<br />       (close fn)<br />       txtlst<br />     )<br />      nil<br />   )<br /> )