title image


Smiley VB.Net und XML (http://www.galileocomputing.de/openbook/....)
Bin noch immer dabei mich in VB.Net einzulernen, scheitere zur Zeit an dem für mich wichtigsten Teil, einem XML Import.



Code von http://www.galileocomputing.de/openbook/vb_net/msvb100002.htm#Rxxmsvb100002418DurchlaufenvonmehrerenEbenen . Habe die drei Codestellen die nicht funktionieren kommentiert. Referenz wurde mit Imports System.Xml gesetzt.



Mein einziger Verdacht ist jetzt, dass bei der (englischen) Express Edition da irgendwas in die Richtung einfach fehlt, oder so ähnlich.



Ich komm mir bei der Fragestellung etwas blöd vor, aber wenn Beispielcode nicht funktioniert, bin ich irgendwie etwas überfordert.





Sub MeinEigenesXML()

Dim xml As New Xml.XmlDocument

Dim xmlElement As Xml.XmlElement



xml.Load "C:\test.xml"

strText = xml.documentElement.baseName & vbCr

'Diese Eigenschaft gibt es schon einmal nicht (.basename)

xmlElement = xml.documentElement



Call XMLDurchlauf(xmlElement)



MessageBox.Show(strText)

End Sub



Sub XMLDurchlauf(ByVal xmlElement As Xml.XmlElement)

Dim i As Integer

For i = 0 To xmlElement.childNodes.Length - 1

'Fehler: Length is not a member of System.XML.XMLNodeList

With xmlElement.childNodes(i)

If .nodeType = Xml.XmlNodeType.Element Then

strText = strText & _

xmlElement.childNodes(i).nodeName & ": "

'Fehler: nodeName is not a member of System.XML.XMLNode

XMLDurchlauf xmlElement.childNodes(i)

ElseIf .nodeType = Xml.XmlNodeType.Text Then

strText = strText & . Value & vbCr

Else

strText = strText & " ** ?? ** "

End If

End With

Next i

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: