home *** CD-ROM | disk | FTP | other *** search
unit ScorEpioNCommonScript; (******************************************************************************************************************* Partie commune α tous les scripts Θcris par ScorEpioN execMenuMAJ(VersionScript,NomScript) : Menu permettant la mise α jour du script verifVersion(NomScript) : permet de vΘrifier et tΘlΘcharger la derniΦre version d'un script nameOfFile(NomScript) : retourne le nom du fuchier correspondant au script verifVersionScriptCommun(Line) : permet de vΘrifier si l'on a besoin d'une nouvelle version su script commun contactScorEpioN() : ouvre dans votre navigateur le topic de mes scripts sur le forum AMC. downloadScript(NomScript); : tΘlΘcharge la derniΦre version du script menuScorEpioN() : rajoute α la liste de rΘsultats les fonctions prΘcΘdentes execMenuScorEpioN(urlDomain, Address) : si le choix appartient α menuScorEpioN retourne vrai sinon retourne faux MonDebug(Name, Line : String) : permet crΘer un fichier (dans le repertoire des scripts) contenant une chaine de caractΦre DeleteTitle(field) : supprime le titre du champs si "en double" formatTitre(titre,option) : retourne le titre avec la casse choisie en option findInfo(Debut, Fin, Line, Option) : retourne la chaine de caractΦre entre "dΘbut" et "fin" avec/sans retour chariot supprSubString(Debut, Fin, Line) : retourne la chaine Line sans la sous chaine comprise entre debut et fin (inclus) coupeInfo(Debut, Fin, Condition, Line) : retourne la chaine jusqu'a ce que la sous-chaine comprise entre dΘbut et fin diffΘre de Condition deleteAsianChar(Value) : efface les caractΦres asiatique (attention doit s'ΘxΘcuter avant HTMLDecode) deleteTab(Value) : supprime les tablulations deleteMultiReturn(Value) : supprime les retours α la ligne multiple deleteEnd(Value, EndValue) : supprime une EndValue de Value si EndValue termine la chaine MonSetField(field,value) : Rentre les infos dans le catalogue si non nulles MonGetPicture(value: string) : RΘcupΘre l'image si value non nulle FormatFloat(value: String) : Retourne une chaine de caractΦre formater pour faire des calculs avec des float; supprQuote(title) : remplace les " par des '' cleanTitle(title) : retourne un titre nettoyΘ des tags, et extensions (supprExt(title, ext)) transformCountry(country) : transforme les nationalitΘs en nom de pays dans le champs Pays supprimeLesAccents(NomFilm) : supprime les caractΦres accentuΘs initLesArticles() : crΘe la liste des articles supprimeLesArticles(NomFilm) : supprime les articles articleDebutTitre(title,Debut,Fin) : Remet les articles en dΘbut de titre conversionNR(NomFilm, Sens) : converti les chiffres romains en chiffre (et inversement) // Sens = 'RvN' ou 'NvR' recupTitreRecherche(option) : rΘcupΘre le titre original ou traduit suivant l'option titreDouble(option) : garde le titre voulue en option si titre en double moveComments() : mets le champs commentaire a la suite du champs description batch(Nom) : on donne le nom du site, et on lance le dialogue pour choisir la destination createLog() : crΘation du fichier de log AddToLog() : ajoute une ligne au fichier de log beforeUpdate() : ajoute au fichier de log les informations de la fiche avant mise α jour afterUpdate() : ajoute au fichier de log les informations de la fiche aprΦs mise α jour *******************************************************************************************************************) const FreeUrl = 'http://divouix.free.fr/AMC/'; VersionCommun = '17 du 25/05/2005'; var log, script : TStringList; fichierlog, adresselog, action : string; newSC, newS, execlog : Boolean; compteurMAJ : Integer; //------------------------------------------------------------------------------ // MENU DE MISE A JOUR //------------------------------------------------------------------------------ procedure execMenuMAJ(VersionScript,NomScript : String); begin PickTreeClear; PickTreeAdd('Menu de mise α jour', ''); PickTreeAdd('Verifier si vous avez la derniΦre version du script '+NomScript, 'version'); PickTreeAdd('Lister tous mes scripts', 'liste'); PickTreeAdd('Pour me contacter', 'contact'); PickTreeExec(action); if (action = 'version') then verifVersion(NomScript,VersionScript) else if (action = 'contact') then contactScorEpioN() else if (action = 'liste') then listeScriptScorEpioN(); { // A mettre dans option Mise α jour=1|1|0=Oui|1=Non // A mettre au dΘbut du programme principal if GetOption('Mise α jour') = 0 then begin execMenuMAJ(VersionScript,NomScript); exit; end; } end; //------------------------------------------------------------------------------ // VERIFIER LA VERSION DU SCRIPT //------------------------------------------------------------------------------ procedure verifVersion(NomScript, VersionCourante : String); var Line, LineCommon, NewVersion, LeMessage, Larticle, NomFichier, ContenuScript : String; BeginPos, EndPos : Integer; begin newSC := False; // Il n'y a pas de maj α faire. newS := False; LeMessage := ''; Larticle := 'la mise'; Line := GetPage(FreeUrl+'versions.txt'); LineCommon := Line; BeginPos := pos(NomScript+' v', Line); delete(Line,1, BeginPos+length(NomScript)+1); EndPos := pos('.', Line); NewVersion := copy(Line, 1, EndPos - 1); // TEST LA PRESENCE DE NOUVELLES VERSIONS if (verifVersionScriptCommun(LineCommon) = True) then newSC := True; if (nouvelleVersion(VersionCourante, NewVersion) = True) then newS := True; // EN FONCTION DES MAJ A FAIRE LES MESSAGES CHANGENT if (newS = True) then LeMessage := 'Il y a une nouvelle version du script '+NomScript+' : '+NewVersion+'.'+#13#10; if (newSC = True) then LeMessage := LeMessage+'Il y a une nouvelle version du script commun.'; if (newS = True) and (newSC = True) then Larticle := 'les mises'; // AJOUTE L'AVERTISSEMENT LeMessage := LeMessage+#13#10#13#10+'Cliquer sur ''''OUI'''' pour effectuer '+Larticle+' α jour dans le rΘpertoire :'+#13#10#13#10+''''+dirScripts+''''+#13#10#13#10+'Cliquer sur ''''NON'''' annuler.'; if (newS = False) and (newSC = False) then begin ShowInformation('Pas de mise α jour α effectuer.'); end else if (ShowConfirmation(LeMessage) = True) then // TELECHARGE LES SCRIPTS begin if (newS = True) then downloadScript(NomScript); if (newSC = True) then downloadScript('SCOREPIONCOMMONSCRIPT'); end else exit; end; //------------------------------------------------------------------------------ // RETOURNE LE NOM DU FICHIER //------------------------------------------------------------------------------ function nameOfFile(NomScript : String) : String; var Articles: array of string; i: integer; NomFichier, NomScriptTest : String; begin SetArrayLength(Articles,13); Articles[0]:='ALLOCINE|Allocine%20(FR).ifs'; Articles[1]:='AMAZON.FR|Amazon%20(FR).ifs'; Articles[2]:='AMAZON.FR (IMAGE ONLY)|Amazon%20Image%20(FR).ifs'; Articles[3]:='ANIMEKA|Animeka%20(FR).ifs'; Articles[4]:='CINEMASIE|Cinemasie%20(FR).ifs'; Articles[5]:='ERREURS DE FILMS|Erreurs%20de%20films%20(FR).ifs'; Articles[6]:='NIHON-FR|Nihon%20(FR).ifs'; Articles[7]:='UPDATE FIELDS|Update%20Fields%20(FR-US).ifs'; Articles[8]:='SCOREPIONCOMMONSCRIPT|ScorEpioNCommonScript.pas'; Articles[9]:='CINEMOVIES|Cinemovies%20(FR).ifs'; Articles[10]:='YUSUKETEAM|Yusuketeam%20(FR).ifs'; Articles[11]:='DVDPOST|DVDPost%20(FR).ifs'; Articles[12]:='HTMLTOCHM|HtmlToChm.ifs'; for i := 0 to GetArrayLength(articles)-1 do begin NomScriptTest := copy(Articles[i],0,pos('|',Articles[i])-1); if NomScriptTest = NomScript then begin NomFichier := copy(Articles[i],pos('|',Articles[i])+1,length(Articles[i])); Break; end; end; result := NomFichier; end; //------------------------------------------------------------------------------ // INDIQUE SI UNE NOUVELLE VERSION DE ScorEpioNCommonScript EST DISPONIBLE //------------------------------------------------------------------------------ function verifVersionScriptCommun(Line : String) : Boolean; var BeginPos : Integer; begin BeginPos := pos('SCOREPIONCOMMONSCRIPT v', Line); delete(Line,1, BeginPos+length('SCOREPIONCOMMONSCRIPT')+1); result := nouvelleVersion(VersionCommun, Line); end; //------------------------------------------------------------------------------ // INDIQUE SI UNE NOUVELLE VERSION DE SCRIPT EST DISPONIBLE //------------------------------------------------------------------------------ function nouvelleVersion(versionC, versionN : String) : Boolean; begin if (StrToInt(copy(versionN, 1, pos('du', versionN) - 2),2) > StrToInt(copy(versionC, 1, pos('du', versionC) - 2),2)) then begin result := True; end else result := False; end; //------------------------------------------------------------------------------ // OUVRE LA PAGE DU FORUM //------------------------------------------------------------------------------ procedure contactScorEpioN(); begin Launch('http://forum.antp.be/phpbb2/viewtopic.php?t=1453', ''); end; //------------------------------------------------------------------------------ // LISTE TOUS MES SCRIPTS //------------------------------------------------------------------------------ procedure listeScriptScorEpioN(); begin showmessage(GetPage(FreeUrl+'versions.txt')); end; //------------------------------------------------------------------------------ // TELECHARGE LE SCRIPT //------------------------------------------------------------------------------ procedure downloadScript(NomScript : String); var NomFichier, ContenuScript : String; begin NomFichier := nameOfFile(NomScript); Sleep(500); ContenuScript := GetPage(FreeUrl+NomFichier); script := TStringList.Create; script.Add(ContenuScript); NomFichier := StringReplace(NomFichier, '%20', ' '); script.SaveToFile(dirScripts+NomFichier); script.Free; end; //------------------------------------------------------------------------------ // AFFICHAGE DU MENU //------------------------------------------------------------------------------ procedure menuScorEpioN(); begin PickTreeAdd(' ', ''); PickTreeAdd('Verifier si vous avez la derniΦre version (New version)', 'version'); PickTreeAdd('Lister tous mes scripts', 'liste'); PickTreeAdd('Pour me contacter', 'contact'); end; { Canevas α mettre dans le script pour menuScorEpioN si on n'utilise pas execMenuScorEpioN if (Address = 'version') then begin verifVersion(NomScript,VersionScript); end else if (Address = 'contact') then begin contactScorEpioN(); end else if (Address = 'liste') then begin listeScriptScorEpioN(); end else } //------------------------------------------------------------------------------ // FUNCTION POUR EXECUTER ACTION DU MENU ScorEpioN //------------------------------------------------------------------------------ function execMenuScorEpioN(urlDomain, Address : String) : Boolean; begin if (pos(urlDomain, Address) = 0) then begin if (Address = 'version') then verifVersion(NomScript,VersionScript) else if (Address = 'contact') then contactScorEpioN() else if (Address = 'liste') then listeScriptScorEpioN(); result := True; end else result := False; end; { Canevas α mettre dans le script pour menuScorEpioN si on utilise execMenuScorEpioN if execMenuScorEpioN(urlDomain, Address) = False then AnalysePageFilm(Address); } //------------------------------------------------------------------------------ // PROCEDURE POUR AVOIR UN FICHIER DE DEBUG //------------------------------------------------------------------------------ procedure MonDebug(Name, Line : String); var debugFile : TStringList; begin debugFile := TStringList.Create; debugFile.Text := Line; debugFile.SaveToFile(dirScripts+'DEBUG_'+Name+'.TXT'); debugFile.Free; end; //------------------------------------------------------------------------------ // SUPPRIME TITRE EN DOUBLE //------------------------------------------------------------------------------ procedure DeleteTitle(field : Integer); begin if Trim(AnsiUpperCase(GetField(fieldTranslatedTitle))) = Trim(AnsiUpperCase(GetField(fieldOriginalTitle))) then begin if (CanSetField(field)) then SetField(field, ''); end; end; //------------------------------------------------------------------------------ // MET LE TITRE AU BON FORMAT //------------------------------------------------------------------------------ function formatTitre(titre : String; option : Integer) : string; begin if (option = 0) then begin titre := AnsiLowerCase(titre); end else if (option = 1) then begin titre := AnsiUpperCase(titre); end else if (option = 2) then begin //titre := AnsiLowerCase(titre); titre := AnsiUpFirstLetter(titre); end else if (option = 3) then begin titre := AnsiLowerCase(titre); titre := AnsiMixedCase(titre,' -''('); end else if (option = 4) then begin titre := titre; end; titre := StringReplace(titre, 'Usa', 'USA'); result := titre; end; //------------------------------------------------------------------------------ // TROUVE LA CHAINE VOULUE //------------------------------------------------------------------------------ function findInfo(Debut, Fin, Line, Option : String) : string; var infos : String; BeginPos, EndPos : Integer; begin infos := ''; BeginPos := pos(Debut, Line); if BeginPos > 0 then begin delete(Line, 1, BeginPos+length(Debut)-1); EndPos := pos(Fin, Line); infos := copy(Line,0,EndPos-1); if option = '-1' then // Pour garder les sauts de ligne begin infos := StringReplace(infos, '<BR>', #13#10); infos := StringReplace(infos, '<br>', #13#10); infos := StringReplace(infos, '–', '-'); HTMLRemoveTags(infos); infos := deleteAsianChar(infos); HTMLDecode(infos); end else if option = '0' then // Pour supprimer les sauts de ligne begin HTMLRemoveTags(infos); infos := deleteAsianChar(infos); HTMLDecode(infos); infos := StringReplace(infos, #13#10, ''); end else if option = '1' then // Pour supprimer les sauts de ligne et ne pas enlever les balises begin infos := deleteAsianChar(infos); HTMLDecode(infos); infos := StringReplace(infos, #13#10, ''); end else if option = '2' then // Pour supprimer les sauts de ligne begin HTMLRemoveTags(infos); HTMLDecode(infos); infos := StringReplace(infos, #13#10, ''); end else if option = '3' then // Pour garder les sauts de ligne et ne pas enlever les balises begin infos := StringReplace(infos, '<BR>', #13#10); infos := StringReplace(infos, '<br>', #13#10); infos := StringReplace(infos, '–', '-'); infos := deleteAsianChar(infos); HTMLDecode(infos); end else if option = '4' then // Pour ne rien faire begin result := infos; end; end; result := Trim(infos); end; //------------------------------------------------------------------------------ // SUPPRIME UNE SOUS CHAINE //------------------------------------------------------------------------------ function supprSubString(Debut, Fin, Line : String) : string; var infos : String; begin infos := findInfo(Debut, Fin, Line, '4'); Line := StringReplace(Line,Debut+infos+Fin,''); result := Line; end; //------------------------------------------------------------------------------ // COUPE UNE CHAINE SI UN CRITERE N'EST PAS RESPECTE //------------------------------------------------------------------------------ function coupeInfo(Debut, Fin, Condition, Line : String) : string; var infos, lacondition : String; BeginPos, EndPos, FinalPos : Integer; begin infos := Line; BeginPos := pos(Debut, infos); if BeginPos > 0 then begin FinalPos := 0; repeat BeginPos := pos(Debut, infos); delete(infos, 1, BeginPos+length(Debut)-1); FinalPos := FinalPos+BeginPos+length(Debut)-1; EndPos := pos(Fin, infos); lacondition := copy(infos,0,EndPos-1); delete(infos, 1, EndPos+length(Fin)-1); until (lacondition <> Condition); infos := copy(Line,0,FinalPos-1); end; HTMLRemoveTags(infos); result := Trim(infos); end; //------------------------------------------------------------------------------ // SUPPRESSION DES CARACTERES ASIATIQUES //------------------------------------------------------------------------------ function deleteAsianChar(Value : string) : String; begin repeat Value:= StringReplace(Value, '&#'+findInfo('&#', ';', Value,'0')+';', ''); until (pos('&#',Value) = 0); result := Value; end; //------------------------------------------------------------------------------ // SUPPRESSION DES TABLULATIONS //------------------------------------------------------------------------------ function deleteTab(Value : string) : String; begin repeat Value:= StringReplace(Value, ' ', ''); until (pos(' ',Value) = 0); result := Value; end; //------------------------------------------------------------------------------ // SUPPRESSION DES RETOURS A LA LIGNE MULTIPLES //------------------------------------------------------------------------------ function deleteMultiReturn(Value : string) : String; begin repeat Value:= StringReplace(Value, #13#10#13#10, ''); until (pos(#13#10#13#10,Value) = 0); result := Value; end; //------------------------------------------------------------------------------ // SUPPRIME UNE SOUS CHAINE D'UNE CHAINE SI TERMINE LA CHAINE //------------------------------------------------------------------------------ function deleteEnd(Value, EndValue : String) : String; begin if copy(Value,length(Value)-length(EndValue)+1,length(Value)) = EndValue then Value := copy(Value,1,length(Value)-length(EndValue)); result := Value; end; //------------------------------------------------------------------------------ // STOCKE LA VALEUR DANS LE CHAMP SP╔CIFI╔ SI LA VALEUR EST NON NULLE //------------------------------------------------------------------------------ procedure MonSetField(field: Integer; value: string); begin if value <> '' then SetField(field,supprQuote(value)); end; //------------------------------------------------------------------------------ // STOCKE L'IMAGE SI LA VALEUR EST NON NULLE //------------------------------------------------------------------------------ procedure MonGetPicture(value: string); begin if value <> '' then GetPicture(value); end; //------------------------------------------------------------------------------ // STOCKE LA VALEUR DANS LE CHAMP SP╔CIFI╔ SI LA VALEUR EST NON NULLE //------------------------------------------------------------------------------ function FormatFloat(value: String) : String; begin value := StringReplace(value, ',', '.'); if pos('.',value) = 0 then value := value+'.0'; result := value; end; //------------------------------------------------------------------------------ // REMPLACE " par '' //------------------------------------------------------------------------------ function supprQuote(title : String) : String; begin result := StringReplace(title, '"', ''''''); end; //------------------------------------------------------------------------------ // NETTOIE LE TITRE DU FICHIER POUR AVOIR LE TITRE DE FILM //------------------------------------------------------------------------------ function supprExt(title, ext : String) : String; // Supprime l'extension et ce qui suit var i : Integer; begin i := pos(ext,title); if i <> 0 then title := copy(title,1,i-1); result := title; end; function supprChemin(title : String) : String; // Supprime les chemins fichiers (C:\...) var i : Integer; begin i := pos('\',title); if i = 3 then begin while i <> 0 do begin title := copy(title,i+1,length(title)-1); i := pos('\',title); end; end; result := title; end; function cleanTitle(title : String) : string; var i,j, fin : Integer; temp : String; begin title := AnsiUpperCase(title); if title <> '' then begin title := supprChemin(title); // Nettoie les tags fichiers, merci Atmosfear pour les tags title := supprExt(title, '.DVD'); title := supprExt(title, '.DIVX'); title := supprExt(title, '.FREN'); title := supprExt(title, '.GERM'); title := supprExt(title, '.INT'); title := supprExt(title, '.LIM'); title := supprExt(title, '.PROP'); title := supprExt(title, '.REPACK'); title := supprExt(title, '.PROP'); title := supprExt(title, '.SUBB'); title := supprExt(title, '.UNSUB'); title := supprExt(title, '.WS'); title := supprExt(title, '.XVID'); title := supprExt(title, '.AC3'); title := supprExt(title, '.UNRAT'); title := supprExt(title, '.AVI'); title := supprExt(title, '.OGM'); title := supprExt(title, '.MKV'); title := supprExt(title, '.WMV'); title := supprExt(title, '.MPG'); title := supprExt(title, '.MPEG'); title := StringReplace(title, '. ', '><'); title := StringReplace(title, '.', ' '); title := StringReplace(title, ',', ' '); title := StringReplace(title, '_', ' '); title := StringReplace(title, ':', ''); title := StringReplace(title, '-', ' '); title := StringReplace(title, ' ', ' '); title := StringReplace(title, '><', '. '); i := 0; // Nettoie les tags de team if (pos('(',title) <> 0) then begin i := pos('(',title); temp := copy(title,0,i-1); j := pos(')',title); fin := Length(title); title := temp + copy(title,j+1,fin); end; if (pos('[',title) <> 0) then begin i := pos('[',title); temp := copy(title,1,i-1); j := pos(']',title); fin := Length(title); title := temp + copy(title,j+1,fin); end; end; title := Trim(title); title := AnsiLowerCase(title); title := formatTitre(title ,GetOption('Format du Titre')); if (GetOption('Format du Titre') = -1) then title := formatTitre(title ,GetOption('Casse Choisie')); result := title; end; //------------------------------------------------------------------------------ // TRANSFORME NATIONALITE EN PAYS //------------------------------------------------------------------------------ function transformCountry(country : String) : string; begin country := AnsiLowerCase(country); // Liste des nationalitΘs trouvΘe sur moviecovers country := StringReplace(country, 'afghan', 'Afghanistan'); country := StringReplace(country, 'albanais', 'Albanie'); country := StringReplace(country, 'algΘrien', 'AlgΘrie'); country := StringReplace(country, 'allemand', 'Allemagne'); country := StringReplace(country, 'amΘricain', 'USA'); country := StringReplace(country, 'argentin', 'Argentine'); country := StringReplace(country, 'armΘnien', 'ArmΘnie'); country := StringReplace(country, 'australien', 'Australie'); country := StringReplace(country, 'autrichien', 'Autriche'); country := StringReplace(country, 'bangladais', 'Bangladesh'); country := StringReplace(country, 'belge', 'Belgique'); country := StringReplace(country, 'beninois', 'Benin'); country := StringReplace(country, 'bosniaque', 'Bosnie'); country := StringReplace(country, 'botswanais', 'Botswana'); country := StringReplace(country, 'bouthanais', 'Bouthan'); country := StringReplace(country, 'brΘsilien', 'BrΘsil'); country := StringReplace(country, 'britannique', 'Grande-Bretagne'); country := StringReplace(country, 'bulgare', 'Bulgarie'); country := StringReplace(country, 'burkinabΦ', 'Burkina Faso'); country := StringReplace(country, 'cambodgien', 'Cambodge'); country := StringReplace(country, 'camerounais', 'Cameroun'); country := StringReplace(country, 'canadien', 'Canada'); country := StringReplace(country, 'chilien', 'Chili'); country := StringReplace(country, 'chinois', 'Chine'); country := StringReplace(country, 'colombien', 'Colombie'); country := StringReplace(country, 'congolais', 'Congo'); country := StringReplace(country, 'cubain', 'Cuba'); country := StringReplace(country, 'danois', 'Danemark'); country := StringReplace(country, 'ecossais', 'Ecosse'); country := StringReplace(country, 'egyptien', 'Egypte'); country := StringReplace(country, 'espagnol', 'Espagne'); country := StringReplace(country, 'estonien', 'Estonie'); country := StringReplace(country, 'europΘen', 'UE'); country := StringReplace(country, 'finlandais', 'Finlande'); country := StringReplace(country, 'franτais', 'France'); country := StringReplace(country, 'gabonais', 'Gabon'); country := StringReplace(country, 'georgien', 'GΘorgie'); country := StringReplace(country, 'grec', 'GrΦce'); country := StringReplace(country, 'guinΘen', 'GuinΘe'); country := StringReplace(country, 'ha∩tien', 'Ha∩ti'); country := StringReplace(country, 'hollandais', 'Pays-Bas'); country := StringReplace(country, 'hong-kongais', 'Hong-Kong'); country := StringReplace(country, 'hongrois', 'Hongrie'); country := StringReplace(country, 'indien', 'Inde'); country := StringReplace(country, 'indonΘsien', 'IndonΘsie'); country := StringReplace(country, 'irakien', 'Irak'); country := StringReplace(country, 'iranien', 'Iran'); country := StringReplace(country, 'irlandais', 'Irlande'); country := StringReplace(country, 'islandais', 'Islande'); country := StringReplace(country, 'israΘlien', 'Israδl'); country := StringReplace(country, 'italien', 'Italie'); country := StringReplace(country, 'ivoirien', 'C⌠te d''Ivoire'); country := StringReplace(country, 'jama∩cain', 'Jama∩que'); country := StringReplace(country, 'japonais', 'Japon'); country := StringReplace(country, 'kazakh', 'Kazakhstan'); country := StringReplace(country, 'kirghiz', 'Kirghizistan'); country := StringReplace(country, 'kurde', 'Kurdistan'); country := StringReplace(country, 'lettonien', 'Lettonie'); country := StringReplace(country, 'libanais', 'Liban'); country := StringReplace(country, 'liechtensteinois', 'Liechtenstein'); country := StringReplace(country, 'lituanien', 'Lituanie'); country := StringReplace(country, 'luxembourgeois', 'Luxembourg'); country := StringReplace(country, 'macΘdonien', 'MacΘdoine'); country := StringReplace(country, 'malaisien', 'Malaisie'); country := StringReplace(country, 'malien', 'Mali'); country := StringReplace(country, 'maltais', 'Malte'); country := StringReplace(country, 'marocain', 'Maroc'); country := StringReplace(country, 'mauritanien', 'Mauritanie'); country := StringReplace(country, 'mexicain', 'Mexique'); country := StringReplace(country, 'nΘo-zΘlandais', 'Nouvelle-ZΘlande'); country := StringReplace(country, 'nigΘrien', 'NigΘria'); country := StringReplace(country, 'nord-corΘen', 'CorΘe du Nord'); country := StringReplace(country, 'norvΘgien', 'NorvΘge'); country := StringReplace(country, 'pakistanais', 'Pakistan'); country := StringReplace(country, 'palestinien', 'Palestine'); country := StringReplace(country, 'pΘruvien', 'PΘrou'); country := StringReplace(country, 'philippiens', 'Philippine'); country := StringReplace(country, 'polonais', 'Pologne'); country := StringReplace(country, 'portugais', 'Portugal'); country := StringReplace(country, 'roumain', 'Roumanie'); country := StringReplace(country, 'russe', 'Russie'); country := StringReplace(country, 'sΘnΘgalais', 'SΘnΘgal'); country := StringReplace(country, 'serbe', 'Serbie'); country := StringReplace(country, 'serbo-croate', 'Serbie, Croatie'); country := StringReplace(country, 'singapourien', 'Singapour'); country := StringReplace(country, 'slovaque', 'Slovaquie'); country := StringReplace(country, 'soviΘtique', 'URSS'); country := StringReplace(country, 'sri-lankais', 'Sri-Lanka'); country := StringReplace(country, 'sud-africain', 'Afrique du Sud'); country := StringReplace(country, 'sud-corΘen', 'CorΘe du Sud'); country := StringReplace(country, 'suΘdois', 'SuΦde'); country := StringReplace(country, 'suisse', 'Suisse'); country := StringReplace(country, 'tadjik', 'Tadjikistan'); country := StringReplace(country, 'ta∩wanais', 'Ta∩wan'); country := StringReplace(country, 'tchadien', 'Tchad'); country := StringReplace(country, 'tchΦque', 'RΘpublique TchΦque'); country := StringReplace(country, 'tha∩landais', 'Tha∩lande'); country := StringReplace(country, 'tunisien', 'Tunisie'); country := StringReplace(country, 'turc', 'Turquie'); country := StringReplace(country, 'usa', 'USA'); country := StringReplace(country, 'ukranien', 'Ukraine'); country := StringReplace(country, 'uruguayen', 'Uruguay'); country := StringReplace(country, 'vΘnΘzuΘlien', 'VΘnΘzuΘla'); country := StringReplace(country, 'vietnamien', 'Vietnam'); country := StringReplace(country, 'yougoslave', 'Yougoslavie'); country := StringReplace(country, 'rΘpublique RΘpublique', 'RΘpublique'); country := formatTitre(country ,GetOption('Format du Titre')); if (GetOption('Format du Titre') = -1) then country := formatTitre(country ,GetOption('Casse Choisie')); result := country; end; //------------------------------------------------------------------------------ // SUPPRIME LES ACCENTS //------------------------------------------------------------------------------ function supprimeLesAccents(NomFilm : String) : string; begin NomFilm := AnsiLowerCase(NomFilm); NomFilm := StringReplace(NomFilm, 'α', 'a'); NomFilm := StringReplace(NomFilm, 'ß', 'a'); NomFilm := StringReplace(NomFilm, 'Γ', 'a'); NomFilm := StringReplace(NomFilm, 'π', 'a'); NomFilm := StringReplace(NomFilm, 'Σ', 'a'); NomFilm := StringReplace(NomFilm, 'π', 'a'); NomFilm := StringReplace(NomFilm, 'Θ', 'e'); NomFilm := StringReplace(NomFilm, 'Φ', 'e'); NomFilm := StringReplace(NomFilm, 'δ', 'e'); NomFilm := StringReplace(NomFilm, 'Ω', 'e'); NomFilm := StringReplace(NomFilm, '∩', 'i'); NomFilm := StringReplace(NomFilm, 'ε', 'i'); NomFilm := StringReplace(NomFilm, '∞', 'i'); NomFilm := StringReplace(NomFilm, 'φ', 'i'); NomFilm := StringReplace(NomFilm, '⌠', 'o'); NomFilm := StringReplace(NomFilm, '÷', 'o'); NomFilm := StringReplace(NomFilm, '⌡', 'o'); NomFilm := StringReplace(NomFilm, '≥', 'o'); NomFilm := StringReplace(NomFilm, '≤', 'o'); NomFilm := StringReplace(NomFilm, 'ⁿ', 'u'); NomFilm := StringReplace(NomFilm, '√', 'u'); NomFilm := StringReplace(NomFilm, '·', 'u'); NomFilm := StringReplace(NomFilm, 'τ', 'c'); NomFilm := StringReplace(NomFilm, '±', 'n'); NomFilm := StringReplace(NomFilm, '⌠', 'o'); result := NomFilm; end; //------------------------------------------------------------------------------ // INITIALISE LA LISTE DES ARTICLES //------------------------------------------------------------------------------ function initLesArticles() : array of string; var Articles: array of string; i: integer; begin SetArrayLength(Articles,32); Articles[0]:='le '; Articles[1]:='la '; Articles[2]:='l'''; Articles[3]:='l '; Articles[4]:='les '; Articles[5]:='des '; Articles[6]:='un '; Articles[7]:='une '; Articles[8]:='the '; Articles[9]:='a '; Articles[10]:='an '; Articles[11]:='der '; Articles[12]:='das '; Articles[13]:='die '; Articles[14]:='dem '; Articles[15]:='den '; Articles[16]:='ein '; Articles[17]:='eine '; Articles[18]:='einen '; Articles[19]:='einer '; Articles[20]:='eines '; Articles[21]:='einem '; Articles[22]:='uno '; Articles[23]:='una '; Articles[24]:='el '; Articles[25]:='los '; Articles[26]:='las '; Articles[27]:='unos '; Articles[28]:='unas '; Articles[29]:='il '; Articles[30]:='lo '; Articles[31]:='i '; result := Articles; end; //------------------------------------------------------------------------------ // SUPPRIME LES ARTICLES //------------------------------------------------------------------------------ function supprimeLesArticles(NomFilm : String) : string; var Articles: array of string; i: integer; begin Articles := initLesArticles(); NomFilm := AnsiLowerCase(NomFilm); // supprimer les articles for i := 0 to GetArrayLength(Articles)-1 do begin if Pos(Articles[i], NomFilm) = 1 then begin NomFilm := Copy(NomFilm, Length(Articles[i])+1, length(NomFilm)); Break; end; end; result := NomFilm; end; //------------------------------------------------------------------------------ // REMET LES ARTICLES EN DEBUT DE TITRE //------------------------------------------------------------------------------ function articleDebutTitre(title,Debut,Fin : String) : String; var Articles: array of string; i: integer; begin title := AnsiLowerCase(title); Articles := initLesArticles(); for i := 0 to GetArrayLength(Articles)-1 do begin if Pos(Debut+trim(Articles[i])+Fin, title) <> 0 then begin title := Articles[i]+title; title := StringReplace(title, Debut+trim(Articles[i])+Fin, ''); Break; end; end; result := title; end; //------------------------------------------------------------------------------ // CONVERTI LES CHIFFRES ROMAINS EN NOMBRE ET INVERSEMENT //------------------------------------------------------------------------------ function conversionNR(NomFilm, Sens : String) : string; // Sens = RvN ou NvR var nombresR, nombresN : array of string; i: integer; begin NomFilm := AnsiLowerCase(NomFilm); NomFilm := NomFilm+' '; SetArrayLength(nombresR,5); nombresR[0]:=' i '; nombresR[1]:=' ii '; nombresR[2]:=' iii '; nombresR[3]:=' iv '; nombresR[4]:=' v '; SetArrayLength(nombresN,5); nombresN[0]:=' 1 '; nombresN[1]:=' 2 '; nombresN[2]:=' 3 '; nombresN[3]:=' 4 '; nombresN[4]:=' 5 '; if (Sens = 'RvN') then begin for i := 0 to GetArrayLength(nombresR)-1 do begin if Pos(nombresR[i], NomFilm) <> 0 then begin NomFilm := StringReplace(NomFilm, nombresR[i], nombresN[i]); Break; end; end; end else if (Sens = 'NvR') then begin for i := 0 to GetArrayLength(nombresN)-1 do begin if Pos(nombresN[i], NomFilm) <> 0 then begin NomFilm := StringReplace(NomFilm, nombresN[i], nombresR[i]); Break; end; end; end; NomFilm := Trim(NomFilm); NomFilm := formatTitre(NomFilm ,GetOption('Format du Titre')); if (GetOption('Format du Titre') = -1) then NomFilm := formatTitre(NomFilm ,GetOption('Casse Choisie')); result := NomFilm; end; //------------------------------------------------------------------------------ // RECHERCHE SUR LE TITRE ORIGINAL OU TRADUIT //------------------------------------------------------------------------------ function recupTitreRecherche(option : Integer) : string; var NomFilm : String; begin if (option = 0) then begin NomFilm := GetField(fieldTranslatedTitle); if NomFilm = '' then NomFilm := GetField(fieldOriginalTitle); end else if (option = 1) then begin NomFilm := GetField(fieldOriginalTitle); if NomFilm = '' then NomFilm := GetField(fieldTranslatedTitle); end; NomFilm := cleanTitle(NomFilm); result := NomFilm; end; //------------------------------------------------------------------------------ // AFFICHAGE DES TITRES SI ORIGINAL ET TRADUIT IDENTIQUE //------------------------------------------------------------------------------ procedure titreDouble(option : Integer); begin if (option = 0) then begin exit; end else if (option = 1) then begin if CanSetField(fieldTranslatedTitle) then DeleteTitle(fieldTranslatedTitle); end else if (option = 2) then begin if CanSetField(fieldOriginalTitle) then DeleteTitle(fieldOriginalTitle); end; end; //------------------------------------------------------------------------------ // FONCTION METS LE CHAMPS COMMENTAIRE A LA SUITE DU CHAMPS DESCRIPTION //------------------------------------------------------------------------------ procedure moveComments(); begin SetField(fieldDescription,GetField(fieldDescription)+#13#10#13#10+GetField(fieldComments)); SetField(fieldComments,''); end; //------------------------------------------------------------------------------ // PROCEDURE D'ECRITURE D'UN FICHIER DE LOG //------------------------------------------------------------------------------ procedure batch(Nom : String); // DIALOGUE POUR DETERMINER LA DESTINATION (α utiliser au lancement du script) begin execlog := True; adresselog := GetStatic('path'); if adresselog = '' then begin SetStatic('path',dirScripts); adresselog := GetStatic('path'); end; fichierlog := 'BATCH-'+Nom+'.TXT'; if (ShowConfirmation('Le fichier de log se nomme : '+fichierlog+'.'+#13#10+'Le rΘpertoire de destination est : '+#13#10#13#10+adresselog+#13#10#13#10+'Cliquer sur ''''OUI'''' pour valider.'+#13#10+'Cliquer sur ''''NON'''' pour donner un nouveau chemin.') = True) then begin createLog(); end else begin if Input('Choix du path pour le fichier de log', 'Entrez le rΘpertoire de destination :', adresselog) then begin if (copy(adresselog,length(adresselog),length(adresselog)) <> '\') then adresselog := adresselog+'\'; SetStatic('path',adresselog); adresselog := GetStatic('path'); createLog(); end else begin execlog := False; exit; end; end; end; procedure createLog(); // CREATION DU FICHIER DE LOG begin log := TStringList.Create; log.Text := '*****************************************************************************'; log.SaveToFile(adresselog+fichierlog); compteurMAJ := 0; end; procedure AddToLog(m: string); // AJOUTE UNE LIGNE AU FICHIER DE LOG begin if execlog then begin log.Add(m); log.SaveToFile(adresselog+fichierlog); end; end; procedure beforeUpdate(); // AJOUTE LES INFOS AVANT MISE A JOUR (α utiliser avant de rΘcupΘrer des infos) var chaine, lecompteurMAJ : String; begin if execlog then begin chaine := ''; compteurMAJ := compteurMAJ+1; if compteurMAJ < 10 then lecompteurMAJ := '00'+IntToStr(compteurMAJ) else if compteurMAJ < 100 then lecompteurMAJ := '0'+IntToStr(compteurMAJ) else lecompteurMAJ := IntToStr(compteurMAJ); AddToLog('************************** Traitement n░ '+lecompteurMAJ+' ********************************'); AddToLog('Informations avant mise α jour du film n░'+GetField(fieldNumber)+'.'); chaine := 'Titre traduit : '+GetField(fieldTranslatedTitle)+' - Titre original : '+GetField(fieldOriginalTitle); AddToLog(chaine); chaine := 'RΘalisateur : '+GetField(fieldDirector)+' - AnnΘe : '+GetField(fieldYear); AddToLog(chaine); chaine := 'Adresse Web : '+GetField(fieldURL); AddToLog(chaine); chaine := ''; end; end; procedure afterUpdate(); // AJOUTE LES INFOS APRES MISE A JOUR (α utiliser aprΦs la rΘcupΘration des infos) var chaine : String; begin if execlog then begin chaine := ''; AddToLog('Informations aprΦs mise α jour'); chaine := 'Titre traduit : '+GetField(fieldTranslatedTitle)+' - Titre original : '+GetField(fieldOriginalTitle); AddToLog(chaine); chaine := 'RΘalisateur : '+GetField(fieldDirector)+' - AnnΘe : '+GetField(fieldYear); AddToLog(chaine); chaine := 'Adresse Web : '+GetField(fieldURL); AddToLog(chaine); AddToLog('*****************************************************************************'); SetField(fieldChecked, 'x'); chaine := ''; end; end; end. 
