none
Retornar o valor do atributo XML RRS feed

  • Pergunta

  • 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

    terça-feira, 27 de maio de 2008 15:04

Respostas

  •  

    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

    quarta-feira, 28 de maio de 2008 14:46

Todas as Respostas

  •  Já tentou

    xn.Attributes["ID"].Value

     

     []´s

    terça-feira, 27 de maio de 2008 19:37
  • Já tentei sim Dalmo não obtive sucesso.

    terça-feira, 27 de maio de 2008 21:29
  •  

    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

    quarta-feira, 28 de maio de 2008 14:46