[求助]：请教各位，如何使取得的字符串中不含空格？

jinsong-liao

请教诸位：
    字符串"abcd    -x"字符的个数固定为10个，其中包含空格
    当前几位字符个数变化（未知）时，如何使取得的字符串中不含空格。
    如(substr "abcd      -x" 1 8)得字符串"abcd      "   要求只得到"abcd"
        (substr "abc       -x" 1 8)得字符串"abc       "     要求只得到"abc"
  请问该咋处理？先谢谢啦！！！

aidraft

_$ (vl-list->string (vl-remove 32 (vl-string->list "    leave me alone   ")))
"leavemealone"

狂刀

不是不是的，楼上的不符合楼主要求
应该用VL-STRING-POSITION  
(substr "abcd -x" 1 (VL-STRING-POSITION  32 "abcd -x" ))
写成函数：

2. 
   
3. ;|提取字符串空格前的字符---by 狂刀
   
4. (trsp "abcd -x")->"abcd"
   
5. (trsp "abc -x")->"abc"
   
6. |;
   
7. (defun trsp (str )
   
8.   (substr str 1 (VL-STRING-POSITION  32 str))
   
9. )

<br /> ;|提取字符串空格前的字符---by 狂刀<br /> (trsp "abcd -x")->"abcd"<br /> (trsp "abc -x")->"abc"<br /> |;<br /> (defun trsp (str )<br />   (substr str 1 (VL-STRING-POSITION  32 str))<br /> )

xyp1964

[php]
(defun test(txt)(vl-string-subst "" " " txt))
[/php]

狂刀

楼主的要求:
如(substr "abcd -x" 1 8)得字符串"abcd " 要求只得到"abcd"

(defun test(txt)(vl-string-subst "" " " txt))

(test "abcd -x") ->"abcd-x"
(test "abcd -x -y") ->"abcd-x -y"

aeo

论坛有讨论,这种格式的.
(test "abcd -x -y" " ") -> '("abcd""-x"" -y" )
这样后面的也可以得到了.
找找吧.