Bueno le he añadido a mi código una función pero uncluso con el if y el select case me recoge todos los datos del nodo Paises del XML. Ando un poco perdido.
Código PHP:
Public Function RecojePais(ByVal stRuta As String, ByVal Combo As String) As AñadirXML_EE
Dim ObjCombo As New AñadirXML_EE
ObjCombo.Pais = New ArrayList
ObjCombo.Continente = New ArrayList
'Dim textCombo As New XmlTextReader(stRuta)
'textCombo.WhitespaceHandling = WhitespaceHandling.Significant
Dim objInfoDown As New AñadirXML_EE
objInfoDown.Pais = New ArrayList
objInfoDown.Continente = New ArrayList
Dim objPais As New AñadirXML_EE
objPais.IdContinente = New Integer
objPais.Pais = New ArrayList
Dim textRead As New XmlTextReader(stRuta)
textRead.WhitespaceHandling = WhitespaceHandling.Significant
While (textRead.Read)
Select Case textRead.NodeType
Case XmlNodeType.Element
Select Case textRead.Name
Case "continente"
'Atributos del fichero
'objInfoDown.Pais = Path.GetFileNameWithoutExtension(stRuta)
objInfoDown.Continente.Add(textRead.GetAttribute("nombreCont"))
objPais.IdContinente = textRead.GetAttribute("idCont")
Case "Paises"
'objInfoDown.Pais.Add(textRead.GetAttribute("nombre"))
Select Case objPais.IdContinente
Case Combo
objPais.Pais.Add(textRead.GetAttribute("nombre"))
End Select
End Select
' Case XmlNodeType.EndElement
' Select Case textRead.Name
' Case "song" : Exit While
' 'Fin del fichero
End Select
End Select
End While
Return ObjCombo
End Function