[VB.NET Express 2010] Come sistemo le stringhe?

 
' crei un oggetto xml document
 Dim Xmlfile As New Xml.XmlDocument

        Dim XmlLeggi As New XmlTextReader(file)

        XmlLeggi.WhitespaceHandling = WhitespaceHandling.None

        Xmlfile.Load(XmlLeggi)
' lo carichi col tuo log.xml

' estrai la lista dei nodi "event" in un arrei xmlnodelist
        Dim xmlNodo As Xml.XmlNodeList
        xmlNodo = Xmlfile.GetElementsByTagName("event")

' scorri tutti i nodi e ti estrapoli il valore della proprietà "message"

        For Each item As XmlNode In xmlNodo
            Dim str As String = item.Attributes("message").Value
        Next


        XmlLeggi.Close()

        XmlLeggi = Nothing

>potrei fare? E complicato?

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Dim Xmlfile As New Xml.XmlDocument
        Xmlfile.Load("C:\log.xml")

        If (Xmlfile.FirstChild.NodeType = XmlNodeType.XmlDeclaration) Then

            ' Get the encoding declaration.
            Dim decl As XmlDeclaration
            decl = CType(Xmlfile.FirstChild, XmlDeclaration)


            ' Set the encoding declaration.
            decl.Encoding = "ISO-8859-1"


        End If
      

        ' estrai la lista dei nodi "event" in un arrei xmlnodelist
        Dim xmlNodo As Xml.XmlNodeList
        xmlNodo = Xmlfile.GetElementsByTagName("event")

        ' scorri tutti i nodi e ti estrapoli il valore della proprietà "message"

        For Each item As XmlElement In xmlNodo
            Dim str As String = item.Attributes("message").Value
        Next