SONG421 发表于 2005-11-25 19:01:00

急求一次对多个字符串文本中某位进行相同运算的程序

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><CODE>;|</CODE> 如<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">F-203-1改为F-203-2<o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">F-203-3改为F-203-4<o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">F-203-5改为F-203-4<o:p></o:p></P>最后位加1

小顽童 发表于 2005-11-25 20:08:00

<P>就是固定格式吗？没别的格式？</P>

zxj_76 发表于 2005-11-28 08:21:00

做个循环，逐个替换！

ZZXXQQ 发表于 2005-11-28 11:25:00


(DEFUN C:LASTADD ()
(PRINC "\nSelect text(s) :")
(IF (SETQ SS (SSGET '((0 . "TEXT") (1 . "F-203-#")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         TXT (CDR (ASSOC 1 ENT))
         TXT (STRCAT (SUBSTR TXT 1 6) (ITOA (1+ (ATOI (SUBSTR TXT 7 1)))))
         ENT (SUBST (CONS 1 TXT) (ASSOC 1 ENT) ENT))
   (ENTMOD ENT)
)
))
(PRINC)
)
页: [1]
查看完整版本: 急求一次对多个字符串文本中某位进行相同运算的程序