topic Re: Deletar qvds através do script in Brasil

Deletar qvds através do script

Anonymous — Tue, 23 Feb 2016 16:38:00 GMT

Boa tarde amigos do fórum. Gostaria de tirar uma dúvida com vocês, se é possível deletar qvds externos através do load script, utilizando como data para exclusão, a data de criação do arquivo d-2.

Muito Obrigado pela ajuda.

Re: Deletar qvds através do script

nicolett_yuri — Tue, 23 Feb 2016 22:17:47 GMT

Sim, primeiro você deve habilitar a opção de executar programas externos em seu script: Dentro do editor de script (ctrl +e) vá até a aba Configuração e habilite "Pode executar programas externos".

Depois disso você conseguirá chamar o aplicativo cmd.exe para executar comandos de DOS.

Exemplo:

EXECUTE cmd.exe /C DEL /P "C:\QVD\Tabela.qvd";

Lembre-se que esses são comandos de DOS.

Através disso você consegue criar uma lógica para remover os arquivos com d-2

Re: Deletar qvds através do script

afurtado — Tue, 23 Feb 2016 23:50:40 GMT

Heber,

segue um modelo que apaga.....

A linha do DEL esta comentada por motivos obvios.....Depois de ver o trace e achar que esta certo, podes descomentar.....

Re: Deletar qvds através do script

Anonymous — Wed, 24 Feb 2016 13:31:51 GMT

Obrigado Yuri, principalmente sobre a informação de utilizar programas externos.

Re: Deletar qvds através do script

Anonymous — Wed, 24 Feb 2016 15:08:08 GMT

Alessandro, muito obrigado. Funcionou a varredura do arquivo conforme a imagem abaixo, porem, o comando execute não funcionou, não deletando os arquivo. Tem alguma idéia?

Comando que não funcionoou : EXECUTE cmd.exe /C DEL /P '$(File)';

Re: Deletar qvds através do script

nicolett_yuri — Wed, 24 Feb 2016 16:33:57 GMT

Você habilitou a opção que informei:

Re: Deletar qvds através do script

afurtado — Wed, 24 Feb 2016 16:47:38 GMT

CTRL ALT U (propriedades do usuario)

e CTRL E

Re: Deletar qvds através do script

Anonymous — Wed, 24 Feb 2016 17:27:24 GMT

Pessoal, muito Obrigado, deu certo. Tinha espaço em uns dos diretórios, ai a bat falha. Resolvido com ". Muito Obrigado.

Re: Deletar qvds através do script

Anonymous — Wed, 16 Mar 2016 19:51:53 GMT

Boa tarde Alessandro, tudo bem? Muito bom esse qvd, me ajudando muito. Gostaria, se possível de mais uma ajudinha, onde eu preciso salvar numa variável, o nome que esta na coluna nome do arquivo mais recente. Utilizei no final do script o peek, porém, ele me traz um nome de arquivo com os números das datas diferente. POde me ajudar por favor.

Obrigado.

Re: Deletar qvds através do script

lucianosv — Wed, 16 Mar 2016 20:16:43 GMT

Fala garoto.

Cria junto com o campo FileTime um campo date(FileTime, 'DD/MM/YYYY').

Depois disso captura o max(date(FileTime, 'DD/MM/YYYY')) numa variável.

No final você pode reler o resident ArquivosLidos pegando somente os registros com o novo campo de data igual a variável criada.

Re: Deletar qvds através do script

Anonymous — Mon, 21 Mar 2016 23:19:43 GMT

Oi Luciano, estou tentando fazer, mas não esta dando certo. POr gentileza, consegue me ajudar? Segue abaixo o código que estou utilizando, lembrando que tenho que salvar na váriavel, o conteudo que esta na coluna name do resultado do último dia.

sub DoDir (Root)

for each Ext in 'qvd'

for each File in filelist (Root&'\Tb_Fato_Rematricula*.' &Ext)

trace Lendo o arquivo $(Dir)/$(File) ;

Let vData = floor(FileTime( '$(File)' )) - floor(Today());

if '$(vData)' <-3 then

ArquivosLidos:

LOAD

'$(File)' as Name,

FileSize( '$(File)' ) as Size,

'Sim' as Apagado,

FileTime( '$(File)' ) as FileTime

autogenerate 1;

// EXECUTE cmd.exe /c del '$(File)';

EXECUTE cmd.exe /C DEL "$(File)";

ELSE

ArquivosLidos:

LOAD

'$(File)' as Name,

FileSize( '$(File)' ) as Size,

'Nao' as Apagado,

FileTime( '$(File)' ) as FileTime

autogenerate 1;

endif

next File

next Ext

for each Dir in dirlist (Root&'\*' )

call DoDir (Dir)

next Dir

end sub

call DoDir ('\\172.16.140.49\QV_Producao\Dropbox (SIGA)\BI SIGA\4 - Bases Diárias\Marketing BI - 2 - QVDs Corporativo\2 - Retencao\2016_1');

ArquivosLidos2:

Load

date(max(FileTime), 'DD_MM_YYYY_hh_mm_ss') as teste

resident ArquivosLidos;

LET vm = '[\Tb_Fato_Rematricula_'& peek('ArquivosLidos2',2,'ArquivosLidos2')&'.qvd]';

exit script

Re: Deletar qvds através do script

lucianosv — Tue, 22 Mar 2016 13:08:31 GMT

O peek está errado.

Vc têm o residente ArquivosLidos2 mas não têm o campo ArquivosLidos2