PEGAR VALOR DE UMA TAG ESPECÍFICA DENTRO DE UM XML

 Tópico anterior Próximo tópico Novo tópico

PEGAR VALOR DE UMA TAG ESPECÍFICA DENTRO DE UM XML

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#490673 - 09/10/2019 16:09:01

ANDPAG
SAO JOSE DO RIO PRETO
Cadast. em:Julho/2009


Ola boa tarde. Em um sistema que tenho em VB6 eu leio as tags que eu quiser usando a seguinte função:
=============================================================================================================
Public Function RetornaTagXML(strCaminhoXML As String, TagMae As String, SubTag As String) As String
    Dim XML As Variant
    Dim objNodeList As Variant
    Dim objNode As Variant
    
    On Error Resume Next
    
    RetornaTagXML = ""
    Set XML = New DOMDocument
    XML.async = False
    
    If XML.Load(strCaminhoXML) Then
        ' *** Tentar pegar o strCampoXML
        Set objNodeList = XML.getElementsByTagName(TagMae & "//" & SubTag)
        Set objNode = objNodeList.NextNode
        Dim sLeitura As String
        sLeitura = objNode.Text
        If Len(Trim(sLeitura)) > 0 Then 'CONSEGUI LER O XML NODE
            RetornaTagXML = sLeitura
        End If
        Else
        MsgBox "Não foi possível abrir o arquivo XML da NFe especificada para Leitura.", vbCritical, "Erro."
    End If
End Function


=============================================================================================================
Uso esta função com a seguiinte chamada para dentro de uma variavel.

vsVariavelExemplo =  RetornaTagXML((Trim(vsArq)), "infProt", "xMotivo")
=============================================================================================================

Alguém tem alguma função parecida no VB.NET, não consegui reescreve-la do VB6 para o VB.NET?




#490675 - 09/10/2019 16:40:39

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Use desserialização, muito, mas muito melhor.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário