(请教)如何读取555/888中的/后的888？

tangdeyu

有一级此格式的数据，在程序读取中，只能使/前的数据相加，/后的数据读不出来。

请教高手，如何解决？

急!

二○○九年六月十三日

caoyin

(setq str "555/888")
(substr str (+ (vl-string-search "/" str) 2))

-》

"888"

tangdeyu

谢谢楼上这么快地回复。

能否不用vlisp，而只用autolisp语言？

盼望能再次答复。

caoyin

(setq str "555/888")
(while (/= (substr str 1 1) "/")
  (setq str (substr str 2))
)
(substr str 2)

ZZXXQQ

(setq str "555/888")
(setq i 1 j nil)
(while (< i (strlen str))
 (if (= (substr str i 1) "/")
  (setq j i i (strlen str))
  (setq i (1+ i))
 )
)
(if j (substr str (1+ j)))

>>

"888"

nonsmall

(setq str "555/888")
(setq i 0)
(while (not (or (= (substr str (setq i (1+ i)) 1) "/") (= i (strlen str)))))
(setq find (substr str (1+ i) (- (strlen str) i)))

tangdeyu

谢谢楼上所有给我帮助的朋友。

感谢了。