図1 図2 |
関数TranslateImg(Str) Start=instr(str, "[picture]") 'マークの開始位置を確認します start=0 の場合、関数を終了します '開始位置は 0、つまりそのようなマークがないことを意味し、プログラムは終了します End=instr( start, str,"[/ Picture]" '開始位置の後に表示される終了マークの位置を確認します。end=0 の場合は関数を終了します。'終了マークの位置は 0 です。つまり、終了マークはありません。プログラムは終了します MidStr=mid(str, start+4, end-start-4) ' 真ん中のコンテンツにマークを付けます ReplaceStr=mid(str, start, end-start+5) ' 真ん中のコンテンツにマークを付けます置換するコンテンツとして Str=replace(instr, ReplaceStr,"<img src= ”&MidStr&”>”) 'マークアップを HTML に変換 TranslateImg Str 'この関数を再帰的に実行します 終了機能 |