[LISP程序]：文本读入问题

gww

用下面语句
(setq rdln (read-line fp))
(setq ln (read rdln))
读入文件内容
AO2 LIC LIC
AO2 TIC TIC
结果 ln 的类型是 SYM
我想要的是STR
怎么办？

ll_j

用“(setq ln (read (strcat "(" rdln ")")))”可以返回一个表，如果需要返回字符串，就不应该使用read函数，应该按一定条件对rdln使用函数substr，如“(substr "abc sdf" 1 3)”。

cy956

明经那儿有一个函数:

2. 
   
3. ;;;==================================================================
   
4. ;;;(StrParse Str Delimiter)  ;Str字符串  Delimiter分隔符
   
5. ;;;                将具有分隔符的字符串解析为列表
   
6. ;;;(StrParse "Harp,Guiness,Black and Tan" ",")
   
7. ;;;("Harp" "Guiness" "Black and Tan")
   
8. ;;;------------------------------------------------------------------
   
9. (defun strParse        (Str Delimiter / SearchStr StringLen return n char)
   
10.   (setq SearchStr Str return '()
    
11.         StringLen (strlen SearchStr))
    
12.   (while (> StringLen 0)
    
13.     (setq n 1 char (substr SearchStr 1 1))
    
14.     (while (and (/= char Delimiter) (/= char ""))
    
15.       (setq n (1+ n) char (substr SearchStr n 1))
    
16.     )
    
17.     (setq return (cons (substr SearchStr 1 (1- n)) return)
    
18.           SearchStr (substr SearchStr (1+ n) StringLen)
    
19.           StringLen (strlen SearchStr))
    
20.   )(reverse return)
    
21. )
    

<br /> ;;;==================================================================<br /> ;;;(StrParse Str Delimiter)  ;Str字符串  Delimiter分隔符<br /> ;;;                将具有分隔符的字符串解析为列表<br /> ;;;(StrParse "Harp,Guiness,Black and Tan" ",")<br /> ;;;("Harp" "Guiness" "Black and Tan")<br /> ;;;------------------------------------------------------------------<br /> (defun strParse        (Str Delimiter / SearchStr StringLen return n char)<br />   (setq SearchStr Str return '()<br />         StringLen (strlen SearchStr))<br />   (while (> StringLen 0)<br />     (setq n 1 char (substr SearchStr 1 1))<br />     (while (and (/= char Delimiter) (/= char ""))<br />       (setq n (1+ n) char (substr SearchStr n 1))<br />     )<br />     (setq return (cons (substr SearchStr 1 (1- n)) return)<br />           SearchStr (substr SearchStr (1+ n) StringLen)<br />           StringLen (strlen SearchStr))<br />   )(reverse return)<br /> )<br />

你可以
(setq rdln (read-line fp))
然后
(StrParse rdln " ")  就变成一个字串表

gww

谢谢大家，后来我自己写了个程序
  (defun Str2Lst (str / i strlst)
    (setq strlst (list))
    (while (vl-string-position 32 str)
      (progn
        (setq i (vl-string-position 32 str))
        (if (> i 0)
          (setq strlst (append strlst (list (substr str 1 i))))
        )
        (setq str (substr str (+ 2 i)))
      )
    )
    (if        (> (strlen str) 0)
      (setq strlst (append strlst (list str)))
    )
    strlst
  )

hi71400

dos上cad12自带过一个将txt文件写到dwg中的，以前我用过，现在用天正就没保留了。