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”标记语言了。
在实际的开发中还会有一些课题需要攻破,比如:标记嵌套的处理;是在将用户提交到数据库之前就翻译还是待用户浏览文章从数据库中调出来时才翻译;为用户提供一些自动插入标记的按钮方便用户的操作体验登.本文仅作抛砖引玉之用希望引得读者一点欣赏。