Figure 1 Figure 2 |
Fonction TranslateImg(Str) Start=instr(str, "[picture]") 'Vérifiez la position de départ de la marque Si start=0 alors quittez la fonction 'La position de départ est 0, ce qui signifie qu'une telle marque n'existe pas, alors le programme se termine End=instr( start, str,"[/ Picture]" 'Vérifiez la position de la marque de fin qui apparaît après la position de départ. Si end=0 alors quittez la fonction 'La position de la marque de fin est 0, ce qui signifie qu'il n'y a pas de marque de fin et le programme se termine MidStr=mid(str, start+4, end- start-4) 'Marquer le contenu au milieu ReplaceStr=mid(str, start, end-start+5) 'Marquer le contenu au milieu avec une marque comme contenu à remplacer Str=replace(instr, ReplaceStr,"<img src= ”&MidStr&”>”) 'Traduire le balisage en HTML TranslateImg Str 'Exécuter cette fonction de manière récursive Fonction de fin |