[求助]请教高手........

yoyoho

"a bb  ccc   dddd"--->转成 "a bb ccc dddd"      将多余空格删除,仅保留一空格.  

"a,bb,,ccc,,,dddd"--->转成 "a,bb,ccc,dddd"      将多余","删除,仅保留一",". 

"a;bb;;ccc;;;dddd"--->转成 "a;bb;ccc;dddd"      将多余";"删除,仅保留一";". 

请教高手如何将字串多余的字元(如: "," ";" " "......)删除,仅保留一个.

麻烦诸位高手,谢谢!

sailorcwx

3. (defun F&R (str1 str2 / str3)
4.   (if (/= str2 "")
5.     (progn
6.       ;组成2个的
7.       (setq str3 (strcat str2 str2))
8.       ;循环查找
9.       (while (vl-string-search str3 str1)
10. ;找到替换
11. (setq str1 (vl-string-subst str2 str3 str1))
12. )
13.       ;well done
14.       str1
15.       )
16.     )
17.   )

(defun F&R (str1 str2 / str3)   (if (/= str2 "")     (progn       ;组成2个的       (setq str3 (strcat str2 str2))       ;循环查找       (while (vl-string-search str3 str1) ;找到替换 (setq str1 (vl-string-subst str2 str3 str1)) )       ;well done       str1       )     )   )

sailorcwx

(f&r "a bb  ccc   dddd" " ") 

(f&r "a,bb,,ccc,,,dddd" ",")

(f&r "a;bb;;ccc;;;dddd" ";")

byghbcx

http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=1007

str2lst 可以帮你

yoyoho

感谢两位帮忙,谢谢!