phenix71
Messages postés5Date d'inscriptionmardi 14 mars 2006StatutMembreDernière intervention24 avril 2008
-
21 mars 2008 à 09:40
phenix71
Messages postés5Date d'inscriptionmardi 14 mars 2006StatutMembreDernière intervention24 avril 2008
-
21 mars 2008 à 11:37
Bonjour,
J'espère que vous pourriez m'aider.
J'explique mon problème :
J'ai un fichier xml et j'aimerais afficher toutes les skills de chaque expérience, mais le problème c'est qu'il arrive à afficher que la première skill.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 21 mars 2008 à 11:07
tu ne m'as pas compris, je crois...
For Each general In xmlDoc.SelectNodes("/cv/experiences/experience")
exp_from = general.SelectSingleNode("exp_from").Text
exp_to = general.SelectSingleNode("exp_to").Text
et la première skill de chaque expériences s'affiche.
Mais comme il y a plusieur ligne qui porte le même nom "skill", je pense qu'il croit qu'il y en a qu'une.
Mais je pense que la réponse se trouve quand même plus proche de ma première solution.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 21 mars 2008 à 11:29
erreur de copier coller...
pas de / avant skills :
For Each general In xmlDoc.SelectNodes("/cv/experiences/experience")
exp_from = general.SelectSingleNode("exp_from").Text
exp_to = general.SelectSingleNode("exp_to").Text
For Each skil In general.SelectNodes("skills/skill")
Selection.TypeText Text:=skill.Text & ", "
Next
Next
j'ai nettoyé un peu la chose :
Sub test()
Dim oXml As DOMDocument
Dim oExperience As IXMLDOMNode
Dim oSkill As IXMLDOMNode
Set oXml = New DOMDocument
oXml.Load "c:\a.xml"
For Each oExperience In oXml.SelectNodes("/cv/experiences/experience")
Selection.TypeText oExperience.SelectSingleNode("exp_from").Text & vbNewLine & _
oExperience.SelectSingleNode("exp_to").Text & vbNewLine
For Each oSkill In oExperience.SelectNodes("skills/skill")
Selection.TypeText oSkill.Text & ", "
Next oSkill
Selection.TypeText vbNewLine
Next oExperience
End Sub