Skip to main content
Bumped by Community user
Bumped by Community user
Bumped by Community user
tags editadas
Link
Roberto de Campos
  • 5,3mil
  • 2
  • 21
  • 33
adicionou 138 caracteres ao conteúdo
Fonte Link
Roberto de Campos
  • 5,3mil
  • 2
  • 21
  • 33

Bom dia, TenhoTenho o código abaixo, porém não estou conseguindo listar o nome do nó e seu valor. Consigo pesquisar e mostrar o principal Tipotipo [ide] porém o sub-nó que seria [cUF] + valor isso eu não consigo. Alguém pode ajudar uso o Delphi5. Obrigado.

`procedure TForm1.Button3Click(Sender: TObject);
var Doc: IXMLDOMDocument;
Element: IXMLDOMElement;
List: IXMLDOMNodeList;
attrib : IXMLDOMNode;
Path,ID,title,producer: string;
i: integer;
begin

{ [Trecho do XML]
[CFe]
[infCFe versaoSB="000003" versaoDadosEnt="0.07" versao="0.07"
Id="CFeNumero_da_chave"]
[ide]
[cUF]35[/cUF]
[cNF]164796[/cNF]
[mod]59[/mod]
[nserieSAT]123456789[/nserieSAT]
[nCFe]000289[/nCFe]
[dEmi]20181029[/dEmi]
[hEmi]100256[/hEmi]
[cDV]3[/cDV]
[tpAmb]2[/tpAmb]
[CNPJ]11111111111111[/CNPJ]
[signAC]assinatura[/signAC]
[assinaturaQRCODE]QRCode[/assinaturaQRCODE]
[numeroCaixa]002[/numeroCaixa]
[/ide]
[/infCFe"
[/CFe] }

procedure TForm1.Button3Click(Sender: TObject);  
var
    Doc: IXMLDOMDocument;  
    Element: IXMLDOMElement;  
    List: IXMLDOMNodeList;  
    attrib : IXMLDOMNode;  
    Path,ID,title,producer: string;  
    i: integer;  
begin    
    Memo1.Lines.Clear;
    Doc := CoDOMDocument.Create;
    Doc.load(ArquivoXML);
    // Element := Doc.documentElement;
    // List := Element.getElementsByTagName('ide');
    for i := 0 to Doc.selectNodes('//ide').length do
    begin
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].baseName);     // Nó onde está parado
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].Get_nodeName); // = basename
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].nodeName);     // = basename
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cUF').text);   // Pego o Conteúdo do item do Nó
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cNF').text);   // Pego o Conteúdo do item do Nó

//        Memo1.Lines.Add(IntToStr(GetNodeInt(attrib,'cNF')));
    end;
end;

// Memo1.Lines.Add(IntToStr(GetNodeInt(attrib,'cNF'))); end; end; `Trecho do XML:

[CFe]  
    [infCFe versaoSB="000003" versaoDadosEnt="0.07" versao="0.07"  
    Id="CFeNumero_da_chave"]  
        [ide]  
            [cUF]35[/cUF]  
            [cNF]164796[/cNF]  
            [mod]59[/mod]  
            [nserieSAT]123456789[/nserieSAT]  
            [nCFe]000289[/nCFe]  
            [dEmi]20181029[/dEmi]  
            [hEmi]100256[/hEmi]  
            [cDV]3[/cDV]  
            [tpAmb]2[/tpAmb]  
            [CNPJ]11111111111111[/CNPJ]  
            [signAC]assinatura[/signAC]  
            [assinaturaQRCODE]QRCode[/assinaturaQRCODE]  
            [numeroCaixa]002[/numeroCaixa]  
        [/ide]  
    [/infCFe"  
[/CFe]

Bom dia, Tenho o código abaixo, porém não estou conseguindo listar o nome do nó e seu valor. Consigo pesquisar e mostrar o principal Tipo [ide] porém o sub-nó que seria [cUF] + valor isso eu não consigo. Alguém pode ajudar uso o Delphi5. Obrigado.

`procedure TForm1.Button3Click(Sender: TObject);
var Doc: IXMLDOMDocument;
Element: IXMLDOMElement;
List: IXMLDOMNodeList;
attrib : IXMLDOMNode;
Path,ID,title,producer: string;
i: integer;
begin

{ [Trecho do XML]
[CFe]
[infCFe versaoSB="000003" versaoDadosEnt="0.07" versao="0.07"
Id="CFeNumero_da_chave"]
[ide]
[cUF]35[/cUF]
[cNF]164796[/cNF]
[mod]59[/mod]
[nserieSAT]123456789[/nserieSAT]
[nCFe]000289[/nCFe]
[dEmi]20181029[/dEmi]
[hEmi]100256[/hEmi]
[cDV]3[/cDV]
[tpAmb]2[/tpAmb]
[CNPJ]11111111111111[/CNPJ]
[signAC]assinatura[/signAC]
[assinaturaQRCODE]QRCode[/assinaturaQRCODE]
[numeroCaixa]002[/numeroCaixa]
[/ide]
[/infCFe"
[/CFe] }

Memo1.Lines.Clear;
Doc := CoDOMDocument.Create;
Doc.load(ArquivoXML);
// Element := Doc.documentElement;
// List := Element.getElementsByTagName('ide');
for i := 0 to Doc.selectNodes('//ide').length do
begin
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].baseName);     // Nó onde está parado
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].Get_nodeName); // = basename
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].nodeName);     // = basename
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cUF').text);   // Pego o Conteúdo do item do Nó
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cNF').text);   // Pego o Conteúdo do item do Nó

// Memo1.Lines.Add(IntToStr(GetNodeInt(attrib,'cNF'))); end; end; `

Tenho o código abaixo, porém não estou conseguindo listar o nome do nó e seu valor. Consigo pesquisar e mostrar o principal tipo [ide] porém o sub-nó que seria [cUF] + valor isso eu não consigo.

procedure TForm1.Button3Click(Sender: TObject);  
var
    Doc: IXMLDOMDocument;  
    Element: IXMLDOMElement;  
    List: IXMLDOMNodeList;  
    attrib : IXMLDOMNode;  
    Path,ID,title,producer: string;  
    i: integer;  
begin    
    Memo1.Lines.Clear;
    Doc := CoDOMDocument.Create;
    Doc.load(ArquivoXML);
    // Element := Doc.documentElement;
    // List := Element.getElementsByTagName('ide');
    for i := 0 to Doc.selectNodes('//ide').length do
    begin
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].baseName);     // Nó onde está parado
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].Get_nodeName); // = basename
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].nodeName);     // = basename
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cUF').text);   // Pego o Conteúdo do item do Nó
        Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cNF').text);   // Pego o Conteúdo do item do Nó

//        Memo1.Lines.Add(IntToStr(GetNodeInt(attrib,'cNF')));
    end;
end;

Trecho do XML:

[CFe]  
    [infCFe versaoSB="000003" versaoDadosEnt="0.07" versao="0.07"  
    Id="CFeNumero_da_chave"]  
        [ide]  
            [cUF]35[/cUF]  
            [cNF]164796[/cNF]  
            [mod]59[/mod]  
            [nserieSAT]123456789[/nserieSAT]  
            [nCFe]000289[/nCFe]  
            [dEmi]20181029[/dEmi]  
            [hEmi]100256[/hEmi]  
            [cDV]3[/cDV]  
            [tpAmb]2[/tpAmb]  
            [CNPJ]11111111111111[/CNPJ]  
            [signAC]assinatura[/signAC]  
            [assinaturaQRCODE]QRCode[/assinaturaQRCODE]  
            [numeroCaixa]002[/numeroCaixa]  
        [/ide]  
    [/infCFe"  
[/CFe]
Fonte Link

Delphi Percorrer os Nós de Um XML (DOM)

Bom dia, Tenho o código abaixo, porém não estou conseguindo listar o nome do nó e seu valor. Consigo pesquisar e mostrar o Nó principal Tipo [ide] porém o sub-nó que seria [cUF] + valor isso eu não consigo. Alguém pode ajudar uso o Delphi5. Obrigado.

`procedure TForm1.Button3Click(Sender: TObject);
var Doc: IXMLDOMDocument;
Element: IXMLDOMElement;
List: IXMLDOMNodeList;
attrib : IXMLDOMNode;
Path,ID,title,producer: string;
i: integer;
begin

{ [Trecho do XML]
[CFe]
[infCFe versaoSB="000003" versaoDadosEnt="0.07" versao="0.07"
Id="CFeNumero_da_chave"]
[ide]
[cUF]35[/cUF]
[cNF]164796[/cNF]
[mod]59[/mod]
[nserieSAT]123456789[/nserieSAT]
[nCFe]000289[/nCFe]
[dEmi]20181029[/dEmi]
[hEmi]100256[/hEmi]
[cDV]3[/cDV]
[tpAmb]2[/tpAmb]
[CNPJ]11111111111111[/CNPJ]
[signAC]assinatura[/signAC]
[assinaturaQRCODE]QRCode[/assinaturaQRCODE]
[numeroCaixa]002[/numeroCaixa]
[/ide]
[/infCFe"
[/CFe] }

Memo1.Lines.Clear;
Doc := CoDOMDocument.Create;
Doc.load(ArquivoXML);
// Element := Doc.documentElement;
// List := Element.getElementsByTagName('ide');
for i := 0 to Doc.selectNodes('//ide').length do
begin
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].baseName);     // Nó onde está parado
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].Get_nodeName); // = basename
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].nodeName);     // = basename
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cUF').text);   // Pego o Conteúdo do item do Nó
    Memo1.Lines.Add(Doc.selectNodes('//ide').item[i].selectSingleNode('cNF').text);   // Pego o Conteúdo do item do Nó

// Memo1.Lines.Add(IntToStr(GetNodeInt(attrib,'cNF'))); end; end; `