（完成）[编程申请]：求LSP程序，对含字符]且仅含一个分号的字符串操作

lengliqun

求LSP程序，对含字符]且仅含一个分号的字符串操作，将；前的字符加上前缀T，将；后的字符加上前缀D，将；变成空格。
如5]23;9]60变成T5]23 D9]60
如8]23;2]33/9]68变成T8]23 D2]33/9]60
如2]11/8]23;3]35/9]64变成T2]11/8]23 D3]35/9]64

zxq0220

程序：

2. 
   
3. (DEFUN C:CHSTR1 ()
   
4. (IF (SETQ SS (SSGET "X" '((0 . "TEXT") (1 . "*]*;*")))) (PROGN
   
5.   (SETQ I 0)
   
6.   (REPEAT (SSLENGTH SS)
   
7.    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)
   
8.          STR (CDR (ASSOC 1 ENT))
   
9.          STL (STRLEN STR)
   
10.          J 1)
    
11.    (WHILE (AND (< J STL) (/= (SUBSTR STR J 1) ";")) (SETQ J (1+ J)))
    
12.    (SETQ STR1 (STRCAT "T" (SUBSTR STR 1 (1- J)) " D" (SUBSTR STR (1+ J)))
    
13.          ENT (SUBST (CONS 1 STR1) (CONS 1 STR) ENT))
    
14.    (ENTMOD ENT)
    
15.   )
    
16. ))
    
17. (PRINC)
    
18. )
    

<br /> (DEFUN C:CHSTR1 ()<br /> (IF (SETQ SS (SSGET "X" '((0 . "TEXT") (1 . "*]*;*")))) (PROGN<br />   (SETQ I 0)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)<br />          STR (CDR (ASSOC 1 ENT))<br />          STL (STRLEN STR)<br />          J 1)<br />    (WHILE (AND (< J STL) (/= (SUBSTR STR J 1) ";")) (SETQ J (1+ J)))<br />    (SETQ STR1 (STRCAT "T" (SUBSTR STR 1 (1- J)) " D" (SUBSTR STR (1+ J)))<br />          ENT (SUBST (CONS 1 STR1) (CONS 1 STR) ENT))<br />    (ENTMOD ENT)<br />   )<br /> ))<br /> (PRINC)<br /> )<br />

lengliqun

谢谢，可以用。