1

Eai gente... tudo bem? Estou com um probleminha aqui bem parecido com um que tive ontem, eu tenho um script em VBS que me atende bem, ele basicamente lê o XML, pega a data dentro do XML e renomeia o arquivo com essa data...

Agora eu preciso que ele renomeie o XML com o CNPJ seguido pela data, mas o problema é que a tag do CNPJ não é única, existem vários CNPJs no xml... Eu preciso apenas do CNPJ dentro da tag , eu até consegui fazer funcionar de uem jeito aqui, mas tem alguns XML que recebo que a ordem muda, daí como ele pega a primeira tag CNPJ que tiver, as vezes ele pega o CNPJ de outra tag sem ser a . Poderiam me ajudar? Segue abaixo os códigos:

Trecho do XML:

<?xml version = "1.0" encoding = "ISO-8859-1"?>
<cteProc versao="3.00" xmlns="http://www.portalfiscal.inf.br/cte">
    <CTe xmlns="http://www.portalfiscal.inf.br/cte">
        <infCte versao="3.00" Id="CTe33180702012862001050570060001000081465016982">
            <ide>
                <cUF>33</cUF>
                <cCT>sad1698</cCT>
                <CFOP>6asd351</CFOP>
                <natOp>PREST. SERV DE TRANSP. PARA EXECUÇÃO SERV. DA MESMA NATUREZA</natOp>
                <mod>57</mod>
                <serie>6</serie>
                <nCT>10s0008</nCT>
                <dhEmi>2018-07-17T15:37:34-03:00</dhEmi>
                <tpImp>1</tpImp>
                <tpEmis>1</tpEmis>
                <cDV>2</cDV>
                <tpAmb>1</tpAmb>
                <tpCTe>0</tpCTe>
                <procEmi>0</procEmi>
                <verProc>Triangulus_2.0.28.48</verProc>
                <cMunEnv>3304557</cMunEnv>
                <xMunEnv>RIO DE JANEIRO</xMunEnv>
                <UFEnv>RJ</UFEnv>
                <modal>02</modal>
                <tpServ>0</tpServ>
                <cMunIni>3304557</cMunIni>
                <xMunIni>RIO DE JANEIRO</xMunIni>
                <UFIni>RJ</UFIni>
                <cMunFim>3518800</cMunFim>
                <xMunFim>GUARULHOS</xMunFim>
                <UFFim>SP</UFFim>
                <retira>0</retira>
                <xDetRetira>AEROPORTO</xDetRetira>
                <indIEToma>1</indIEToma>
                <toma3>
                    <toma>3</toma>
                </toma3>
            </ide>
            <compl>
                <xCaracSer>PRÓXIMO DIA</xCaracSer>
                <xEmi>Tauany Peçanha Ayre</xEmi>
                <fluxo>
                    <xOrig>SDU</xOrig>
                    <xDest>GRU</xDest>
                </fluxo>
                <destCalc>3518800</destCalc>
                <xObs>ICMS CONFORME RESOLU??O DO SENADO FEDERAL 95/96</xObs>
                <ObsCont xCampo="TIPO DE PAGAMENTO">
                    <xTexto>CONTA CORRENTE - 638877SAO - 19.89</xTexto>
                </ObsCont>
                <ObsCont xCampo="CONTA CORRENTE">
                    <xTexto>638877SAO</xTexto>
                </ObsCont>
                <ObsCont xCampo="FINANCIERO">
                    <xTexto>Lei da transparência 12.741/12, o percentual aproximado dos tributos incidentes sobre o preço do serviço são: Federal: 15,96% Estadual: 4,0%</xTexto>
                </ObsCont>
            </compl>
            <emit>
                <CNPJ>02012862001050</CNPJ>   <---- PRECISO QUE SEJA ESSE CNPJ EM ESPECIFICO
                <IE>84328820</IE>
                <xNome>TAM LINHAS AEREAS SA SDU</xNome>
                <enderEmit>
                    <xLgr>PC SENADOR SALGADO FILHO</xLgr>
                    <nro>0</nro>
                    <xCpl>AEROPORTO SANTOS DUMONT</xCpl>
                    <xBairro>AEROPORTO SANTOS DUMONT</xBairro>
                    <cMun>3304557</cMun>
                    <xMun>RIO DE JANEIRO</xMun>
                    <CEP>20021340</CEP>

Arquivo VBS:

DiretorioobjFiles = "C:\DACTE\"
DiretorioDestino = "C:\DACTE\DATA\"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = FSO.GetFolder(DiretorioobjFiles)
Wscript.Echo objFolder.Path

Set colFiles = objFolder.Files


For Each objFile in colFiles

On Error Resume Next
If Right(objFile.FileName, 4) = ".xml" Then

    Set objParser = CreateObject("Microsoft.XMLDOM")
    objParser.Load (objFile.path)

    oldFileName = objFile.path

    Set ElemList = objParser.getElementsByTagName("emit").getElementsByTagName("CNPJ")
    CNPJ = ElemList.Item(0).Text

    Set ElemList = objParser.getElementsByTagName("dhEmi")
    dhEmi = Replace(ElemList.Item(0).Text, ":", "_")

    newFileName = DiretorioDestino + CNPJ + "_" + dhEmi + ".xml"

    fso.MoveFile oldFileName, newFileName
End If
Next
3
  • 1
    Mario, não entendo de VBS mas resolvi dar uma "buscada" por aí. E se você usasse o comando: Set ElemList = objParser.getElementsByTagName("emit") para chegar até a tag "emit" e usar o comando CNPJ = ElemList.FirstChild.Text - a idéia é pegar o primeiro filho após a tag "emit". Talvez possa ajudar... 9/08/2018 às 20:53
  • Fiz diversos testes aqui com o firstChild e ele ou não funcionava ou acabava só convertendo o primeiro item dos meus xml... :(
    – Mario Uryu
    9/08/2018 às 21:07
  • Mas obrigado pela dica!!!
    – Mario Uryu
    9/08/2018 às 21:07

1 Resposta 1

2

Consegui resolver pessoal, caso alguém precise de algo parecido segue o código:

DiretorioobjFiles = "C:\DACTE\"
DiretorioDestino = "C:\DACTE\DATA\"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = FSO.GetFolder(DiretorioobjFiles)
Wscript.Echo objFolder.Path

Set colFiles = objFolder.Files


For Each objFile in colFiles

On Error Resume Next
If Right(objFile.FileName, 4) = ".xml" Then

    Set objParser = CreateObject("Microsoft.XMLDOM")
    objParser.Load (objFile.path)

    oldFileName = objFile.path

    Set ElemList = objParser.getElementsByTagName("./emit/CNPJ")
    CNPJ = ElemList.Item(0).Text

    Set ElemList = objParser.getElementsByTagName("dhEmi")
    dhEmi = Replace(ElemList.Item(0).Text, ":", "_")

    newFileName = DiretorioDestino + CNPJ + "_" + dhEmi + ".xml"

    fso.MoveFile oldFileName, newFileName
End If
Next

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .