VL-string-subst (특정 문자 교체)
(vl-string-subst new-str pattern string [start-pos])
new-str : 변경할 문자
pattern : 변경되어질 문자
string : 원본글자
[start-pos] : 대괄호 역시 생략가능하구 아래 vl-string-search 와 같습니다.^^
리턴값 : 변경후 문자.^^
example
_$ (vl-string-subst "h" "a" "hahahahah")
"hhhahahah"
( a 가 여러개가 있지만 첫번째 a 만 h 로 변경이 됩니다)
( 그러므로 대체를 다 할려면
(setq sting "aaaaaa")
(while (/= (vl-string-search "a" string) nil)
(setq stirng (vl-string-subst "h" "a" string))) 이런식의 응용이 가능합니다. 있으면 바꾸라~
_$ (vl-string-subst "h" "A" "hahahahah")
"hahahahah"
(대소문자 구별을 합니다.)
_$ (vl-string-subst "h" "k" "hahahahah")
"hahahahah"
(해당 pattern 이 없으면 nil을 응답하는게 아니라 string 을 응답하네여.^^)
_$ (vl-string-subst "h" "a" "hahahahah" 4)
"hahahhhah"
(뒤에 4 가 붙어서 0 1 2 3 4 즉 5번째 글자뒤에서 첫번째 a 가 h 로 변경이 되네여.^^)
출처 : 아키모아 행복한 하루 http://cafe.daum.net/archimore/IP9e/23
'Auto CAD > lisp' 카테고리의 다른 글
VL-string-translate (문자 문자 1:1 교체하기) (0) | 2019.04.04 |
---|---|
Vl-string-position (특정문자 위치 찾기) (0) | 2019.04.04 |
VL-string-search (문자간 특정문자 비교) (0) | 2019.04.04 |
vl-sort 에 대해.. (1) | 2019.04.04 |
VLAX-dump-object (객체의 정보값 DXF코드 역할) (0) | 2019.04.04 |