For each dans un For each - Possible ou pas ?Résolu

Question

Merci d'avance, je sèche !

Erreur	1
La variable 'rtNode' masque une variable dans un bloc englobant.


        Friend Function GetRootValue(ByVal strRoot As String) As String
            Dim rtRootNode, rtNode, rtNode2 As Xml.XmlNode
            For Each rtRootNode In xmlDOC.DocumentElement
                If rtRootNode.LocalName = strRoot Then
                    Dim arRoot As String() = strRoot.Split("/")
                    Dim i As Integer
                    For i = 1 To arRoot.Length - 1
                        For Each rtNode As Xml.XmlNode In rtRootNode.ChildNodes
                            If rtNode.LocalName = arRoot(i) Then
                                Return rtNode
                                Exit Function
                            End If
                        Next
                    Next
                    Return rtRootNode.ChildNodes.Item(0).Value
                End If
            Next
            Return Nothing
        End Function

Duke49 · Accepted Answer

Là c top ^^


        Friend Function GetValue(ByVal strRoot As String, ByVal ValueType As Xml.XmlNodeType) As String
            Dim rtRootNode As Xml.XmlNode
            Dim rtSubRoot As Xml.XmlNode

            rtSubRoot = xmlDOC.SelectSingleNode(strRoot)
            For Each rtRootNode In rtSubRoot.ChildNodes
                If rtRootNode.NodeType = ValueType Then
                    Return rtRootNode.Value
                End If
            Next
            Return Nothing
        End Function

Duke49 · Answer

Pourquoi ce casser la tête MOAUahaha ^^ looky:


        Friend Function GetValue(ByVal strRoot As String, ByVal ValueType As Xml.XmlNodeType) As String
            Dim rtRootNode As Xml.XmlNode
            Dim rtSubRoot As Xml.XmlNode
            Dim arRoot As String() = strRoot.Split("/")
            Dim id As Integer

            rtSubRoot = xmlDOC.SelectSingleNode(strRoot)
            For Each rtRootNode In rtSubRoot.ChildNodes ' xmlDOC.DocumentElement(rtSubRoot.LocalName)
                If rtRootNode.NodeType = ValueType Then
                    Return rtRootNode.Value
                End If
            Next
            Return Nothing
        End Function

cs_casy · Answer

Pour information, le message d'erreur obtenu avec le premier code que tu donne vient du fait que tu déclare 2 fois la variable rtNode :


Dim rtRootNode, rtNode, rtNode2 As Xml.XmlNode
...
       For Each rtNode As Xml.XmlNode In rtRootNode.ChildNodes
...


Soit tu enlevé rtNode du Dim et tu garde le For Each tel quel,
soit tu garde rtNode dans le Dim, dans ce cas tu écrit le For Each de la sorte :
       For Each rtNode In rtRootNode.ChildNodes



[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

For each dans un For each - Possible ou pas ?

3 réponses

Votre réponse

Discussions similaires