Contagem de Específicos

edevil · Outubro 16, 2015

Bom dia.

Não encontrei nada parecido, alguém sabe como faço para contar os especificos em determinada pasta,.

Exemplo, quero contar quandos .p, .w, .i, constam numa estrutura de pastas(Diretórios e Subdiretórios).
É possível fazer isso via Progress?

Att

edevil · Outubro 16, 2015

Encontrei um topico onde postaram isso e funcionou!

Muito obrigado.

def var c-arquivo as character no-undo.
def var c-diretorio as character no-undo.
def var c-tipo as character no-undo.
def var c-extensao as character no-undo.
def var c-extensao-pesq as character no-undo.
def var c-importa as character no-undo.

def var iErr as integer no-undo.

assign c-diretorio = "c:\datasul\totvs\ems206b\espec\cep"
c-extensao-pesq = "p,i,w".

update skip(1)
c-diretorio label "Diretorio" format "x(100)"
skip(1)
c-extensao-pesq label "ExtensÆo" format "x(40)"
with frame x 1 columns view-as dialog-box size 130 by 07.

def var h-acomp as handle no-undo.
run utp/ut-acomp.p persistent set h-acomp.
run pi-inicializar in h-acomp (input "Pesquisando Arquivos").

output to value(session:temp-directory + "\lista-arq.txt") no-convert.

run pi-pesquisa (input "",
input c-diretorio).

output close.

run pi-finalizar in h-acomp.

os-command no-wait value(session:temp-directory + "\lista-arq.txt").

/**********************************************************************************************/
procedure pi-pesquisa:

def input param ip-espaco as character no-undo.
def input param ip-diretorio as character no-undo.

process events.

input from os-dir(ip-diretorio) no-convert.

repeat:

import c-arquivo c-diretorio c-tipo.

if c-arquivo = "." or
c-arquivo = ".." then next.

if c-tipo = "D" then do:

assign ip-diretorio = c-diretorio.

run pi-acompanhar in h-acomp (input c-diretorio).

run pi-pesquisa (input "",
input c-diretorio).

end.
else do:

assign c-extensao = "".

if num-entries(c-arquivo,".") = 2 then
assign c-extensao = entry(2,c-arquivo,".") no-error.

if can-do(c-extensao-pesq,c-extensao) then do:

run pi-acompanhar in h-acomp (input c-diretorio).

put c-diretorio format "x(200)" skip.

end.

end.

end.

input close.

end procedure.
Clique para expandir...

Logar ou Criar uma Conta

Contagem de Específicos

edevil Membro Participativo

edevil Membro Participativo

Compartilhe esta Página