LISP字符串, 811-S101存储在文本中,如何读取它并加一变成811-S102,替换掉原来的存储在原文本中。谢谢。
(defun c:res ( / fi1 fir fiw tex jus num )
(if (setq fi1 (getfiled "请选择文件" "c:" "txt" 2) txo "811-S101" txn "811-S102")
(progn
(vl-file-copy fi1 "c:\tem。
txt")
(setq fir (open "c:\tem。txt" "r") fiw (open fi1 "w") num 0)
(while (setq tex (read-line fir))
(while (setq jus (vl-string-search txo tex))
(setq tex (vl-string-subst txn txo tex) num ( num 1))
)
(write-line tex fiw)
)
(close fir) (close fiw) (vl-file-delete "c:\tem。
txt")
(alert (strcat "已成功替换了 " (itoa num) " 个字符串!"))
)
)
)。
答:在简单的线型中插入文本字串,就构成了带文本字符串的线型。这种方式在地形图的处理中用得不多。下面的例子比较典型地体现了其定义方法,S、R、X、Y的意义和上文中对形...详情>>
答:越来越多的人关注电子类或数码类产品我看主要是以下这几个原因: 1、方便易用的多方面功能已经成为现在生活学习娱乐的必须。比如:手机在城里基本上已经达到人手一台,农...详情>>
答:当然属于了详情>>