<![CDATA[
<p><b>※ <span style="color: #ee2323;">말머리 필수</span> (말머리 누락시 통보없이 게시 글이 삭제될 수 있습니다.)</b></p><p> </p><p><b>※ 회원정보는 최소한 '<span style="color: #ee2323;">운영진 공개</span>'로 지정</b></p><p> </p><p><b>※ 캐드나 리습 관련 질문일 경우 <span style="color: #ee2323;">반드시 캐드 종류와 버전 명기</span> (<b>ex> 오토캐드2022 / 윈10 64비트)</b></b></p><p><b>   <캐드 / 윈도우 종류 및 버전 :                            /                               ></b></p><p> </p><p><b>※ 질문은 최대한 성의있고 자세하게 (답변자가 되묻게 질문하지 말아주세요.)</b></p><p> </p><p><span style="color: #000000;"><b>※ 이외는 자유롭게 글 남겨 주시면 됩니다.</b></span></p><p> </p><p> </p><p> </p><p>안녕하세요</p><p>카페 글을 읽다 보니 문자와 숫자가 있을 경우</p><p>(예)  test123   숫자만 추출 하는 프로그램은 많은데 </p><p>혹시 문자만 추출 하는 방법도 있을까요?</p><p> </p><p>달수님이 올려주신 프로그램</p><p><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">(defun mrStr2int (s / cn n c)</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">(setq cn 1 n "")</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">(repeat (strlen s)</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">(setq c (ascii (substr s cn 1)))</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">(if (or (< 47 c 58)(= c 45)(= c 46))</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">(setq n (strcat n (chr c)))</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">)</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">(setq cn (1+ cn))</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">) n</span><br><span style="color: #333333; background-color: #f8f8f8;" data-ke-size="size16">)</span></p><p>이프로그램을 해보니 숫자만  잘 읽어 오네요</p>
<!-- -->]]>
카페 게시글
검색이 허용된 게시물입니다.
다음검색
첫댓글 https://github.com/qudrnr/lisp/blob/main/function-list/String.lsp 에서 qr-string-removeNumber 검색해보세요
병국님 안내해주신 자료로 하니까 문자만 추출이 되네요
좋은 정보 감사 드립니다
https://cafe.daum.net/archimore/ESJj/25244
페이지가 넘어가지도 않는곳에 같은 질문과 답이
죄송합니다 제가 미쳐 보질 못했나 봅니다
(defun mrStr2int (s *op / cn n m c) ; *op = 1 ;숫자만, *op2 = 2 ; 문자만
(setq cn 1 n "" m "")
(repeat (strlen s)
(setq c (ascii (substr s cn 1)))
(if (or (< 47 c 58) (= c 46))
(setq n (strcat n (chr c)))
(setq m (strcat m (chr c)))
)
(setq cn (1+ cn))
)
(cond
((eq *op 1) n)
((eq *op 2) m)
)
)
;_$ (mrStr2int "test-123" 1)
;"123"
;_$ (mrStr2int "test-123" 2)
;"test-"