vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 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.NET - Ein- und Umsteiger
Re: treeview xml lesen mit bestimmten Attribut 
Autor: theGodfather
Datum: 03.03.19 18:24

Code Part2:



Sub ebeneLesen(ByVal xmlKnoten As XmlNode, ByVal treeKnoten As TreeNode)
 
        tvwSchlüssel += 1
        treeKnoten.Text = xmlKnoten.Name
 
        If xmlKnoten.Attributes.Count > 0 AndAlso xmlKnoten.Attributes("Nr") _
          IsNot Nothing Then
            treeKnoten.Text = xmlKnoten.Attributes("Nr").Value
        Else
            If xmlKnoten.Name = "Name" Or xmlKnoten.Name = "Punkte" Or
             xmlKnoten.Name = "Bezeichnung" Then
                treeKnoten.Text = xmlKnoten.InnerText
            Else
                treeKnoten.Text = xmlKnoten.Name
            End If
        End If
 
 
 Dim tn As TreeNode
        Dim xn As XmlNode
        For Each xn In xmlKnoten.ChildNodes
            If xn.HasChildNodes Then
                tn = treeKnoten.Nodes.Add(tvwSchlüssel.ToString("00"), xn.Name)
                ebeneLesen(xn, tn)
            End If
        Next
 
 
 
        Select Case True
            Case rbOuterXml.Checked
                treeKnoten.Tag = "OuterXml:" & vbCrLf & xmlKnoten.OuterXml
            Case rbInnerXml.Checked
                treeKnoten.Tag = "InnerXml: " & vbCrLf & xmlKnoten.InnerXml
            Case rbInnerText.Checked
                treeKnoten.Tag = "InnerText: " & vbCrLf & xmlKnoten.InnerText
            Case rbAttributes.Checked
                treeKnoten.Tag = "Attribute: " & vbCrLf
                treeKnoten.Tag &= "Name" & vbTab & vbTab & "InnerText" & vbCrLf
                For Each xmlAtt As XmlAttribute In xmlKnoten.Attributes
                    Dim s As String = xmlAtt.Name & vbTab
                    If s.Length < Strings.Len("Name" & vbTab & vbTab) Then
                        s &= vbTab
                    End If
                    treeKnoten.Tag &= s & xmlAtt.InnerText & vbCrLf
                Next
            Case rbTreeView.Checked
                treeKnoten.Tag = "Name:" & vbTab & vbTab & "Text" & vbCrLf _
                                & treeKnoten.Name & vbTab & vbTab & _
                                treeKnoten.Text
            Case Else
                treeKnoten.Tag = "InnerText: " & vbCrLf & xmlKnoten.InnerText
        End Select
 
 
 
    End Sub
 
 
 
    Private Sub tvw_AfterSelect(ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.TreeViewEventArgs) _
                Handles tvw.AfterSelect
 
        txtAusgabe.Text = e.Node.Tag
 
        tvwAusgewählt = txtSuchen.Text
        txtSuchen.Text = e.Node.Name
 
        txtXmlPfad.Text = Replace(e.Node.FullPath, "\", "/")
    End Sub
 
 
 
    Private Sub Darstellung(ByVal sender As Object, _
                            ByVal e As System.EventArgs) _
                            Handles rbTreeView.Click, _
                                    rbOuterXml.Click, _
                                    rbInnerXml.Click, _
                                    rbInnerText.Click, _
                                    rbAttributes.Click
 
        txtAusgabe.Clear()
        tvwFüllen()
 
        If tvwAusgewählt = "" Then
            If txtSuchen.Text <> "" Then
                tvwAusgewählt = txtSuchen.Text
            Else
                tvwAusgewählt = tvw.Nodes(0).Name
            End If
        End If
 
        Try
            tvw.SelectedNode = tvw.Nodes.Find(tvwAusgewählt, True)(0)
        Catch ex As Exception
            MessageBox.Show("Tree-Knoten nicht gefunden!")
        End Try
 
    End Sub


Beitrag wurde zuletzt am 03.03.19 um 18:25:30 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
treeview xml lesen mit bestimmten Attribut671theGodfather03.03.19 18:23
Re: treeview xml lesen mit bestimmten Attribut303theGodfather03.03.19 18:24
Re: treeview xml lesen mit bestimmten Attribut299theGodfather03.03.19 18:26
Re: treeview xml lesen mit bestimmten Attribut300theGodfather03.03.19 18:27
Re: treeview xml lesen mit bestimmten Attribut304HenryV04.03.19 10:32
Re: treeview xml lesen mit bestimmten Attribut294theGodfather04.03.19 17:48

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