![]() 圖1 ![]() 圖2 |
Function TranslateImg(Str) Start=instr(str,”[圖片]”) ‘檢查標記的開始位置 If start=0 then exit function ‘開始位置為0,表示沒有這個標記,那么程序結束 End=instr(start,str,”[/圖片]” ‘檢查繼該開始位置之后所出現的結束標記位置 If end=0 then exit function ‘結束標記出現位置為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 ‘遞歸執行該函數 End Function |
新聞熱點
疑難解答