[求助]：如何将"aa" "ab" "ac"写入文件

spring1983

有一txt文件的内容如下

"aa"                  "ab"                  "ac"
"1"                   "2"                   "3"



用以下程序读取其内容

(defun GET-FUN-DATA (/ fil pe fel)
    (setq fun-list nil)
    (setq fil (findfile "ac.txt"))
    (if fil
      (progn
(setq pe (open fil "r")) ;开启档案
(while (setq fel (read-line pe))
   (setq fun-list (cons fel fun-list))
)   
(close pe)   ;关闭档案
(setq fun-list (reverse fun-list))
      )
    )
取得结果为

("\"aa\"                  \"ab\"                  \"ac\"

"\"1\"                \"2\"                   \"3\"")


现在我想反方向回去,也就是使用变量写到文件里

那个斜杠不知道怎么处理

我试过用cons,用cons得出来的结果为

(("aa" "ab" "ac") ("1" "2" "3"))

用以下程序写入时不成功,如果exp为("\"aa\"                  \"ab\"                  \"ac\"        "\"1\"                \"2\"                   \"3\"")时则OK

    (setq pe (open fil "w"))
    (setq tt (nth 0 exp))
    (write-line tt pe)

斜杠的地方怎么处理呢?如何将"aa" "ab" "ac"写入文件?

zml84

[PHP]
;;;===========================================================
;;;自定义函数：分割字符串                                    
;;;参数说明： str---欲分割的字符串                           
;;;           lst---分割符表，参数类型：表                    
;;;　返回值：分割后的字符，类型：表；原子类型:字符串         
;;;　示　例：(zml-str-fg "(200~400)x5" '("(" "~" ")" "x"))   
;;;　　　　　返回：("200" "400" "5")                          
;;;　日　期：zml84 于2007-02-03                              
;;;===========================================================
(defun zml-str-fg (str lst / xx i j stri test01 n ni jg)
    (setq xx '()
          i  1
    ) ;_ 结束setq
    (repeat (strlen str)
        (setq stri   (substr str i 1)
              j             0
              test01 T
        ) ;_ 结束setq
        (while test01
            (if        (= j (length lst))
                (setq test01 nil)
                (if (= stri (nth j lst))
                    (setq xx         (cons i xx)
                          test01 nil
                    ) ;_ 结束setq
                    (setq j (1+ j))
                ) ;_ 结束if
            ) ;_ 结束if
        ) ;_ 结束while
        (setq i (1+ i))
    ) ;_ 结束repeat

    (if        (= 0 (length xx))
        (setq jg (list str))
        (progn
            (setq jg '()
                  i  (strlen str)
                  n  0
            )
            (repeat (length xx)
                (setq ni (nth n xx))
                (if (= i ni)
                    (setq i (1- i))
                    (setq jg (cons (substr str (1+ ni) (- i ni)) jg)
                          i  (- ni 1)
                    )
                )
                (setq n (1+ n))
            )
        )
    )
    jg
) ;_ 结束defun
;;;===========================================================
[/PHP]