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的意义和上文中对形...详情>>
答:大陆从模拟电路,数字电路延伸叫数字技术,数字xx.港台或广东开始叫数码技术(大概是数字编码的意思),后来可能因为数字产品听起来过于专业抽象,都跟着叫数码相机,较...详情>>
答:答:称 量物体重量 秤 衡量物体重量的器具i详情>>
答:近几年电子烟出口量挺大的,但量还没数码产品大,两种产品作用不1样,不好说详情>>