vb 去掉html中的回车和tab；转换部分html大写标签为小写

'//去掉各种回车空格符
Public Function replaceEnter(bStr As String)
    
    bStr = Replace(bStr, " ", "")
    bStr = Replace(bStr, vbTab, "")
    bStr = Replace(bStr, vbCrLf, "")
    bStr = Replace(bStr, Chr(13) + Chr(10), "")
    bStr = Replace(bStr, Chr(13), "")
    bStr = Replace(bStr, Chr(10), "")
    replaceEnter = bStr
End Function

'//网页标签改为小写
Public Function htmlLableToSmall(strHtml As String)
    
    strHtml = Replace(strHtml, "<A", "<a")
    strHtml = Replace(strHtml, "</A", "</a")
    
    strHtml = Replace(strHtml, "<SPAN", "<span")
    strHtml = Replace(strHtml, "</SPAN", "</span")
    
    strHtml = Replace(strHtml, "<DIV", "<div")
    strHtml = Replace(strHtml, "</DIV", "</div")
    
    strHtml = Replace(strHtml, "<UL", "<ul")
    strHtml = Replace(strHtml, "</UL", "</ul")
    
    strHtml = Replace(strHtml, "<LI", "<li")
    strHtml = Replace(strHtml, "</LI", "</li")
    
    strHtml = Replace(strHtml, "<IMG", "<img")
    strHtml = Replace(strHtml, "</IMG", "</img")
    
    strHtml = Replace(strHtml, "<P", "<p")
    strHtml = Replace(strHtml, "</P", "</p")
    
    strHtml = Replace(strHtml, "<STRONG", "<strong")
    strHtml = Replace(strHtml, "</STRONG", "</strong")
    
    strHtml = Replace(strHtml, "<EM", "<em")
    strHtml = Replace(strHtml, "</EM", "</em")
    
    strHtml = Replace(strHtml, "<DL", "<dl")
    strHtml = Replace(strHtml, "</DL", "</dl")
    
    strHtml = Replace(strHtml, "<DD", "<dd")
    strHtml = Replace(strHtml, "</DD", "</dd")
    
    strHtml = Replace(strHtml, "<DT", "<dt")
    strHtml = Replace(strHtml, "</DT", "</dt")
    
    strHtml = Replace(strHtml, "<B", "<b")
    strHtml = Replace(strHtml, "</B", "</b")
    
    htmlLableToSmall = strHtml
    
End Function