vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

VB.NET - Ein- und Umsteiger
Hilfe beim ersetzen von Werten in XML-Text 
Autor: Bazi
Datum: 24.11.13 20:27

Hallo, bitte helft mir beim ersetzen von Werten in nachfolgendem XML-Text.
Ich suche nach den Texten, in deren Comment "W1" bis "W5" und Wert stehen.
Also hier ab Text ID = 5.

Diese sollen durch den Inhalt einer gleichnamigen Variablen ersetzt werden.

Der zu verändernde Text =
<?xml version="1.0" encoding="UTF-8"?>
<IGCMarkupStamp xmlns="http://www.infograph.com" majorversion="2" _
  minorversion="9" revision="0">
   <CDLInfo v1="4" v2="2" v3="0" v4="394">
      <DriverInfo v1="2" v2="5" v3="19" v4="32">Pdf2DL</DriverInfo>
      <DriverFormatVersion>1</DriverFormatVersion>
   </CDLInfo>
   <Stamp stamptoinches="0.001" pageheightinches="35.0417" left="13565.5" _
     bottom="22648" right="14285.8" top="23025.9">
      <Matrix>1|0|0|1|0|0</Matrix>
      <Elements>
         <NonEditPolygon id="0" creationtime="1385240583" time="1385240583" _
           guid="070146B05AD1584394B02302A0F04C5B" linewidth="0" _
           linestyle="solid" color="0|0|255" drawstyle="hollow" hyperlink="" _
           comment="">
            <PointList pointcount="4">
               <Point>
                  <x>0.000431118</x>
                  <y>377.96</y>
               </Point>
               <Point>
                  <x>720.253</x>
                  <y>377.96</y>
               </Point>
               <Point>
                  <x>720.253</x>
                  <y>0.00067826</y>
               </Point>
               <Point>
                  <x>0.000431606</x>
                  <y>0.000679163</y>
               </Point>
            </PointList>
         </NonEditPolygon>
         <NonEditPolygon id="1" creationtime="1385240583" time="1385240583" _
           guid="C241CD4DC391D74AA04D1E002815C3BA" linewidth="0" _
           linestyle="solid" color="255|255|255" drawstyle="solid" hyperlink="" _
           comment="">
            <PointList pointcount="4">
               <Point>
                  <x>2.34441</x>
                  <y>374.78</y>
               </Point>
               <Point>
                  <x>719.113</x>
                  <y>374.78</y>
               </Point>
               <Point>
                  <x>719.113</x>
                  <y>1.37471</y>
               </Point>
               <Point>
                  <x>2.34441</x>
                  <y>1.37471</y>
               </Point>
            </PointList>
         </NonEditPolygon>
gekürzt...
         <Text id="5" creationtime="1385240583" time="1385240583" _
           guid="E8A93E65E72B14409715C7473D14C7EC" color="0|0|255" _
           secondarycolor="255|255|255" fontsize="0.012" italic="false" _
           bold="false" opaque="secondarycolor" underline="false" font="Arial" _
           hyperlink="" comment="W1">
            <PointList pointcount="4">
               <Point>
                  <x>142.265</x>
                  <y>284.646</y>
               </Point>
               <Point>
                  <x>308.15</x>
                  <y>284.646</y>
               </Point>
               <Point>
                  <x>308.15</x>
                  <y>221.571</y>
               </Point>
               <Point>
                  <x>142.265</x>
                  <y>221.571</y>
               </Point>
            </PointList>
            <TextLine>12,345</TextLine>
         </Text>
gekürzt...
      </Elements>
   </Stamp>
</IGCMarkupStamp>
mein bisgeriger erfolgloser Ansatz ist:
Private Function Fuelle_Stempel(ByVal sText As String, ByVal W1 As String, _
  ByVal W2 As String, ByVal W3 As String, ByVal W4 As String, ByVal W5 As _
  String, ByVal Wert As String) As String
        Dim xml_Doc As XmlDocument                          ' XML-Dokument ( 
        ' Datei)
        Dim xml_Knoten As XmlNode                           ' Einzelknoten
        Dim xml_NewsListe As XmlNodeList                    ' Liste von Knoten
        Dim KnotenText As String
 
        xml_Doc = New XmlDocument()                         ' Instanz bilden
        xml_Doc.LoadXml(sText)                                 ' XML-Datei laden
 
        Try
            xml_Knoten = xml_Doc.SelectSingleNode("*")   ' Stammknoten ermitteln
            xml_NewsListe = xml_Knoten.ChildNodes           ' Alle Kinder des 
            ' Stammknotens
 
            For Each xml_Knoten In xml_NewsListe
                KnotenText = xml_Knoten.InnerText
                Debug.Print(xml_Knoten.Name & "  " & xml_Knoten.InnerText)
            Next
        Catch ex As Exception
            MessageBox.Show("Knoten in der XML-Datei nicht gefunden")
        End Try
        Return xml_Doc.OuterXml
    End Function
Danke im voraus
Christian

Danke für die Hilfe

Gruß Christian

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Hilfe beim ersetzen von Werten in XML-Text1.211Bazi24.11.13 20:27
Re: Hilfe beim ersetzen von Werten in XML-Text729ModeratorDaveS24.11.13 21:08
Re: Hilfe beim ersetzen von Werten in XML-Text724Bazi24.11.13 21:52

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-2025 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