XML: Comment parser un fichier xml simplement, pour en ressortir des éléments et

Question

J'aurais besoin d'aide pour parser un fichier xml. J'aimerais lire un fichier xml, puis afficher les informations contenues dans ce fichier dans une listbox. Puis a partir de cette liste, pouvoir selectionner une ligne, et que cette ligne s'affiche dans plusieurs textbox, pour modifier cette ligne. (Note: j'ai bien referencé XML dans VB6) Un exemple: J'ai un fichier clients.xml : 1 nicolas Ray nicolas NRAY NRAY Masculin nicolas.r@hotmail.com 0223664422 ch.des cigarettes 1007 Lausanne 2 raphael schmid raphael RSCH RSCH Masculin smashing@hotmail.com 0223642266 domaine 1260 Nyon 4 Bernard Morin Bernard subalashi caisson Masculin Broadway 75000 Paris 3 meyer david meyer David meyer Masculin lord_barabas@hotmail.com 5454 av du grey 78 1018 lausanne 5 asd sd asd asd asd Feminin ad ad asd asd ad 6 Bobo Bobo Bobo Bobo Bobo Masculin Bobo Bobo Bobo Bobo Bobo J'aimerais que ce fichier s'affiche dans une listbox avec pour chaque ligne prenant cette forme: id nom prenom login password categorie email telephone adresse npa ville (note: l'id ici est un attribut ) Et lorsque je clique sur une ligne, cela m'affiche dans chaque textbox correspondante, l'id, le nom le prenom, etc... Il y aurait donc 11 textbox. J'ai essayé de trouver un tutorial me permettant de faire cela, mais je n'arrive pas a trouver, et j'avoue que je suis débutant en VB... Quelqu'un pourrais svp me montrer le code pour arriver a ce resultat? C'est assez urgent, et je commence a desesperer... J'ai trouver sur le site de vbfrance un code affichant le fichier xml dans un treeview, mais je ne trouve pas cela très ergonomique dans mon cas.. Je vous remercie d'avance pour votre aide!!! (j'ai fait un copier coller d'une ancieene question car j'ai le même problème mais y a pas de réponse sur le forum...) max

nhervagault · Answer

'ajouter une listbox list1
'ajouter une textbox txtname
'ajouter une reference a mxml micr.. XML dans le menu projet
'ne fonctionne que sous vb6 fonction split

Public documentXML As New DOMDocument
Public clients As IXMLDOMNodeList
Public client As IXMLDOMNode

Function LoadDocument()
    
    documentXML.async = False
    documentXML.Load "c:\test.xml"
   Set clients = documentXML.selectNodes("//clients/client")
    For Each client In clients
       List1.AddItem client.selectSingleNode("@id").Text & " - " & client.selectSingleNode("nom").Text
    Next client
  
End Function

Private Sub Form_Load()
Call LoadDocument
End Sub

Private Sub List1_Click()
    Dim tab1 As Variant
    Dim id As String
    tab1 = Split(List1.List(List1.ListIndex), " - ")
    id = tab1(0)
    Set client = documentXML.selectSingleNode("//client[@id='" & id & "']/nom")
    txtName.Text = client.Text
End Sub

Le code n'est pas complet mais je pense que tu arrivera a trouver comment le completer ;-)

cs_labout · Answer

labout
Si tu le souhaite j'ai un exemple que je peux t'envoyer
Le traitement du XML alimente un ListView

max_95 · Answer

Pour Labout

Oh oui ça pourrais bien m'aider

nhervagault · Answer

'ajouter une listbox list1
'ajouter une textbox txtname
'ajouter une reference a mxml micr.. XML dans le menu projet
'ne fonctionne que sous vb6 fonction split

'lvwclient une listview

Public documentXML As New DOMDocument
Public clients As IXMLDOMNodeList
Public client As IXMLDOMNode

Function LoadDocument()
    Dim Item As ListItem
    Dim id As String
    Dim nom As String
    documentXML.async = False
    documentXML.Load "c:\test.xml"
   Set clients = documentXML.selectNodes("//clients/client")
    
    For Each client In clients
        Set Item = lvwClient.ListItems.Add
        id = client.selectSingleNode("@id").Text
        nom = client.selectSingleNode("nom").Text
       List1.AddItem id & " - " & nom
       Item.Text = id
       Item.SubItems(1) = nom
    Next client
  
End Function

Private Sub Form_Load()
lvwClient.View = lvwReport
Dim ch As ColumnHeader
Set ch = lvwClient.ColumnHeaders.Add(, , "Id")
Set ch = lvwClient.ColumnHeaders.Add(, , "Nom")
lvwClient.FullRowSelect = True

Call LoadDocument
End Sub

Private Sub List1_Click()
    Dim tab1 As Variant
    Dim id As String
    tab1 = Split(List1.List(List1.ListIndex), " - ")
    id = tab1(0)
    Set client = documentXML.selectSingleNode("//client[@id='" & id & "']/nom")
    txtName.Text = client.Text
End Sub

Private Sub lvwClient_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Set client = documentXML.selectSingleNode("//client[@id='" & Item.Text & "']/nom")
    txtName.Text = client.Text
End Sub

cs_labout · Answer

labout
Donnes moi ton adresse eMail je t'envoie l'exemple
Si tu ne souhaites pas la donner, la mienne est
boutresse@normandnet.fr
Contacte moi
Je ne mets pas sur le source, je ne mets plus de VB seulement des .Net et puis les remarques sont souvent peu agréables.

max_95 · Answer

Voici mon adresse mail:
mourad.emf@caramail.com

cs_JALALM · Answer

j'aiun exemplepour toi mailme please  :jalal.med77@caramail.com

omarjock · Answer

bonjour j'ai besoin d'aide urgent.

je suis entrain de developper une application en vb pour la lecture de fichier log de serveur.
le probleme c'est que j'ai besoin d'une fonction permettant d'extraire le texte entre deux texte a savoir "cell {" et "}".
svp c'est urgent et merci 
voici mon mail : omarjock@yahoo.fr

nhervagault · Answer

Salut regardes du coté des regexp l'exemple est en C# mais facilement traduisible en VB.net ou même en VB6 (je crois que la scripting library contenant les regexp est sur me meme principe) Sinon il suffit de prendre une chaine à partir de la position X à la position Y avec un substring publicvoid TestParseURL() { string url = "http://www.cambiaresearch.com" + "/Cambia3/snippets/csharp/regex/uri_regex.aspx?id=17#authority"; string regexPattern = @"^(?(?[^:/\?#]+):)?(?" + @"//(?[^/\?#]*))?(?[^\?#]*)" + @"(?\?(?[^#]*))?" + @"(?#(?.*))?"; Regex re = new Regex(regexPattern, RegexOptions.ExplicitCapture); Match m = re.Match(url); lblOutput.Text = " URL: " + url + " "; lblOutput.Text + = m.Groups["s0"].Value + " (Scheme without colon) "; lblOutput.Text += m.Groups["s1"].Value + " (Scheme with colon) "; lblOutput.Text += m.Groups["a0"].Value + " (Authority without //) "; lblOutput.Text += m.Groups["a1"].Value + " (Authority with //) "; lblOutput.Text += m.Groups["p0"].Value + " (Path) "; lblOutput.Text += m.Groups["q0"].Value + " (Query without ?) "; lblOutput.Text += m.Groups["q1"].Value + " (Query with ?) "; lblOutput.Text += m.Groups["f0"].Value + " (Fragment without #) "; lblOutput.Text += m.Groups["f1"].Value + " (Fragment with #) "; }

XML: Comment parser un fichier xml simplement, pour en ressortir des éléments et

9 réponses

Discussions similaires