XML+VB6

20/02/2009 - 08:31 von Stefan Karger | Report spam
Gegeben sei folgende XML-Datei:

<?xml version="1.0" ?>
<Report>
<Category Name="Measure">
<App Name="Common">
<Group Name="PatientGroup" ReportType="PatientInfo">
<Calc Name="MCR_BODY_HEIGHT_SELECTED" Status="SUCCESS" Value="186.0" ...
[...]

Wie lese ich nun einen definierten Abschnitt heraus?

z.b. den:

<Calc Name="MCR_BODY_HEIGHT_SELECTED" Status="SUCCESS" Value="186.0"

Ich möchte zu "MCR_BODY_HEIGHT_SELECTED" den Value von 186.0 haben?

Wàre für Tips dankbar.

Mit DOM und XML in VB6 ist mir alles klar, aber ich schaffe es nicht, den
Baum irgendwie
auseinanderzubauen!
 

Lesen sie die antworten

#1 Peter Fleischer
23/02/2009 - 09:04 | Warnen spam
"Stefan Karger" schrieb im Newsbeitrag
news:gnlme3$p56$01$
Gegeben sei folgende XML-Datei:

<?xml version="1.0" ?>
<Report>
<Category Name="Measure">
<App Name="Common">
<Group Name="PatientGroup" ReportType="PatientInfo">
<Calc Name="MCR_BODY_HEIGHT_SELECTED" Status="SUCCESS" Value="186.0" ...
[...]

Wie lese ich nun einen definierten Abschnitt heraus?

z.b. den:

<Calc Name="MCR_BODY_HEIGHT_SELECTED" Status="SUCCESS" Value="186.0"

Ich möchte zu "MCR_BODY_HEIGHT_SELECTED" den Value von 186.0 haben?

Wàre für Tips dankbar.

Mit DOM und XML in VB6 ist mir alles klar, aber ich schaffe es nicht, den
Baum irgendwie
auseinanderzubauen!



Hi Stefan,
nachfolgend ein Codeschnipsel zu deiner Farge:

Set objXML = New MSXML2.DOMDocument
objXML.Load "c:\temp\x.xml"
Set objElm = objXML.documentElement
For Each itm In objElm.getElementsByTagName("Calc")
For Each att In itm.Attributes
If att.Name = "Value" Then Debug.Print itm.tagName, att.Name, att.Value
Next
Next

Ich liebe die Unterstützung von XML in VB.NET :-)

Viele Grüsse
Peter

Ähnliche fragen