怎样把一个字符串的空格都去掉？

citykunan

怎样把一个字符串的空格都去掉？如"                 zd         12 lo         " 返回"zd12lo"。谢谢

王咣生

(defun contract (f_string / f_cur f_out f_loop)
(if (null (stringp f_string))
(exit)
)
(setq f_out ""
f_loop 1
)
(repeat (strlen f_string)
(progn
(setq f_cur (substr f_string f_loop 1))
(if (/= (ascii f_cur) 32)
(setq f_out (strcat f_out f_cur))
)
)
(setq f_loop (1+ f_loop))
)
f_out
) (contract " zd 12 lo ") 返回"zd12lo"

citykunan

王斑竹，你好像没给出stringp函数吧。

Ea

3. (defun rspace (str)
4.    (vl-list->string (vl-remove '32 (vl-string->list str)))
5. )

(defun rspace (str)    (vl-list->string (vl-remove '32 (vl-string->list str))) )

lijiao

(defun rspace (str / )
(while (> (strlen str) (strlen (setq str (vl-string-subst "" " " str)))))
str
)

citykunan

多谢.

chen4

ok

s678z

lijiao 发表于 2005-1-19 09:13
(defun rspace (str / )         (while (> (strlen str) (strlen (setq str (vl-string-subst "" " " str)))))         ...

ZZXXQQ的公差查询查询http://bbs.mjtd.com/thread-90861-1-1.html，上下偏差括号内前后的空格有无办法去掉，在他的程序里改那一句？

vlisp2012

多谢各位高手分享，学习了