Gambar 1 Gambar 2 |
Fungsi TranslateImg(Str) Start=instr(str, "[gambar]") 'Periksa posisi awal tanda Jika start=0 maka keluar dari fungsi 'Posisi awal adalah 0, artinya tidak ada tanda tersebut, maka program berakhir End=instr( start, str,"[/ Picture]" 'Periksa posisi tanda akhir yang muncul setelah posisi awal. Jika end=0 maka exit function 'Posisi tanda akhir adalah 0 yang berarti tidak ada tanda akhir dan program berakhir MidStr=mid(str, start+4, end- start-4) 'Tandai konten di tengah replaceStr=mid(str, start, end-start+5) 'Tandai konten di tengah dengan tanda sebagai konten yang akan diganti Str=replace(instr, replaceStr,"<img src= ”&MidStr&”>”) 'Terjemahkan markup ke HTML TranslateImg Str 'Jalankan fungsi ini secara rekursif Fungsi Akhir |