看看这个,我相信李等会做得更好,但工作。为了测试,我将属性延长了一点。你会把它变成defun(twoans“D”)
- (defun twoans (w / x y z ans1 ans2)
- (setq att "S1-23D1-456")
- (setq x 1)
- (setq ans1 "")
- (setq ans2 "")
- (repeat (setq z (strlen att))
- (setq char (substr att x 1))
- (if (= char w)
- (setq y x)
- )
- (setq x (+ x 1))
- )
- (setq ans1 (substr att 1 (- y 1)))
- (setq ans2 (substr att y (+ (- z y) 1)))
- )
|