[求助]TXT文件格式转换-字符串转表操作

usercoolbo

请教，有个明码文件格式如下：
0.00,847.40
10.76,856.00,17.48,861.20,25.19,868.90,27.50,871.20,30.29,871.50,34.98,878.10

我如何通过LISP所它换成如下格式：
0.00 847.40
10.76 856.00
17.48 861.20
25.19 868.90
27.50 871.20
30.29 871.50
34.98 878.10

直接用READ-LINE读取出来的是一行的字符串

danxingpen

知道读取文件的流操作吗?基本原理就是一个字节一个字节的读取的,,,,

同样,read-line一行一行读取之后转成表形式,文本读完一行,进行表合并,再进行表两两拆分.

xyp1964

3. (defun c:tt (/ txt n1 a b)
4.   (setq txt "0.00,847.40,10.76,856.00,17.48,861.20,25.19,868.90,27.50,871.20,30.29,871.50,34.98,878.10")
5.   (command "pline")
6.   (while (setq n1 (vl-string-search "," txt))
7.     (setq a   (substr txt 1 (- n1 1))
8.    txt (substr txt (+ n1 2))
9.     )
10.     (if (setq n2 (vl-string-search "," txt))
11.       (setq b (substr txt 1 (- n2 1))
12.      txt (substr txt (+ n2 2))
13.       )
14.       (setq b nil)
15.     )
16.     (if (and a b)
17.       (command (list (distof a) (distof b)))
18.     )
19.   )
20.   (command "")
21.   (princ)
22. )

(defun c:tt (/ txt n1 a b)   (setq txt "0.00,847.40,10.76,856.00,17.48,861.20,25.19,868.90,27.50,871.20,30.29,871.50,34.98,878.10")   (command "pline")   (while (setq n1 (vl-string-search "," txt))     (setq a   (substr txt 1 (- n1 1))    txt (substr txt (+ n1 2))     )     (if (setq n2 (vl-string-search "," txt))       (setq b (substr txt 1 (- n2 1))      txt (substr txt (+ n2 2))       )       (setq b nil)     )     (if (and a b)       (command (list (distof a) (distof b)))     )   )   (command "")   (princ) )