antp.be forum

Code: Select all

chcp 1252

Code: Select all

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Fulvio53s03
Title=rename file from catalog
Description=rename File
Site=
Language=IT
Version=1.4
Requires=4.2
Comments=Questo script rinome i file name nelle cartelle usando alcuni campi del d.b.. Ovviamente.... state attenti ed esaminate prima il file .bat prodotto.
License=GPL
GetInfo=0
RequiresMovies=1

[Options]

[Parameters]

***************************************************)

program RenameFilm;
uses
  StringUtils1;
var
  DupList: TStringList;
  Indirizzo_cartelle, ResultPath, ext_file, Comando_rinomina, titolo_originale: string;
  percorso_file, titolo_tradotto, numero_rec, anno_film: string;
  Giri, giri_fatti, rec_variati, lgth_path, Posbar: integer;

procedure Elaborazione;
begin
	percorso_file := getField(fieldFilePath);
	indirizzo_cartelle := percorso_file;
	lgth_path := length(percorso_file);
	ext_file  := copy(percorso_file, (lgth_path - 3), 4);
	titolo_tradotto := getField(fieldTranslatedTitle);
	titolo_originale := getField(fieldOriginalTitle);
	numero_rec := getfield(fieldNumber);
	anno_film  := getfield(fieldyear);
	if length(numero_rec) = 1  then numero_rec := '000' + numero_rec;
	if length(numero_rec) = 2  then numero_rec := '00' + numero_rec;
	if length(numero_rec) = 3  then numero_rec := '0' + numero_rec;
	Posbar := AnsiLastPosEx('\', percorso_file, true, true);
	if  posbar > 0 then
      indirizzo_cartelle := copy(indirizzo_cartelle, 1, posbar);
  Comando_rinomina := 'move "' + indirizzo_cartelle;
  Comando_rinomina := Comando_rinomina + '[' + numero_rec + '] ';
  if   (titolo_originale = titolo_tradotto) or (titolo_originale = '') then
       titolo_originale := ' '
  else
       titolo_originale := ' [' + titolo_originale + '] ';
  Comando_rinomina := Comando_rinomina + titolo_tradotto + titolo_originale + anno_film + ext_file + '"';
  Comando_rinomina := Comando_rinomina +  '     "' + percorso_file + '"';
  if rec_variati = 0 then
     DupList.Add('chcp 1252');
  rec_variati := Rec_variati + 1;
  DupList.Add(Comando_rinomina);        //scrivi riga
end;
//
//MAIN PROGRAM
//
begin
  if StringUtils1_Version < 3 then
  begin
    ShowMessage('File "stringutils1.pas" is too old, please download a new version of it');
    Error;
  end;
  if ResultPath = '' then
    begin
    ResultPath := 'f:\prova\rename.bat.txt';
    Input('Update/Aggiorna Films', 'Store results to: / Salva Risultati in: ', ResultPath);
    giri := GetiterationCount;
    if DupList = nil then
       begin
       DupList := TStringList.Create;
       rec_variati := 0;
       end
    end;
    Elaborazione;

  giri_fatti := GetIteration;
  if giri_fatti = Giri-1 then            //fine elaborazione
       begin
       Comando_rinomina := 'pause';
       DupList.Add(Comando_rinomina);            //scrivi riga
       DupList.SaveToFile(ResultPath);   //chiudi file
       end
end.