Retornar o valor do atributo XML

Question

Pessoal Bom dia,

Estou apanhando para pegar o valor do atributo para eu poder deletar o elemento do xml.

O que estou fazendo de errado, ele gera um erro.

Nesse caso eu passo um numero de celular como parametro e façço a verificação se for igual e preciso pegar o valor do atributo ID. Alguém pode me ajudar? Obrigado

 

XML

 

<?xml version="1.0"?>
<celulares>
  <novocelular ID="1">1196212846</novocelular>
  <novocelular ID="2">1198745621</novocelular>
</celulares>

 

CODIGO:

 

Sub DeletaCelular(ByVal cel As String)

Dim arquivoXML As String = Application.StartupPath + "\mobile.xml"

Dim xmldoc As XmlDocument = New XmlDocument

xmldoc.Load(arquivoXML)

Dim node As XmlNode = xmldoc.DocumentElement

 

If (node.HasChildNodes) Then

    Dim nodeList As XmlNodeList = node.ChildNodes

    Dim i As Int32

    For i = 0 To nodeList.Count - 1

        If (nodeList(i).HasChildNodes) Then

           Dim xn As XmlNode

           For Each xn In nodeList(i).ChildNodes

               If xn.InnerText.Equals(cel) Then

                   MsgBox(xn.Attributes.GetNamedItem("ID"))

               End If

           Next

        End If

   Next

End If

End Sub

Answer 1

 Já tentou

xn.Attributes["ID"].Value

 

 []´s

Answer 2

Já tentei sim Dalmo não obtive sucesso.

Answer 3

 

Fiz assim e funcionou

Sub Main()

Dim arquivoXML As String = "c:\a.xml"

Dim xmldoc As Xml.XmlDocument = New Xml.XmlDocument

xmldoc.Load(arquivoXML)

Dim node As Xml.XmlNode = xmldoc.DocumentElement

 

 

If (node.HasChildNodes) Then

Dim nodeList As Xml.XmlNodeList = node.SelectNodes("novocelular")

Dim xn As Xml.XmlNode

For Each xn In nodeList

MsgBox(xn.Attributes("ID").Value)

Next

End If

End Sub