Figura 1 Figura 2 |
Função TranslateImg(Str) Start=instr(str, "[picture]") 'Verifica a posição inicial da marca Se start=0 então sai da função 'A posição inicial é 0, o que significa que não existe tal marca, então o programa termina End=instr( start, str,"[/ Picture]" 'Verifique a posição da marca final que aparece após a posição inicial Se end=0 then exit function 'A posição da marca final é 0, o que significa que não há marca final e. o programa termina MidStr=mid(str, start+4, end- start-4) 'Marca o conteúdo no meio ReplaceStr=mid(str, start, end-start+5) 'Marca o conteúdo no meio com uma marca como o conteúdo a ser substituído Str=replace(instr, ReplaceStr,"<img src= ”&MidStr&”>”) 'Traduzir marcação para HTML TranslateImg Str 'Executa esta função recursivamente Função final |