Gab: Tag in Tag ersetzen in VBScript

SELF-Forum

Tag in Tag ersetzen in VBScript

Gab
+1 Informationen zu den Bewertungsregeln

Hallo allerseits,

ich habe eine xml-Datei, in der soetwas vorkommt:

<var name="text">
 <string>
  Texta
   <char code="0A" />
  textb
 </string>
</var>

Ich schaffe es, den string auszulesen. Er wirft mir aber als Ergebnis "Textatextb" aus. Wie kann ich meinem Script beibringen, wenn er "<char code="0A" />" findet, ein Leerzeichen zu setzen?

Danke
Gab

Beitrag melden
+1
Informationen zu den Bewertungsregeln

  1. Tag in Tag ersetzen in VBScript

    Gab
    – Informationen zu den Bewertungsregeln

    Um ein paar weiter Infos zu geben:
    ...
    <tag name="art">
     <string>text</string>
    <var name="text">
     <string>Texta</string>
    </var>
    <tag name="art">
     <string>sonder</string>
    <var name="text">
     <string>Texta
       <char code="0A" />
      textb
     </string>
    </var>
    ...

    Es geht dabei um den Tag <string> unter <var name="Text">.

    Eingelesen werden die Daten per XPath.
    Die Pfade lauten:
    node1: "/var/string[parent::var[@name='art']]"
    node2: "/var/string[parent::var[@name='text']]",

    der VB-Code:
    Set nodeliste = DateiXML.documentElement.selectNodes(path)
     For I = 0 To (nodeliste.length - 1)
       neupath = path & "[position()=" & (I + 1)& "]"
       ReDim Preserve Feld(i)
       Set wertnode = DateiXML.documentElement.selectSingleNode(neupath & node1)
       wert1 = wertnode.text
       Set wertnode = DateiXML.documentElement.selectSingleNode(neupath & node2)
       wert2 = wertnode.text
       Feld(i) = wert1&";"&wert2
    Next

    Damit kann ich mir jeweils die beiden Tag-Paare zusammen ausgeben lassen.

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln