[求助]：如何提取字符串中非空格部分?

yytt

例如:
字符串"     12  345      45   aa"
如何将"12"设为变量a;"345"设为变量b;"45"设为变量c;"aa"设为变量d?各变量仍为字符串。

hqd9639

用XD_API
(setq str " 12 345 45 aa")

(xdrx_string_tok str " ")
("12" "345" "45" "aa")

还可用这个函数：
(defun parse (str delim / lst pos)
  (setq pos (vl-string-search delim str))
  (while pos
      (setq lst (cons  (substr str 1 pos)  lst)
              str (substr str (+ pos 2))
              pos (vl-string-search delim str)
      )
  )
  (if (> (strlen str) 0)
    (setq lst (cons str lst))
  )
  (reverse lst)
)

snsj

最初由 yytt 发布
[B]例如:
字符串"     12  345      45   aa"
如何将"12"设为变量a;"345"设为变量b;"45"设为变量c;"aa"设为变量d?各变量仍为字符串。 [/B]

2. 
   
3. (setq a (itoa(read " 12 345 45 aa"))
   
4.       vs (vl-string-subst " " a " 12 345 45 aa")
   
5.       b (itoa(read vs))
   
6.       vsb (vl-string-subst " " b vs)
   
7.       c (itoa(read vsb))
   
8.       d (strcase(vl-symbol-name(read(vl-string-subst " " c vsb)))
   
9.                 t)
   
10.       )
    

<br /> (setq a (itoa(read " 12 345 45 aa"))<br />       vs (vl-string-subst " " a " 12 345 45 aa")<br />       b (itoa(read vs))<br />       vsb (vl-string-subst " " b vs)<br />       c (itoa(read vsb))<br />       d (strcase(vl-symbol-name(read(vl-string-subst " " c vsb)))<br />                 t)<br />       )<br />

aeo

最初由 hqd9639 发布
[B]用XD_API
(setq str " 12 345 45 aa")

(xdrx_string_tok str " ")
("12" "345" "45" "aa")

还可用这个函数：
(defun parse (str delim / lst pos)
  (setq pos (vl-string-search delim str))
  (while p... [/B]

用xdrx_string_tok 可以,但下面parse 的
(parse "  234  34  " " ")-->("" "" "234" "" "34" "")

花了几分钟,没严格测试

2. 
   
3. (defun str-trim(a / li no)
   
4. (setq li '()a (vl-string-trim " " a))
   
5. (while(setq no(vl-string-search " " a))
   
6.        (setq li(cons(substr a 1 no)li)
   
7.               a (vl-string-trim " "(substr a (1+ no))))
   
8.   )
   
9. (if(/= a "")(setq li(cons a li)))
   
10. (reverse li)
    
11. )

<br /> (defun str-trim(a / li no)<br /> (setq li '()a (vl-string-trim " " a))<br /> (while(setq no(vl-string-search " " a))<br />        (setq li(cons(substr a 1 no)li)<br />               a (vl-string-trim " "(substr a (1+ no))))<br />   )<br /> (if(/= a "")(setq li(cons a li)))<br /> (reverse li)<br /> )

(str-trim "  234  34  er " )-->("234" "34" "er")
只砍空格

hqd9639

最初由 aeo 发布
[B][QUOTE]最初由 hqd9639 发布
[B]用XD_API
(setq str " 12 345 45 aa")

(xdrx_string_tok str " ")
("12" "345" "45" "aa")

还可用这个函数：
(defun parse (str delim / lst pos)
  (setq pos (vl... [/B]

aeo,我试过没有你说的发生。而且这个函数不只是砍空格，它还可以把其它字符分隔的字符串分解为字符串表，比较通用。