Discussion :

[kirk80]

bonjour,
j'ai le fichier xml suivant (enfin une partie)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
- <Cas>
- <Collection Object="Concept" Name="Concept">
- <Concept multiple="false" type="Données Démographiques" utileConclusion="non" ID="1">
- <!--  
  --> 
- <Name>
  <ShortName>CoDF2139200214394074599</ShortName> 
  <LongName>Poids</LongName> 
  <UName>Poids</UName> 
  </Name>
- <Attribut illustration="">
- <!--  
  --> 
- <Name>
  <ShortName>AtDF21392002143940745100</ShortName> 
  <LongName>kg</LongName> 
  <UName>PoidsEnKg</UName> 
  </Name>
- <Value text="70" value="70">
  <input max="300" maxlength="5" min="30" name="AtDF21392002143940745100" size="6" valeurAbandon="" value="70" varType="num" /> 
  </Value>
  <Question>Quel est le poids en kg de votre patient</Question> 
  </Attribut>
  </Concept>

j'ai une collection avec un nom de variable et sa valeur.
je lis le fichier et lorsque je trouve un UName dont la valeur correspond à un nom de variable de ma collection, (par exemple <UName>PoidsEnKg</UName> et j'ai PoidsEnKg dans ma collection) je veux pouvoir aller modifier le 70 de <Value text="70" value="70"> par la valeur que j'ai dans ma collection
merci d'avance

[kirk80]

personne n'a une solution pour faire cette manipulation ?

[nostradamus]

Salut,

Ci-joint un exemple qui devrait fonctionner
(en c#)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
// tu charges ton document - a.xml
XmlDocument d = new XmlDocument();
d.Load(@"F:\a.xml");
// Position sur la racine du XML
XmlNode root = d.DocumentElement;
// Tu recherches les noeuds voulus - Recherche de tout les balises UName
// dont la valeur est "test"
string sXPath = @"descendant::UName[text()='test']"; 
XmlNodeList oList = root.SelectNodes(sXPath); 
for (int i=0;i<oList.Count;i++)
{
        oList[i].InnerText ="Nouveau";
}
// Tu sauvegardes les modif
d.Save(@"F:\a.xml");

A tester ?

[kirk80]

deux petits problèmes :

- le noeud Name qui contient le Uname est au même niveau que le noeud Value, donc problème dans ce que tu m'as donné, je modifie la valeur en cours donc je remplace PoidEnKg par ma valeur.

-peut-on faire une expression XPath paramétrée ? à savoir pouvoir mettre le texte à rechercher dans une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
sXPath = "descendant::UName[text()='PoidsEnKg']"
                nodelist = noderacine.SelectNodes(sXPath)

au lieu d'avoir PoidsEnKg, on remplace comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
sXPath = "descendant::UName[text()='var']"
                nodelist = noderacine.SelectNodes(sXPath)

var étant une variable mise à jour à chaque bouclage

[kirk80]

j'ai trouvé la solution pour insérer une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
                sXPath = "descendant::UName[text()=" + varglif + "]"

mais je cherche toujours comment modifier la valeur

[nostradamus]

Salut,

Je n'ai pas bien compris la structure de ton fichier XML, mais tu pourrais d'inspirer de ce code pour résoudre ton problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
string t = "Test";
string valeur = "5555";
 
// Charger le document
XmlDocument d = new XmlDocument();
d.Load(@"F:\Decharge\a.xml");
XmlNode root = d.DocumentElement;
string sXPath = @"descendant::UName[text()='" + t + "']"; 
XmlNodeList oList = root.SelectNodes(sXPath); 
for (int i=0;i<oList.Count;i++)
{
	// Positionne sur pere du pere du noeud voulu  
	XmlNode xm = oList[i].ParentNode.ParentNode;
	// Tu parcours les fils pour trouver balise "Value"
	// dont le pere est la balise "Attribut"
	if (xm.Name == "Attribut")
	{
		for (int j=0;j<xm.ChildNodes.Count;j++)
		{
			if (xm.ChildNodes[j].Name == "Value")
			{
			           // Tu modifie l'attribut value par ta valeur
				xm.ChildNodes[j].Attributes["value"].Value = valeur;
			}
		}
	}
}
d.Save(@"F:\Decharge\a.xml");

En esperant que ceci fonctionne.

[kirk80]

voici en plus clair mon xml

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
  <?xml version="1.0" encoding="ISO-8859-1" ?> 
- <Cas>
   - <Collection Object="Concept" Name="Concept">
      - <Concept multiple="false" type="Données Démographiques" utileConclusion="non" ID="1">
         <!--  --> 
             - <Name>
                    <ShortName>CoDF2139200214394074599</ShortName> 
                    <LongName>Poids</LongName> 
                    <UName>Poids</UName> 
               </Name>
             - <Attribut illustration="">
                  <!--  --> 
                    - <Name>
                          <ShortName>AtDF21392002143940745100</ShortName> 
                         <LongName>kg</LongName> 
                         <UName>PoidsEnKg</UName> 
                      </Name>
                   - <Value text="70" value="70">
                         <input max="300" maxlength="5" min="30" name="AtDF21392002143940745100" size="6" valeurAbandon="" value="70" varType="num" /> 
                     </Value>
                     <Question>Quel est le poids en kg de votre patient</Question> 
               </Attribut>
      </Concept>
   </Collection>
 </Cas>

[kirk80]

Le code suivant ne marche que pour deux cas sur trois, la première variable ne donne rien. as-tu une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
If System.IO.File.Exists(Globales.racinedossiermodele & "\" & guide & ".xml") Then
            Dim xmldocmodele As New XmlDocument
            xmldocmodele.Load(Globales.racinedossiermodele & "\" & guide & ".xml")
            Dim noderacine As XmlNode
            noderacine = xmldocmodele.DocumentElement
            Dim nodelist As XmlNodeList
            Dim nodevar As XmlNode
            Dim Cnewglif As New gliffinal
            Dim sXPath As String
            For Each Cnewglif In Collectiongliffinal.Values
                Dim varglif = Cnewglif.nomVarGlif
                sXPath = "descendant::UName[text()='" + varglif + "']"
                nodelist = noderacine.SelectNodes(sXPath)
                Dim i As Integer
                For i = 0 To nodelist.Count - 1
                    Dim xm As XmlNode
                    xm = nodelist(i).ParentNode.ParentNode
                    If xm.Name = "Attribut" Then
                        Dim j As Integer
                        For j = 0 To xm.ChildNodes.Count - 1
                            If xm.ChildNodes(j).Name = "Value" Then
                                xm.ChildNodes(j).Attributes("value").Value = Cnewglif.valueGlif
                            End If
                            j = j + 1
                        Next
                    End If
                    i = i + 1
                Next
            Next
            xmldocmodele.Save(Console.Out)

[nostradamus]

Je ne suis pas un spécialiste en vb.net, mais je pense que quand tu
ultilise une boucle FOR, tu ne dois pas incrémenter ta variable.
L'incrémentation de ta variable est effectuée par l'utilisation du NEXT

Si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
FOR i = 0 to 10
       print i;
       i = i +1
NEXT

tu obtiendras 0,2,4,6,8,10 (tu incrémente ton i de 2 à chaque fois)

Il faut utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
FOR i = 0 to 10
       print i;
NEXT

l'incrémentation du i se fait par l'intermédiaire de NEXT

[kirk80]

merci beaucoup de ton aide, ça marche


[Tag [Résolu] corrigé par freegreg]
[Pensez à utiliser le bouton ]