Je ne connais pas du tout le langage Pascal mais après avoir vu celui de Danone kid qui était clairement annoté je me suis penché sur le cas pour mon site.
Et voici le résultat (notez qu'il ressemble très très fortement à celui de Danone kid.
Note je l'ai testé dans tous les sen apparament il tourne correctement mais étant qonné que c'est mon premier et que vous voyez des bugs faites moi signe
Code: Select all
// GETINFO SCRIPTING
// berserkme descriptif et image
(***************************************************
* Script d'importation de film pour : *
* Berserkme.com , http://www.berserkme.com *
* *
* (c) 2003 berserkme *
* basé sur le code de cinefil (Danone kid *
* A utiliser avec Ant Movie Catalog 3.4.2 *
* www.ant.be.tf/moviecatalog *
* *
***************************************************)
program berserkme;
var
MovieName: string;
procedure AnalyzePage(Address: string);
var
Page: TStringList;
LineNr: Integer;
Line,page_film,titre_film, realisateur_film, annee_film: string;
BeginPos, EndPos: Integer;
begin
//vide la liste des films
PickTreeClear;
//charge la page
Line := GetPage(Address);
//teste si il y a des films trouvés
BeginPos := Pos('Aucun film trouv', Line);
if BeginPos <> 0 then
begin
showmessage('Aucun film trouvé !');
exit;
end;
//teste si il n'y a pas qu'un seul film
// BeginPos := Pos('FILMS TROUVÉS', Line);
// if BeginPos = 0 then
// begin
// AnalysePageFilm(Address);
// exit;
// end;
//supprime tout le code avant la liste des films
// BeginPos := Pos('<B>ANNÉE</B>', Line);
// Delete(Line, 1, BeginPos-1);
repeat
//cherche le lien de la page du film
BeginPos := Pos('<a href="details.asp?ref=',Line);
Delete(Line, 1, BeginPos+8);
EndPos := Pos('">',Line);
page_film := 'http://www.berserkme.com/amc/' + Copy(Line, 1, EndPos-1 );
//cherche le nom du film
BeginPos := Pos('">',Line);
Delete(Line, 1, BeginPos+1);
EndPos := Pos('</a><br>',Line)-1;
titre_film := Copy(Line, 1, EndPos );
HTMLdecode(titre_film);
HTMLremovetags(titre_film);
titre_film := StringReplace(titre_film, #13#10, '');
titre_film := StringReplace(titre_film, ' ', '');
titre_film := Trim(titre_film);
titre_film := AnsiLowerCase(titre_film);
titre_film := AnsiUpFirstLetter(titre_film);
//ajoute les films
PickTreeAdd(titre_film , page_film);
//cherche le lien de la page du film
BeginPos := Pos('href="details.asp?ref=',Line);
until BeginPos = 0;
begin
if PickTreeExec(Address)=true then
AnalysePageFilm(Address);
end;
end;
//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE DU FILM
//------------------------------------------------------------------------------
procedure AnalysePageFilm(Address: string);
var
Line,page_film,titre_film,titre_original, categorie_film, realisateur_film, annee_film: string;
pays_film, duree_film, acteurs_film, liste_acteurs, description_film, reference_film,public_film,video_film,audio_film,fichier_image:string;
BeginPos, EndPos: Integer;
begin
//charge la page
Line := GetPage(Address);
//cherche le nom du film
BeginPos := Pos('titre:', Line);
Delete(Line, 1, BeginPos+5);
EndPos := Pos('<br>',Line)-1;
titre_film := Copy(Line, 1, EndPos );
HTMLdecode(titre_film);
titre_film := StringReplace(titre_film, #13#10, '');
titre_film := StringReplace(titre_film, ' ', '');
titre_film := Trim(titre_film);
titre_film := AnsiLowerCase(titre_film);
titre_film := AnsiMixedCase(titre_film, ' ');
titre_film := AnsiMixedCase(titre_film, '-');
//cherche la description
BeginPos := Pos('descriptif', Line);
Delete(Line, 1, BeginPos+12);
EndPos := Pos('<br>',Line)-1;
description_film := Copy(Line, 1, EndPos );
HTMLdecode(description_film);
description_film := StringReplace(description_film, #13#10, '');
description_film := StringReplace(description_film, ' ', '');
//cherche le titre original
//BeginPos := Pos('Titre Original : "', Line);
//Delete(Line, 1, BeginPos+17);
//EndPos := Pos('"</FONT>',Line)-1;
//titre_original := Copy(Line, 1, EndPos );
//HTMLdecode(titre_original);
//titre_original := StringReplace(titre_original, #13#10, '');
//titre_original := StringReplace(titre_original, ' ', '');
//titre_original := Trim(titre_original);
//titre_original := AnsiLowerCase(titre_original);
//titre_original := AnsiMixedCase(titre_original, ' ');
//titre_original := AnsiMixedCase(titre_original, '-');
//cherche l'année
BeginPos := Pos('année:', Line);
Delete(Line, 1, BeginPos+6);
EndPos := Pos('<br>',Line)-1;
annee_film := Copy(Line, 1, EndPos );
HTMLdecode(annee_film);
annee_film := StringReplace(annee_film, #13#10, '');
annee_film := StringReplace(annee_film, ' ', '');
annee_film := Trim(annee_film);
//cherche le pays
BeginPos := Pos('pays:', Line);
Delete(Line, 1, BeginPos+6);
EndPos := Pos('<br>',Line)-1;
pays_film := Copy(Line, 1, EndPos );
HTMLdecode(pays_film);
pays_film := StringReplace(pays_film, #13#10, '');
pays_film := StringReplace(pays_film, ' ', '');
pays_film := Trim(pays_film);
HTMLremovetags(pays_film);
pays_film := AnsiLowerCase(pays_film);
pays_film := AnsiMixedCase(pays_film, ' ');
pays_film := AnsiMixedCase(pays_film, '-');
//cherche la catégorie
BeginPos := Pos('genre:', Line);
Delete(Line, 1, BeginPos+7);
EndPos := Pos('<br>',Line)-1;
categorie_film := Copy(Line, 1, EndPos );
HTMLdecode(categorie_film);
categorie_film := StringReplace(categorie_film, #13#10, '');
categorie_film := StringReplace(categorie_film, ' ', '');
categorie_film := Trim(categorie_film);
categorie_film := AnsiLowerCase(categorie_film);
categorie_film := AnsiMixedCase(categorie_film, ' ');
categorie_film := AnsiMixedCase(categorie_film, '-');
//cherche le réalisateur
BeginPos := Pos('réalisateur:', Line);
Delete(Line, 1, BeginPos+12);
EndPos := Pos('<br>',Line)-1;
realisateur_film := Copy(Line, 1, EndPos );
HTMLdecode(realisateur_film);
realisateur_film := StringReplace(realisateur_film, #13#10, '');
realisateur_film := StringReplace(realisateur_film, ' ', '');
realisateur_film := Trim(realisateur_film);
realisateur_film := AnsiLowerCase(realisateur_film);
realisateur_film := AnsiMixedCase(realisateur_film, ' ');
realisateur_film := AnsiMixedCase(realisateur_film, '-');
repeat
//cherche les acteurs
BeginPos := Pos('acteurs:', Line);
Delete(Line, 1, BeginPos+9);
EndPos := Pos('<br>',Line)-1;
acteurs_film := Copy(Line, 1, EndPos );
HTMLdecode(acteurs_film);
acteurs_film := StringReplace(acteurs_film, #13#10, '');
acteurs_film := StringReplace(acteurs_film, ' ', '');
acteurs_film := Trim(acteurs_film);
acteurs_film := AnsiLowerCase(acteurs_film);
acteurs_film := AnsiMixedCase(acteurs_film, ' ');
acteurs_film := AnsiMixedCase(acteurs_film, '-');
BeginPos := Pos('acteurs:', Line);
if BeginPos = 0 then liste_acteurs := liste_acteurs + acteurs_film;
if BeginPos <> 0 then liste_acteurs := liste_acteurs + acteurs_film + ', ';
until BeginPos = 0;
//quel type de public
BeginPos := Pos('public:', Line);
Delete(Line, 1, BeginPos+6);
EndPos := Pos('<br>',Line)-1;
public_film := Copy(Line, 1, EndPos );
HTMLdecode(public_film);
public_film := StringReplace(public_film, #13#10, '');
public_film := StringReplace(public_film, ' ', '');
public_film := Trim(public_film);
public_film := AnsiLowerCase(public_film);
public_film := AnsiMixedCase(public_film, ' ');
public_film := AnsiMixedCase(public_film, '-');
//chargement des jaquettes
BeginPos := Pos('<img src="../base/imgpromo/', Line);
if BeginPos <> 0 then
begin
Delete(Line, 1, BeginPos+26);
EndPos := Pos('">',Line)-1;
fichier_image := 'http://www.berserkme.com/base/imgpromo/' + Copy(Line, 1, EndPos );
GetPicture(fichier_image, false);
end;
//cherche le format video
BeginPos := Pos('video:', Line);
Delete(Line, 1, BeginPos+7);
EndPos := Pos('<br>',Line)-1;
video_film := Copy(Line, 1, EndPos );
HTMLdecode(video_film);
video_film := StringReplace(video_film, #13#10, '');
video_film := StringReplace(video_film, ' ', '');
video_film := Trim(video_film);
video_film := AnsiLowerCase(video_film);
video_film := AnsiMixedCase(video_film, ' ');
video_film := AnsiMixedCase(video_film, '-');
//cherche le format audio
BeginPos := Pos('audio:', Line);
Delete(Line, 1, BeginPos+7);
EndPos := Pos('<br>',Line)-1;
audio_film := Copy(Line, 1, EndPos );
HTMLdecode(audio_film);
audio_film := StringReplace(audio_film, #13#10, '');
audio_film := StringReplace(audio_film, ' ', '');
audio_film := Trim(audio_film);
audio_film := AnsiLowerCase(audio_film);
audio_film := AnsiMixedCase(audio_film, ' ');
audio_film := AnsiMixedCase(audio_film, '-');
//charge les résultats dans la fenêtre
SetField( fieldTranslatedTitle,titre_film);
SetField( fieldOriginalTitle,titre_original);
if titre_original = '' then
begin
SetField( fieldOriginalTitle,titre_film);
end;
SetField( fieldCategory,categorie_film );
SetField( fieldDirector,realisateur_film);
SetField( fieldYear,annee_film);
SetField( fieldCountry,pays_film);
//SetField( fieldLength,duree_film);
SetField( fieldActors,liste_acteurs);
SetField( fieldDescription,description_film);
SetField( fieldURL,'http://www.berserkme.com');
SetField( fieldcomments,public_film);
SetField( fieldVIDEOFORMAT,video_film);
SetField( fieldAUDIOFORMAT,audio_film);
DisplayResults;
end;
begin
if CheckVersion(3,4,0) then
begin
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then
MovieName := GetField(fieldTranslatedTitle);
if Input('Berserkme avec image', 'Entrez le titre du film :', MovieName) then
begin
//remplace les caractères accentués
MovieName:= AnsiLowerCase(MovieName);
MovieName:= StringReplace(MovieName, 'é', 'e');
MovieName:= StringReplace(MovieName, 'è', 'e');
MovieName:= StringReplace(MovieName, 'à', 'a');
MovieName:= StringReplace(MovieName, 'ç', 'c');
MovieName:= StringReplace(MovieName, 'ù', 'u');
MovieName := 'http://www.berserkme.com/amc/question.asp?titre='+ UrlEncode(MovieName);
AnalyzePage(MovieName);
end;
end else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.4.0)');
end.
