Abbildung 1 Abbildung 2 |
Funktion TranslateImg(Str) Start=instr(str, "[picture]") 'Überprüfen Sie die Startposition der Markierung. Wenn start=0, dann beenden Sie die Funktion. 'Die Startposition ist 0, was bedeutet, dass es keine solche Markierung gibt. Dann endet das Programm. End=instr( start, str,"[/ Picture]" 'Überprüfen Sie die Position der Endmarkierung, die nach der Startposition erscheint. Wenn end=0, dann beenden Sie die Funktion. 'Die Position der Endmarkierung ist 0, was bedeutet, dass es keine Endmarkierung gibt das Programm endet MidStr=mid(str, start+4, end- start-4) 'Markieren Sie den Inhalt in der Mitte. ReplacementStr=mid(str, start, end-start+5) 'Markieren Sie den Inhalt in der Mitte mit einer Markierung als zu ersetzender Inhalt Str=replace(instr, ReplacementStr,"<img src= ”&MidStr&”>”) 'Markup in HTML übersetzen TranslateImg Str 'Diese Funktion rekursiv ausführen Funktion beenden |