j'aimerais savoir si il était possible que le Treeview interprète ces sauts de lignes avec du codeCeci n'est pas très clair.
dim montableau() as string = noeud.ChildNodes(2).InnerText.split("|"c)
<?xml version "1.0" encoding "UTF-8"?> <Logiciel SUBJECT="Modulo"> <Version> <NumVersion>2.8</NumVersion> <Date>20/06/2016</Date> <Modif>kikou | lol | kkkkiiiii</Modif> </Version> <Version> <NumVersion>2.6</NumVersion> <Date> 20/05/2012 </Date> <Modif xml:space="preserve">Module x ajoute | -Module y ajouté | Module p ajouté | AHAHAHAH </Modif> </Version> <Version> <NumVersion>2.4</NumVersion> <Date> 15/05/2011 </Date> <Modif>Module z ajouté</Modif> </Version> <Version> <NumVersion>2.2</NumVersion> <Date>20/12/2010</Date> <Modif>Ajout module y</Modif> </Version> </Logiciel>
'On déclare une variable de type docuement Dim doc As XmlDocument = New Xml.XmlDocument 'On déclare un noeud, qui nous permettra d'identifier les noeuds dans le fichier XML Dim noeud As XmlNode 'On charge le docuement XML doc.Load("C:\Users\04\Desktop\Stage\test\test.xml") 'On déclare deux liste, qui nous permettra de parcourir l'ensemble des noeuds contenu dans le fichier XML Dim element As XmlNodeList Dim liste As XmlNodeList Dim i As Integer = 0 Dim y As Integer = 0 Dim nomParent As String = "" 'On initialise le Treeview TreeView1.Nodes.Clear() TreeView1.BeginUpdate() 'On stocke tous les noeuds enfant dans la liste element element = doc.DocumentElement.ChildNodes 'On stocke l'ensemble des noeuds enfant qui nous interesse par rapport a un noeud liste = doc.DocumentElement.GetElementsByTagName("Logiciel") 'On ajoute le premier élement de notre treeView TreeView1.TopNode = TreeView1.Nodes.Add("Logiciel") TreeView1.Nodes(0).Nodes.Add("Version") For Each noeud In element If noeud.Name = "Version" Then 'On stocke chaque valeur séparé de "|" dans un tableau Dim montableau() As String = noeud.ChildNodes(2).InnerText.Split("|"c) If montableau.Length > 1 Then TreeView1.Nodes(0).Nodes(0).Nodes.Add(noeud.ChildNodes(0).InnerText).Nodes.Add(noeud.ChildNodes(1).InnerText) TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(montableau(y)) y = y + 1 While montableau.Length <> y TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(montableau(y)) y = y + 1 End While Else TreeView1.Nodes(0).Nodes(0).Nodes.Add(noeud.ChildNodes(0).InnerText).Nodes.Add(noeud.ChildNodes(1).InnerText) TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(noeud.ChildNodes(2).InnerText) End If i = i + 1 End If y = 0 Next TreeView1.EndUpdate()
Dim montableau() As String = noeud.ChildNodes(2).InnerText.Split("|"c) for each element as string in montableau TreeView1.Nodes(0).Nodes(0).Nodes(i).Nodes.Add(element) next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question