vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB Skript (VBS)
Wert aus XML-Datei in Variable lesen 
Autor: ReneGade
Datum: 25.09.12 15:41
Hallo,

folgendes kleines Problem:

Ich habe eine XML-Datei, die in einem Abschnitt wie folgt aussieht.

<RACKS>
<RACK barcode="075000242448">
<RACK_NAME>IPRIM1_M</RACK_NAME>
<RACK_TYPE>PL</RACK_TYPE>
<RACK_ORIGIN>MANUELL</RACK_ORIGIN>
<STATUS>OK</STATUS>

Ich will hier den Wert für <RACK_NAME> auslesen und in eine Variable speichern. Wie ich die Datei öffne, konnte ich dank einer Google-Suche herausfinden: 

set xmlDoc = createobject("Microsoft.XMLDOM")
xmlDoc.async = "false"
xmlDoc.load(tmp_MotherPath)
tmp_MotherPath ist natürlich der Pfad zur XML-Datei.

Aber wie geht es jetzt weiter? XMLDOM sollte dafür ja eine Funktion bereithalten, nur finde ich dazu keine Dokumentation irgendwo, bzw. nur recht komplexe Beispiele, die mir nicht so recht weiterhelfen. Wahrscheinlich ist das total trivial - kann mir da jmd weiterhelfen?

Danke im Vorraus,

ReneGade
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Wert aus XML-Datei in Variable lesen 
Autor: ReneGade
Datum: 25.09.12 17:42
Hallo,

habe jetzt doch noch ein verständliches Beispiel gefunden und konnte das lösen: 

set xmlDoc = createobject("Microsoft.XMLDOM")
xmlDoc.async = "false"
xmlDoc.load(tmp_MotherPath)
If xmlLoaded = False Then
MsgBox "Datei konnte nicht geladen werden."
Else
RackName =xmldoc.selectSingleNode("TEST_PLAN/RACKS/RACK/RACK_NAME").text
End if
Tatsächlich trivial...
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Wert aus XML-Datei in Variable lesen - neues Problem 
Autor: ReneGade
Datum: 05.11.12 21:12
Hallo,

ich hänge das jetzt mal hier dran.

Ich versuche jetzt, ein bestehendes xml-File durch zusätzliche Elemente bzw. Nodes zu ergänzen. Folgendermaßen sieht das im Moment aus: 

'Use XMLDOM
set xmlDoc = createobject("Microsoft.XMLDOM")
 
'Open Source File for editing
xmlDoc.Async = "False"
xmlDoc.Load("C:\test.BLAS_VPAI")
 
set RACKS = xmlDoc.selectSingleNode("/TEST_PLAN/RACKS")
for i = 1 to NumOfDPplates
   set NewRackNode = xmlDoc.createElement("RACK")
   NewRackNode.setAttribute "barcode", "DPbarcode"&i
   NewRackNode.setAttribute "action", "ins"
   RACKS.appendChild(NewRackNode)
   set NewRackNode = Nothing
next
 
'Save xml and exit xmlDoc
xmlDoc.Save("C:\test_new.BLAS_VPAI")
"NumOfDPplates" ist hier einfach eine num. Variable, z.B. "6". Dieser Code erzeugt mir Folgendes: 

<RACKS><RACK barcode="DPbarcode1" action="ins"/><RACK _
  barcode="DPbarcode2" action="ins"/><RACK barcode="DPbarcode3" _
  action="ins"/><RACK barcode="DPbarcode4" action="ins"/><RACK _
  barcode="DPbarcode5" action="ins"/><RACK barcode="DPbarcode6" _
  action="ins"/></RACKS>
Sollte aber sein: 

<RACKS>
<RACK barcode="DPbarcode1" action="ins"></RACK>
<RACK barcode="DPbarcode2" action="ins">></RACK>
<RACK barcode="DPbarcode3" action="ins">></RACK>
<RACK barcode="DPbarcode4" action="ins">></RACK>
<RACK barcode="DPbarcode5" action="ins">></RACK>
<RACK barcode="DPbarcode6" action="ins">></RACK>
</RACKS>
Was mache ich falsch? Abseits der Formatierung, meine ich.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel