Discussion :

[miagomiago]

bonjour
je veux savoir comment obtenir les enfants d'un ELement:

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
<Root>

<Evenement>
     <Child 1></Child 1>
      <Child 2 ></Child 2>
      <Child 3 > X </Child 3>
</Evenement>

...

<Evenement>meme sctructure</Evenement>
<Evenement>meme structure</Evenement>
<Evenement>meme structure</Evenement>

</Root>

je veux changer la valeur X et donc je fais :

Code :

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

1
2
3
4
5
6
 
set olistElemEven=xmlDoc.getElementsByTagName("EVENEMENT")
 
                       For Each oElemEven in olistElemEven
                           comment faire pour avoir les child de chaque element <EVENEMENT> pour pouvoir changer  <Child 3 > ??
                       next

merci

[omen999]

salut,
dans la collection oElemEven.children ?

[miagomiago]

oui ! j'ai éssayé ça , mais il m'affiche une erreur :

Cet objet ne gere pas cette propriété ou cette méthode : 'oElemEven.children'

code : 800A01B6

j'ai éssayé aussi lastchild et firstchild et il m'affiche la meme erreur
pensez vous que children, lastchild et firstchild peuvent etre appliquées uniquement a l'élément ROOT ??

[omen999]

on peut voir le code qui donne cette erreur ?
c'est à dire le contenu de la boucle :

Code :

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

For Each oElemEven in olistElemEven

[miagomiago]

bonjour
au fait j'utilise une fonction que j'appel ds ma boucle 'for' pour aller chercher un fils d'un element avec son nom de TAG , voici la fonction:

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
function getChildByTagName(oElem,tagName)

dim oElement 

oElement = oElem.lastChild       ' erreur est içi

'oElement = oElem.children

While ( NOT oElement.nodeName like tagName)
  
  oElement=oElement.previousSibling

Wend

if oElement.nodeName = tagName then

getChildByTagName=oElement

Exit Function

end if 

getChildByTagName = Null

End Function

oElem est un l'objet qui est ds ma boucle for

Code :

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

1
2
3
4
5
6
 
For Each oElemEven in olistElemEven
 
objElem = getChildByTagName(oElemEven,"toto")
 
next

[omen999]

de toute façon il faut oublier la collection children qui est un objet dhtml et non xml
j'essaierais:

Code :

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

1
2
3
4
5
function getChildByTagName(oElem,tagName)
dim oNodeList,oElement
Set oNodeList=oElem.childNodes
For Each oElement In oNodeList
...