XML Encoding – EncodeXML – Ipercube Technical

XML Encoding – EncodeXML

Encodes a string for safe use in XML by escaping reserved characters.

This function uses an XmlWriter to encode the input as a valid XML text fragment, ensuring special characters are escaped correctly.

    Public Function EncodeXML(ByVal StringToEncode As String) As String

        If Len(StringToEncode) = 0 Then Return String.Empty
        
        Dim encodedString = New StringBuilder()

        Dim writersettings = New System.Xml.XmlWriterSettings
        writersettings.ConformanceLevel = Xml.ConformanceLevel.Fragment
        Using writer = System.Xml.XmlWriter.Create(encodedString, writersettings)
            writer.WriteString(StringToEncode)
        End Using

        Return encodedString.ToString
    End Function

    Public Function EncodeXML(ByVal StringToEncode As String) As String

        If Len(StringToEncode) = 0 Then Return String.Empty
        
        Dim encodedString = New StringBuilder()

        Dim writersettings = New System.Xml.XmlWriterSettings
        writersettings.ConformanceLevel = Xml.ConformanceLevel.Fragment
        Using writer = System.Xml.XmlWriter.Create(encodedString, writersettings)
            writer.WriteString(StringToEncode)
        End Using

        Return encodedString.ToString
    End Function

Posted by ipercube