antp.be forum

Code: Select all

C h a n g e d 

Code: Select all

B e i ng   C h a n g e d 

Code: Select all

if GetIteration = 0 then
begin
  // begin of the list (first movie)
end
else if GetIteration = GetIterationCount-1 then
begin
  // end of the list (last movie)
end
else
begin
  // other movies
end;

Code: Select all

script changed

Code: Select all

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

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

[Infos]
Authors=Fulvio53s03
Title=rename films
Description=rename films
Site=
Language=?
Version=1.2
Requires=4.1
Comments=After importing informations from movies contained in a folder and after importing informations about movies from internet...... this Script will Rename your movies' file names (contained in field File Path) using these optional criterias:    1) Translated Title or original Title or Formatted Title     2) Director (Between Brackets)     3) Year     4) Languages            i.e. from "Y:\Film\Film da catalogare\The Machinist (2004) 1080p.mkv"  you can obtain ""L'uomo Senza Sonno (The Machinist) (Brad Anderson) 2004 ENG, ITA, ENG.mkv".       Using it, you will obtain a file named c:\rename.bat.txt (or any other name you choose) that you can open with notepad, control it, rename in c:\rename.bat and then execute it.         The script can updates field File Path in Catalog or leave it unchanged (default),             Obviousely...... be careful!!!
License=GPL
GetInfo=0
RequiresMovies=1

[Options]
Title=1|1|0=Formatted Title|1=Translated Title|2=Original Title
Director=1|1|1=Yes|0=No
Year=1|1|1=Yes|0=No
Languages=1|1|1=Yes|0=No
Update_path=0|0|1=Yes|0=No

[Parameters]

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

program RenameFilm;
uses
  StringUtils1;
var
  MovList: TStringList;
  DupList: TStringList;
  NewName: string;
  ResultPath: string;
  Titlenew, Linguaggi, CampoAnno, OldPath, NewPath: string;
  Titolo, Regista, Anno, Lingue, PosBar, Aggiorna_path: integer;
  Giri, giri_fatti, lgth_path: integer;

Procedure ChangeLanguages;
  begin
    Linguaggi := AnsiUpperCase(Linguaggi);
    Linguaggi := StringReplace(Linguaggi, 'ENGLISH', 'ENG');
    Linguaggi := StringReplace(Linguaggi, 'SPANISH', 'ESP');
    Linguaggi := StringReplace(Linguaggi, 'FRENCH',  'FRA');
    Linguaggi := StringReplace(Linguaggi, 'ITALIAN', 'ITA');
    Linguaggi := StringReplace(Linguaggi, ', ', '_');
    Linguaggi := fulltrim(Linguaggi);
end;

procedure Elaborazione;
begin
       NewName := '"';
       if Titolo = 1
         then NewName := Newname + Getfield(fieldTranslatedTitle);
       if Titolo = 2
         then NewName := Newname + Getfield(fieldOriginalTitle);
       if Titolo = 0
         then NewName := Newname + Getfield(fieldFormattedTitle);
       if regista = 1
          then NewName := NewName  + ' (' + Getfield(fieldDirector) + ')';

       CampoAnno := Getfield(FieldYear);
       if Anno = 1
          then NewName := NewName  + ' ' + CampoAnno;

       Linguaggi := Fulltrim(Getfield(FieldLanguages));
       ChangeLanguages;
       if length(Linguaggi) > 0
          then Linguaggi := ' ' + Linguaggi;
       if Lingue = 1
          then NewName := NewName + Linguaggi;

       OldPath := getField(FieldFilePath);
       lgth_path := length(Oldpath);
       PosBar := AnsiLastPosEx('.', OldPath, true, true);
       delete(OldPath, (1), (PosBar-1));           //cut old filename
       NewName := Newname + Oldpath;
       
       OldPath := getField(FieldFilePath);
       lgth_path := length(Oldpath);
       If Aggiorna_path = 0
          then lgth_path := 0;
       If lgth_path > 0 then
         begin
         PosBar := AnsiLastPosEx('\', OldPath, true, true);
         if   PosBar > 0 then
           begin
           delete(OldPath, (posbar + 1), (lgth_path - PosBar));           //cut old filename
           Newpath := Oldpath + stringReplace(NewName, '"', '');
           SetField(FieldFilePath, Newpath);
           end
         end

       if length(getField(FieldFilePath)) > 0 then
          begin
     Titlenew := 'ren "' + OldPath + '"     ' + NewName + '"';
            DupList.Add(Titlenew);        //scrivi riga
          end
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 := 'c:\rename.bat.txt';
    Input('Update/Aggiorna Films', 'Store results to: / Salva Risultati in: ', ResultPath);
    Titolo := GetOption('Title');
    Regista := GetOption('Director');
    Anno := GetOption('Year');
    Lingue := GetOption('languages');
    Aggiorna_path := GetOption('Update_path');
    if Aggiorna_path = 1 then
      begin
      ShowMessage('Attenzione! State per modificare il campo "file path" dei film nel Catalogo!         Advertence! You are going tu update field "file path" in Catalog!');
      end
    if Aggiorna_path = 0 then
      begin
      ShowMessage('Attenzione! Il campo "file path" dei film nel Catalogo non verrà aggiornato!         Advertence! Field "file path" in Catalog will not be updated!');
      end
    giri := GetiterationCount;
    if MovList = nil then
       MovList := TStringList.Create;
    if DupList = nil then
       begin
       DupList := TStringList.Create;
       end
    end;
    Elaborazione;

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