提取多行文字的内容到excel，请各位帮忙改进一下代码，多谢！！

shasow

下面这段代码是我从网上找的，可以提取多行文字到excel，但问题是，也把多行文字的控制符也提取 出来了，我只要文字内容，请高手给改改，不盛感激！！
(defun c:q2()
(setq ffn (getfiled "写出文件" "" "xls" 1))
(princ "\n选取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))      
)
(close ff)
(princ (strcat "\n写出文件: " ffn))
(prin1)
)
见附件测试文件及结果

w245272914

顶顶顶顶~~~

liwen888888

没有大神解决吗？我想提取多行文字内容到excel，一行一格，所有的多行文字格式，顺序一样。：或者=前面的内容做表头，后面的内容放到对应的单元格内（没有内容就留空）