Function FilterHtml(str)
Dim temp
temp=replace(str, "<", "<", vbTextCompare)
'将字符串str中所有"<"转换为vbTextCompare编码的"<",就象HTML里的将"<"转为& lt;一样,百度把& lt;转为<了。
。。
没有编码HTML字符,所以我加了个空格,你上面那段应该是temp=replace(str, "<", "& lt;", vbTextCompare)这样才对吧??
FilterHtml=temp
End Function。