수다닷컴

sub findreplace(byval search as string, byval replacetext as string)
dim i as long, temp as string

i = instr(richtextbox1.selstart + richtextbox1.sellength + 1, richtextbox1.text, search)

if i = 0 then
msgbox & search & 를 더이상 찾을 수 없습니다., vbinformation, 찾아바꾸기
else
if i 1 then temp = left$(richtextbox1.text, i - 1)
temp = temp & replacetext & mid$(richtextbox1.text, i + len(search))
richtextbox1.text = temp
richtextbox1.selstart = i + len(replacetext) - 1
end if
end sub이 소스가 있어요.리치텍스트에 있는 문자열중에 curr=201108031953 이런게 있어요.근데 빨강색부분은 계속 바뀌는데요. 찾을때 curr=를 찾구 뒷부분을 파싱해야되는데요.위에 수다님의 소스로 찾기만 하려면 어떻게 사용해야되는건가요..?사용법이 안나와 있어서 답답하내요 ㅜㅜ

신청하기