![]() 图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 |
新闻热点
疑难解答