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 通过以上分析,相信读者能够通过自己的分析为自己的网站构建一套”MyHTML”标记语言了。