VB.NET XML Einlesen & -> & Problem im String!

  • VB.NET

    VB.NET XML Einlesen & -> & Problem im String!

    Hallo Zusammen

    Ich habe mein einlesen einer XML Datei ein Problem

    Die XML Datei

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <Anweisungen>
    3. <DOC Location="XYS" Button_Name="TEST_1" URL="http://TEST.DE/ContentServer/ContentServer.dll?get&pVersion=0000&cont=&docId=66666F&compId=TEST_DATEI.api&accessMode" />
    4. </Anweisungen>



    Wenn ich diese Datei einlese, kommt die Meldung

    VB.NET-Quellcode

    1. Ein Ausnahmefehler des Typs "System.Xml.XmlException" ist in System.Xml.dll aufgetreten.
    2. Zusätzliche Informationen: '.', hexadecimal value 0x00, is an invalid character. Line 2, position 1.


    Ändere ich jetzt die URL in der XML Datei zu

    Änderungen: & --> &amp;

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <Anweisungen><DOC Location="XYS" Button_Name="TEST_1" URL="http://TEST.DE/ContentServer/ContentServer.dll?get&amp;pVersion=0000&amp;cont=&amp;docId=66666F&amp;compId=TEST_DATEI.api&amp;accessMode" />
    3. </Anweisungen>


    wird die Datei ganz normal eingelesen.


    Wie kann ich den Code ändern, das er die URLs mit & Zeichen und HTML &amp; verarbeitet?

    Der Code, den ich benutze

    VB.NET-Quellcode

    1. Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(File_XMLs.Name)
    2. With XMLReader
    3. Do While .Read
    4. Select Case .NodeType ' <----- Kommt die Fehlermeldung wenn ein reines & Zeichen im URL String ist!
    5. Case Xml.XmlNodeType.Element
    6. If .AttributeCount > 0 Then
    7. While .MoveToNextAttribute
    8. If .Name = "Location" Then
    9. Location = .Value
    10. End If
    11. If .Name = "Button_Name" Then
    12. Button_Name = .Value
    13. End If
    14. If .Name = "URL" Then
    15. URL = .Value
    16. End If
    17. End While
    18. End Select
    19. .Close()



    Gruß

    Frigo