Ir para o conteúdo
RAntunez

Renomear ficheiros em dose industrial

Mensagens Recomendadas

RAntunez

Boa tarde,

Não pesco nada de programação, mas sei que através de um ficheiro BAT é possivel alterar os nomes de vários ficheiros dentro de um diretório.

Tenho milhares de ficheiros para efectuar alterações, ex:

PNBA.E.10.01    para  PNBA.E.10.01TF

PNBA.E.20.05    para  PNBA.E.20.05TF

PNBA.E.41.05a  para  PNBA.E.41.05TF

PNBA.E.42.01b  para  PNBA.E.42.01TF

......

e por aí fora.

Basicamente em muitos diretórios necessito que seja acrescentada a sigla TF ao número do desenho, exepto os que comtém letras, esses a letra desaparece, aparecendo só a seguir ao numero TF.

São desenhos que tenho no autocad com fields, após estas alterações, ao abrir no autocad ele lê automaticamente o nome do ficheiro.

Se alguém me puder dar uma ajudinha agradecia.

Atenciosamente

RAntunez

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
jorgepinho

Oi,

Não vai ser fácil...

Sim, é possível com o BAT, mas não com o que pretendes... pois há uma lógica associada (se tem letras, faz... senão...)

Tens de usar uma linguagem de script... perl, PHP, etc... mas terias que instalar coisas....

Uma alternativa pode ser o... Office  :)

através de um módulo de VBA consegues programar uma tarefa, mas se não sabes programação ;)

Se fôr um ficheiro ZIP pequeno mande-me isso zippado que eu faço isso.

Manda-me o teu email por PM

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
falco

Em Perl baseado no teu exemplo:

package FileRenamer;

use 5.010;
use strict;
use warnings;
use Data::Dumper;


__PACKAGE__->run unless caller();



sub run {
    my $dir = $ARGV[0];

    my %files = make_file_table($dir);
    make_name_change(%files);
}


sub make_file_table {
    my %files = map {
        s/^($dir\/PNBA\.E\.(?:\d{2}\.\d{2})).*$/$1TF/;
        $1 => $_;
    } list_files($dir);

}

sub list_files {
    my $dir = shift;

    die "'$dir' doesn't exist" if(!(-e $dir));
    die "'$dir' is not a directory" if(!(-d $dir));

    my @file = glob "$dir/*";
    @file = grep { /^$dir\/PNBA\.E\.\d{2}\.\d{2}/; } @file;

    return @file;
}


sub make_name_change {
    my (%files) = @_;

    while(my ($old_name, $new_name) = each %files) {
        say "'$old_name' renomeado para: '$new_name'";
        rename $old_name, $new_name;
    }
}

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
RAntunez

Boa noite,

Desde já agradeço a atenção dispensada.

Como referi programação zero, então derivado à urgência socorri-me de um programinha Better File Rename.

Tinha muita urgência na resolução do mesmo.

http://graphicssoft.about.com/gi/o.htm?zi=1%2FXJ&zTi=1&sdn=graphicssoft&cdn=compute&tm=8&f=00&tt=14&bt=0&bts=0&st=10&zu=http%3A%2F%2Fwww.publicspace.net%2Fwindows%2FBetterFileRename%2Findex.html

Os meus sinceros agradecimentos

Rantunez

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.