外部文件中数据的删除问题

CADghost

。。。。。。


（1 （ABC BCD） （AA BCSA） （ADB））


（4 （AAC　ＢBCD） （AA BCSA） （ADB））


。。。。。。


这是一个ＴＸＴ文件，还有很多行这样的数据，如何在删除第一个字符为“１”的那行数据？


有没有一个简单的办法呢？

xyp1964

;;;sjsc.lsp
;;;C:sjsc 数据删除
;;;删除第一个字符为“(1”的那行数据
(defun c:sjsc(/ oldfile newfile txt)
(setq oldfile (open "aaa.txt" "R"));;;aaa.txt为原有数据文件
(setq newfile (open "new.txt" "W"));;;new.txt为新建数据文件
(while (setq txt (read-line oldfile))
(setq txt (substr txt 1 2))
(if (/= txt "(1")(write-line txt newfile))
)
(setq oldfile (close oldfile)
newfile (close newfile)
)
)