yang686526

为什么不能写入文本？
www.dimcax.com

非常感谢！meflying兄meflying兄：
很感谢你，给我解决了问题！
谢谢了，我会不断努力的！
d
你这是完全对文件的操作，其实用c编一个程序更简单些
多动脑筋
d
还有一点小问题。我用了您写的程序之后，已经可以完成我的要求，还有一点就是，我原来的文件开始第一行是表示总点数，第二行是第一个点，第三行是第二个点。。。
重新写入的文件应该也是这个格式，但是我在应用时发现，新的文件第一行的总点数没有写入，我也试着修改了一下，但是没有成功，能不能在帮我看看呢？
万分感谢！！！！
d
修改过的（1）(defun puttxt(f lists / n m i j str)
(setq n (length lists))
(setq m (length (cadr lists)))
(write-line (rtos (car lists)) f)
(setq i 1)
(while (< i n)
(setq j 1)
(setq str (strcat (rtos (car (nth i lists))) " ,"))
(while (< j m)
(setq str (strcat str "," (rtos (nth j (nth i lists))) " "))
(setq j (1+ j))
)
(write-line str f)
(setq i (1+ i)))
)
多动脑筋
d
修改过的（2）此函数后面的同原来的相同，
(defun c:sjjcs (/ x y h xg yg hg x_xg y_yg h_hg lists list1 ft fm fn)
(setq file (findfile "*.txt"))
(if (not file)
(setq file (getfiled "\n请输入原数据文件" "e:\\" "txt;dat;*" 8))
)
(setq fn (open file "r"))
(setq ft (read-line fn))
(setq lists (list (read ft)))
(setq ft (read-line fn))
多动脑筋
d
meflying兄，真的好感谢！非常感谢！
meflying兄，你不厌其烦的帮助我，我只有更加努力了！！