yang686526

如何读入数据成表
www.dimcax.com
如何读入数据成表
(248700.0 1258.82 0.0)
(248660.0 1265.69 0.0)
(248660.0 1258.36 0.0)
(248620.0 1265.29 0.0)
(248620.0 1257.8 0.0)
(248560.0 1264.67 0.0)
(248560.0 1264.1 0.0)
(248560.0 1256.96 0.0)
(248520.0 1264.31 0.0)
(248520.0 1263.04 0.0)
如何读入数据（.txt）形成如下的表
（（248700.0 1258.82 ）（248660.0 1265.69 1258.36）（248620.0 1265.29 1257.8）（248560.0 1264.67 1264.1 1256.96）。。）
想了很长时间也没有头续，大家给提点建议，谢谢
(setq data_list '())
(setq jddata (getfiled "交点数据文本" jd1 "txt" 4))
(setq pf (open jddata "r"))
(setq data1 (read-line pf))
(while (setq data2 (read-line pf))
(setq ax1 (substr data1 2 8
(setq ay1 (substr data1 11 7))
;(setq az (substr data 19 3))
(setq ax2 (substr data2 2 8))
(setq ay2 (substr data2 11 7))
(setq a '())
(setq b '())
(cond ((= ax1 ax2)
(setq a (append a (list ax2)))
(setq ay12 (- ay2 ay1))
(setq a (append a (list ay12)))
(setq data_list (list a)))
((/= ax1 ax2)
d
(setq a "(248700.0 1258.82 0.0)")
(setq b (read a)) ;read的用法!!!
(setq x (car b)) ;real类型
(setq y (cadr b)) ;real类型
(setq z (caddr b)) ;real类型
change your life style.
d
是数字还是字符串目前并不重要，难点是如何组成想要的表
d
你的表有何规律？
d
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
帮你写一个,我的水平也不行,呵呵!!!
d
回复四楼：没有规律，就是想把x相同的合并成一个表，形式如上。
回复五楼：我试试