![]() 圖1 ![]() 圖2 |
Function TranslateImg(Str) Start=instr(str,”[圖片]”) ‘檢查標(biāo)記的開始位置 If start=0 then exit function ‘開始位置為0,表示沒有這個(gè)標(biāo)記,那么程序結(jié)束 End=instr(start,str,”[/圖片]” ‘檢查繼該開始位置之后所出現(xiàn)的結(jié)束標(biāo)記位置 If end=0 then exit function ‘結(jié)束標(biāo)記出現(xiàn)位置為0,表示沒有結(jié)束標(biāo)記,程序結(jié)束 MidStr=mid(str,start+4,end-start-4) ‘標(biāo)記中間的內(nèi)容 ReplaceStr=mid(str,start,end-start+5) ‘標(biāo)記中間的內(nèi)容加上標(biāo)記,作為將要替換的內(nèi)容 Str=replace(instr,ReplaceStr,”<img src=”&MidStr&”>”) ‘將標(biāo)記翻譯為HTML TranslateImg Str ‘遞歸執(zhí)行該函數(shù) End Function |
新聞熱點(diǎn)
疑難解答
圖片精選
網(wǎng)友關(guān)注