字符串提取问题，请帮忙

jdhszh

    请问如 "河南省人民政府|-45.26|0|45.36|0|0|3.00|3.00|7.01“字符串，其中”|“不要，要想取得里面的每组字符，该如何弄？ 谢谢

BDYCAD

供参考:

(SETQ GG"ASDF|ASDFASDF|AFSDFASDFSADF|")
(SETQ XX "" I 1)
(REPEAT (STRLEN GG);(> (STRLEN GG) I)
  (IF (NOT(EQ (SETQ GGA(SUBSTR GG I 1))"|"))
    (SETQ XX(STRCAT XX GGA)))
  (SETQ I (1+ I)))

ljpnb

参考一下这个:

(defun c:test ()
  (setq A "12.3/33/45/67/9")
  (setq A (strcat A "/"))
  (setq AL (+ (strlen A) 1))
  (setq N 1 i 1)
  (setq S "")
  (while (not (= N AL))
    (if (= (substr A N 1) "/")
      (progn
      (set (read (strcat "N" (rtos i))) S)
      (setq i (1+ i) S "")
      )
      (setq S (strcat S (substr A N 1)))
    )
    (setq N (1+ N))
   
  )
  (print n1)
  (print n2)
  (print n3)
  (print n4)
  (princ)
)

jdhszh

(setq wbzc "五岳庙林场北|cshihd|cromand|6.86|0.00|0|0|0|6.00|6.00|0.50|1.00")
(setq wbzc (strcat "|" wbzc "|"))
(while (not (eq wbzc (vl-string-subst " " "|" wbzc)))
  (setq numq(vl-string-search "|" wbzc))
  (setq wbzc(vl-string-subst " " "|" wbzc))
  (setq numh(vl-string-search "|" wbzc))
  (if numh (setq wzjd (substr wbzc (+ numq 2) (- numh numq 1))))
  (prin1 wzjd)
)
我用这个方法处理觉得复杂,且不能把结果赋给不同变量，有没有更简单的。