antp.be forum

Code: Select all

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

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

[Infos]
Authors=Fulvio53s03
Title=Trova film Duplicati ITA
Description=Trova film duplicati e crea link
Site=
Language=IT, EN
Version=1.1
Requires=3.5
Comments=
License=GPL
GetInfo=0
RequiresMovies=1

[Options]
TitleToUse=2|1|1=Use original title|2=Use translated title|3=Check both titles
IgnoreCase=1|1|0=Case sensitive: Keep the uppercase/lowercase characters as different|1=Case insensitive: Consider "TITLE" as identical to "Title" or "title"

[Parameters]

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

program FindDup;
uses
  StringUtils1;
var
  MovList: TStringList;
  DupList: TStringList;
  CurTitle: string;
  CurLabel, Curmedia: string;
  Cursize: string;
  OldLabel, OldMedia: string;
  OldSize: string;
  ResultPath: string;
  Titleold, Titlenew: string;
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:\duplicates.csv';
    Input('Find Duplicates', 'Store results to:', ResultPath);
  end;
  if MovList = nil then
    MovList := TStringList.Create;
  if DupList = nil then
    DupList := TStringList.Create;
  case GetOption('TitleToUse') of
    1:  CurTitle := GetField(fieldOriginalTitle);
    2:  CurTitle := GetField(fieldTranslatedTitle);
    3:  CurTitle := GetField(fieldOriginalTitle) + ' | ' + GetField(fieldTranslatedTitle);
  else
    Error; // wrong option
  end;
  if GetOption('IgnoreCase') = 1
     then
       begin
       CurTitle := AnsiLowerCase(CurTitle);
       CurLabel := getField(fieldMedia);
       CurSize := getField(fieldSize);
       CurMedia := getField(fieldMediaType);
       Titleold := 'old;' + Oldlabel + ';' + Oldmedia + ';' + OldSize + ';' + Curlabel + ';' + Curmedia + ';' + CurSize + ';' + CurTitle;
       Titlenew := 'new;' + Curlabel + ';' + Curmedia + ';' + CurSize + ';' + Oldlabel + ';' + Oldmedia + ';' + OldSize + ';' + CurTitle;
//      + ';'  + '=COLLEG.IPERTESTUALE("F:\Ant Movie Catalog\Locandine_numerate\' + getField(FieldNumber) + '.jpg")';
       end
    if FindFullLine(CurTitle, MovList, 0) <> -1
    then  // film uguale
       begin
          DupList.Add(Titleold)
          DupList.Add(Titlenew)
       end
    else
       begin
          MovList.Add(CurTitle);
       end
    OldLabel := CurLabel;
    OldMedia := CurMedia;
    OldSize := CurSize;
    DupList.SaveToFile(ResultPath);   //scrivi
end.