请帮忙写个去空格的小程序 我没搜索到

yangist

vl-string-left-trim  vl-string-right-trim
这两个命令我不会用
请帮忙写个去掉单行文本前后空格的程序,中间的空格不要去掉,也不分解

marting

1. 命令: (setq a "   fafaf   ")
   
2. "   fafaf   "
   
3. 
   
4. 命令: (setq b (vl-string-left-trim " " a))
   
5. "fafaf   "
   
6. 
   
7. 命令: (setq c (vl-string-right-trim " " b))
   
8. "fafaf"
   

命令: (setq a "   fafaf   ")<br /> "   fafaf   "<br /> <br /> 命令: (setq b (vl-string-left-trim " " a))<br /> "fafaf   "<br /> <br /> 命令: (setq c (vl-string-right-trim " " b))<br /> "fafaf"<br />

eachy

_$ (vl-list->string (vl-remove-if '(lambda (x) (= x 32)) (vl-string->list "   dsa  ddfdse  e ")))
"dsaddfdsee"
_$

yangist

好LE 谢谢~~~~~~~`