Function LoseHtml(ContentStr)

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regEx.Pattern = "<\/*[^<>]*>" '这是完全去除HTML代码的正则

'regEx.Pattern="/<(\w+)\s[^>]*>/g" '这是简化HTML代码的正则

regEx.IgnoreCase = True

regEx.Global = True

ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")

LoseHtml = ClsTempLoseStr

End function

function DelHtml(htmlCode)

dim iStart,iEnd

dim sTemp

sTemp=htmlCode

iStart=instr(sTemp,"<")

iEnd=instr(sTemp,">")

do while iStart>0 and iEnd>0 and iEnd-iStart>0

sTemp=replace(sTemp,mid(sTemp,iStart,iEnd-iStart+1),"")

iStart=instr(sTemp,"<")

iEnd=instr(sTemp,">")

loop

DelHtml=sTemp

end function

以上两种方法均可以达到去除HTML代码的效果。