',Line,0);
t3 := MonFindInfo('
','
',temp,0);
NoHTML(t3);
comment := comment+t1+' (Note : '+t2+' sur 5)'+#13#10+t3+#13#10#13#10#13#10;
Delete(Line,1,pos('',Line));
temp := '';
t1 := '';
t2 := '';
t3 := '';
end
SetField(fieldComments,comment);
end
end;
//--OK--------------------------------------------------------------------------
// Supprimme les balises HTML
//------------------------------------------------------------------------------
procedure NoHTML(var page: string);
var
temp : string;
begin
HTMLDecode(page);
page := StringReplace(page,'
',#13#10);
page := StringReplace(page,'
','');
page := StringReplace(page,'','');
page := StringReplace(page,'
','');
page := StringReplace(page,'','');
page := StringReplace(page,'
','');
page := StringReplace(page,'','');
page := StringReplace(page,'
',#13#10);
While Pos('<',page) > 0 Do
begin
temp := MonFindInfo('<','>',page,1);
page := StringReplace(page,temp,'');
temp := '';
end
end;
//--OK--------------------------------------------------------------------------
// TROUVE LA CHAINE VOULUE (Merci ScorEpioN)
// option = 1 : Garde début et fin
// option = 0 : NE garde PAS début et fin
//------------------------------------------------------------------------------
function MonFindInfo(Debut, Fin, Line : string ; option : integer) : string;
var
infos : String;
BeginPos, EndPos : Integer;
begin
infos := '';
BeginPos := pos(Debut, Line);
if BeginPos > 0 then
begin
if (option = 1) then
// Garde 'Debut' et 'Fin'
begin
delete(Line, 1, BeginPos-1);
EndPos := pos(Fin, Line);
infos := copy(Line,0,EndPos+length(Fin)-1);
end
else
// Supprimme 'Debut' et 'Fin'
// Vérifie si paramètre 'option' n'est pas invalide
if (option = 0) then
begin
delete(Line, 1, BeginPos+length(Debut)-1);
EndPos := pos(Fin, Line);
infos := copy(Line,0,EndPos-1);
end
end
result := Trim(infos);
end;
//--OK--------------------------------------------------------------------------
// Formatte les textes (Merci ScorEpioN)
//------------------------------------------------------------------------------
procedure Format(name : string);
var
option: integer;
begin
option := GetOption('Format du Titre');
name := formatTitre(name,option);
end;
//------------------------------------------------------------------------------
// MET LE TITRE AU BON FORMAT (merci ScorEpioN)
//------------------------------------------------------------------------------
function formatTitre(titre2 : String; option : Integer) : string;
begin
if (option = 0) then
begin
titre2 := AnsiLowerCase(titre2);
end else if (option = 1) then
begin
titre2 := AnsiUpperCase(titre2);
end else if (option = 2) then
begin
//titre := AnsiLowerCase(titre);
titre2 := AnsiUpFirstLetter(titre2);
end else if (option = 3) then
begin
titre2 := AnsiLowerCase(titre2);
titre2 := AnsiMixedCase(titre2,' -''(');
end else if (option = 4) then
begin
titre2 := titre2;
end;
titre2 := StringReplace(titre2, 'Usa', 'USA');
result := titre2;
end;
//------------------------------------------------------------------------------
// RECHERCHE SUR LE TITRE ORIGINAL OU TRADUIT (Merci ScroEpioN)
//------------------------------------------------------------------------------
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;
//------------------------------------------------------------------------------
// LastPos ***** Like the Pos function, but returns the last occurence instead of the first one *****
// => cf StringUtils.pas
function LastPos(ASearch: string; AText: string): Integer;
var
CurPos, PrevPos: Integer;
begin
PrevPos := 0;
CurPos := Pos(ASearch, AText);
while CurPos > 0 do
begin
if PrevPos = 0 then
PrevPos := CurPos
else
PrevPos := PrevPos + CurPos + Length(ASearch) - 1;
Delete(AText, 1, CurPos + Length(ASearch) - 1);
CurPos := Pos(ASearch, AText);
end;
Result := PrevPos;
end;
//------------------------------------------------------------------------------
// PROGRAMME PRINCIPAL
//------------------------------------------------------------------------------
begin
if CheckVersion(3,5,0) then
begin
NumPage := 1;
Comments := '';
TypeR := GetOption('Type de recherche');
sTypeR := FloatToStr(TypeR);
If sTypeR = '0' Then
sTypeR := '';
MovieName := recupTitreRecherche(GetOption('Recherche sur le titre'));
// Choix du lancement
// Demande du titre
if (GetOption('Type de Lancement') = 0) then
begin
if Input(NomScript+' par draco31.fr', 'Entrez le titre du film :',MovieName) then
begin
if Pos(urlDomain, MovieName) > 0 then
begin
typeR := -1;
AnalyzeMoviePage(MovieName);
end
else
AnalyzeSearchPage(urlDMSearch+stypeR+urlDMSearchGo+urlEncode(MovieName)+'&page='+FloatToStr(NumPage));
end
end
else
begin
// Ne demande pas le titre
if (GetOption('Type de Lancement') = 1) then
AnalyzeSearchPage(urlDMSearch+stypeR+urlDMSearchGo+urlEncode(MovieName)+'&page='+FloatToStr(NumPage))
else
begin
// Directement sur l'adresse web
if (GetOption('Type de Lancement') = 2) then
begin
urlTitre := GetField(fieldURL);
if Pos(urlDomain,urlTitre) > 0 Then
begin
typeR := -1;
AnalyzeMoviePage(urlTitre);
end
else
ShowError('L''adresse web ne correspond pas à une page web de DiscountManga !');
end
end
end
end
else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');
end.