Figura 1 Figura 2 |
Función TraducirImg(Str) Start=instr(str, "[imagen]") 'Compruebe la posición inicial de la marca. Si start=0 entonces salga de la función 'La posición inicial es 0, lo que significa que no existe tal marca, entonces el programa finaliza End=instr( start, str,"[/ Picture]" 'Verifique la posición de la marca final que aparece después de la posición inicial. Si end=0 entonces salga de la función 'La posición de la marca final es 0, lo que significa que no hay marca final y. el programa termina MidStr=mid(str, start+4, end-start-4) 'Marcar el contenido en el medio ReemplazarStr=mid(str, start, end-start+5) 'Marcar el contenido en el medio con una marca como contenido a reemplazar Str=replace(instr, ReemplazoStr,"<img src= ”&MidStr&”>”) 'Traducir marcado a HTML TranslateImg Str 'Ejecuta esta función de forma recursiva Función final |