læsning af xml fil

Jeg smuttede lige ind hos microsoft:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q263247

Public Function RecordsetFromXMLString(sXML As String) As Recordset

    Dim oStream As ADODB.Stream
    Set oStream = New ADODB.Stream
   
    oStream.Open
    oStream.WriteText sXML  'Give the XML string to the ADO Stream

    oStream.Position = 0    'Set the stream position to the start

    Dim oRecordset As ADODB.Recordset
    Set oRecordset = New ADODB.Recordset
     
    oRecordset.Open oStream    'Open a recordset from the stream

    oStream.Close
    Set oStream = Nothing

    Set RecordsetFromXMLString = oRecordset  'Return the recordset

    Set oRecordset = Nothing

End Function

http://www.magik.dk/vis_artikel.asp?id=2

//>Rune

Jeg går i stå med denne fejl i denne linie.

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

er det en component eller andet jeg skal bruge...

/gert

Hvis du vælger medions løsning skal du have installeret MSXML. Vælger du min skal du have ADO 2.7.

Kan man lokke noget kode ud af jer, som bruger min xml fil...
'

Gert

Hvis du arbejder med XML skal du bruge en parser, til at parse XML'et. Og da du arbejder i VB, vil jeg regne med at du skal benytte MSXML (som følger med i en version 1,2,3 eller 4 - alle undtagen version 1, hedder MSXML2).

Loader du fil fra VB:
Dim parser as new MSXML2.DomDocument
parser.async = false
parser.load "c:\somewhere\min_fil.xml"

eller hvis du har det i en tekst-streng:
Dim parser as new MSXML2.DomDocument
parser.async = false
parser.loadXML "<a>mitdata</a>"

Gør du det fra ASP, skal du huske at sætte serverHTTPrequest property til TRUE. Når du først har parset dit xml har du alle DOM muligheder:
msgbox parser.documentelement.nodename
msgbox parser.selectSingleElement("<xpath>").nodevalue

Test for fejl med:
if parser.parseError then msgbox parser.parseError.reason

msgbox parser.selectSingleElement("<xpath>").nodevalue

Kan jeg ikke lige få til at virke, hvorfor ikke  ??????

<xpath> skal selvfølgeligt skiftes ud med valid XPath f.eks. //Printer eller /Printer_Info/Printer[@Name="HP45_1"] osv. Se på www.w3c.org for at finde ud af hvad man kan med xpath.

En anden ting er at en tekst node, hænger på en node, derfor skal du benytter firstChild før nodevalue (Hvis din xpath peger på en node). Når du benytter msxml kan du bruge text istedet for nodevalue, den viser alle de textnoder der er under selve noden. f.eks. msgbox parser.selectSingleElement("/Printer_Info/Printer[@Name='HP45_1']/IP_Adr").text skriver ip-adressen ud på den printer der hedder hp45_1.

Den melder fejl på selectSingleElement metode or data member not found


Dim Parser As New MSXML2.DOMDocument
Set Parser = CreateObject("MSXML2.DomDocument.3.0")
Parser.async = False
Parser.Load "U:\Udvikling\Applikationer\Nyt Printerprogram\printere.xml"
If Parser.parseError Then MsgBox Parser.parseError.reason

Set rootelement = Parser.documentElement
Set printerlist = Parser.getElementsByTagName("Server")
MsgBox Parser.documentElement.nodeName

MsgBox Parser.selectSingleElement("/Printer_Info/Printer[@Name='HP45_1']/IP_Adr")

 
End
End Sub

Med Parser.selectSingleElement("/Printer_Info/Printer[@Name='HP45_1']/IP_Adr") får du jo en IP_Adr node med ud. Den har ingen værdi i sig selv. Tekstnoden under den har dog en værdi!! -Hvis du ønsker at skrive et eller andet ud, kan du på samme måde som du gør ovenover, skrive nodename ud ... eller benytte text for at få værdien ud.

f.eks.
MsgBox Parser.selectSingleElement("/Printer_Info/Printer[@Name='HP45_1']/IP_Adr").nodeName

eller

MsgBox Parser.selectSingleElement("/Printer_Info/Printer[@Name='HP45_1']/IP_Adr").text

det er selve komandoen  selectSingleElement den melder fejl på.
den findes slet ikke, jeg har en selectSingleNode.

Gert

Undskyld den hedder selectSingleNode, den er desværre ikke en del af DOM recommendation så den virker ikke i andre parsere end msxml. Og da jeg koder mest Java kan sådanne detaljer jo smutte :-)

/Jacob

Så er den på plads,
kan man søge på et printernavn og få det ud men tilhørende underpunkter

Gert

Jeg er ikke sikker på hvad du spørger om, men hvis du vil udskrive alle de tags der er under kan du skrive:

msgbox Parser.selectSingleNode("/Printer_Info/Printer[@Name='HP45_1']").xml

Hvis du kun vil have printernavnet:

msgbox Parser.selectSingleNode("/Printer_Info/Printer").Attributes.getNamedItem("Name").text

Du skal huske på at det er XML, så du kan altid få fat i de elementer der ligger under den node du har fat i på nuværende tidspunkt.
f.eks.

minNode = Parser.selectSingleNode("/Printer_Info/Printer")
msgbox minNode.Attributes.getNamedItem("Name").text
for each child in nimNode.childNodes
  msgbox child.text
next

osv.

/Jacob

skal minNode så ikke dimmes på en eller anden måde....

som du ser er de 200 hjemme....

jo hvis du kører med option explicit i VB... ellers kan du dimme den til:

Dim minNode As MSXML2.IXMLDOMNode

Så får du lookup's!!

/Jacob

hvad skal nimnode så settes til...

set minNode = ????

jo som alle andre objekter skal den sættes f.eks.

Dim minNode As MSXML2.IXMLDOMNode
set minNode = Parser.selectSingleNode("/Printer_Info/Printer")

nu bliver minNode til DOMNoden printer, og du kan herefter arbejde med den..!!