그림 1 그림 2 |
함수 TranslateImg(Str) Start=instr(str, "[picture]") ' 마크의 시작 위치를 확인합니다. start=0이면 함수를 종료합니다. '시작 위치는 0입니다. 이는 해당 마크가 없음을 의미하며 프로그램이 종료됩니다. End=instr( start, str,"[/ Picture]" '시작 위치 뒤에 나타나는 끝 표시의 위치를 확인합니다. end=0이면 종료 기능 '끝 표시의 위치는 0이므로 끝 표시가 없음을 의미하고 프로그램이 종료됩니다. MidStr=mid(str, start+4, end- start-4) '가운데 내용을 표시합니다. RefreshStr=mid(str, start, end-start+5) '가운데 내용을 표시로 표시합니다. 대체할 콘텐츠로 Str=replace(instr, 바꾸기Str,"<img src= ”&MidStr&”>”) '마크업을 HTML로 번역 TranslateImg Str '이 함수를 재귀적으로 실행합니다. 기능 종료 |