yoyoho 发表于 2008-7-26 10:55:00

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

<p>"a bb&nbsp; ccc&nbsp;&nbsp; dddd"---&gt;转成 "a bb ccc dddd"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;将多余空格删除,仅保留一空格.&nbsp;&nbsp;</p><p>"a,bb,,ccc,,,dddd"---&gt;转成 "a,bb,ccc,dddd"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;将多余","删除,仅保留一",".&nbsp;</p><p>"a;bb;;ccc;;;dddd"---&gt;转成 "a;bb;ccc;dddd"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;将多余";"删除,仅保留一";".&nbsp;</p><p>请教高手如何将字串多余的字元(如: "," ";" " "......)删除,仅保留一个.</p><p>麻烦诸位高手,谢谢!</p>

sailorcwx 发表于 2008-7-26 11:46:00

本帖最后由 作者 于 2008-7-26 11:47:09 编辑


(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 发表于 2008-7-26 11:46:00

本帖最后由 作者 于 2008-7-26 11:50:04 编辑 <br /><br /> <p>(f&amp;r "a bb&nbsp; ccc&nbsp;&nbsp; dddd" " ")&nbsp;</p><p>(f&amp;r "a,bb,,ccc,,,dddd" ",")</p><p>(f&amp;r "a;bb;;ccc;;;dddd" ";")</p>

byghbcx 发表于 2008-7-26 11:52:00

<p><a href="http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=1007">http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=1007</a></p><p>str2lst 可以帮你</p>

yoyoho 发表于 2008-7-26 12:21:00

<p>感谢两位帮忙,谢谢!</p>
页: [1]
查看完整版本: [求助]请教高手........