잘 안되서..
“P-1001-A1A”인 값을 “P 1001 A1A”로 바꾼후
a1 = “P”
a2 = “1001”
a3 = “A1A”
가 되게 하려는데 안되네요..
사용자가 “P-1001-A1A” 로 값을 기입하지 않고
“P – 1001-A1A”로 비슷하긴하나 잘못 기입한 경우에도
위와 같이 a1,a2,a3 값이 나오게 하려고 합니다.
부탁드립니다.
( DEFUN C:AAA ()
(SETQ CLINE “P-1001-A1A”)
(princ cline)
(setq n 1)
(setq n_l (strlen cLine))
(PRINC N_L)
(while (< n n_l)
(if (= (substr cLine n 1) “-“)
(setq cLIne (strcat (substr cLine 1 (- n 1)) ” ” (substr cLine (+ n 1) (- n_l n))))
)
(setq n (1+ n))
)
(princ “n”)
(princ cLine)
(princ “n”)
;(setq cline (STRCAT “‘(” CLINE “)”))
(setq a1 (nth 0 cline)) ; ans -> P
(setq a2 (nth 1 cline)) ; ans -> 1001
(setq a3 (nth 2 cline)) ; ans -> A1A
(princ “n”)
)