CS程序中XML编码Encode和解码Decode

Function XMLEncode(ByVal text As String) As String
    Dim xmldoc
    Set xmldoc = CreateObject("Microsoft.XMLDOM")
    Dim e As IXMLDOMElement
    Set e = xmldoc.createElement("a")
    e.text = text
    XMLEncode = Mid(e.xml, 4, Len(e.xml) - 7)
End Function

Function XMLDecode(ByVal xml As String) As String
    Dim xmldoc
    Set xmldoc = CreateObject("Microsoft.XMLDOM")
    xmldoc.loadXML "<a>" & xml & "</a>"
    Dim e As IXMLDOMElement
    Set e = xmldoc.selectSingleNode("a")
    XMLDecode = e.text
End Function