Bonjour,
à propos des modifs dont je t'avais parlé sur cinemasie, j'ai fais des modifs sur la dernière version:
- correction d'un bug lors de la récupération du réalisateur lorsqu'ils sont plusieurs (ex Battle Royale II)
Code: Select all
// Réalisateur
if CanSetField(fieldDirector) then
begin
Value := findInfo(retourneElement(5), '</table>', Line,'1');
Value := StringReplace(Value, '<i>', ' (');
Value := StringReplace(Value, '</i>', '), ');
Value := StringReplace(Value, ' (), ', ', ');
Value := StringReplace(Value, ' ', '');
Value := coupeInfo('<div class="titrecol">', '</div>', '', Value);
Value := StringReplace(Value, ' - ', '');
Value := StringReplace(Value, ' ', ' ');
Value := StringReplace(Value, ' ', ' ');
Value := StringReplace(Value, ' ,', ',');
Value := deleteEnd(formatTitre(Value,GetOption('Casse Choisie')), ',');
MonSetField(fieldDirector, deleteEnd(Value, ', '));
end;
- différenciation d'un film avec un manga ou un anime. Par exemple pour cat's eye, il existe le manga, l'anime et le film. Avec ta version on ne récupère que le premier (puisqu'ils s'appellent pareils) mais c'est la fiche du manga. J'ai donc fait une modif qui précise s'il s'agit d'un manga ou autre :
Code: Select all
// Titres exacts
if pos(retourneElement(2),Line) <> 0 then
begin
StartPos := pos(retourneElement(2), Line);
delete(Line, 1, StartPos-1);
StartPos := pos('"indpic">', Line);
delete(Line, 1, StartPos-1);
repeat
StartPos := pos('"indpic">', Line);
delete(Line, 1, StartPos-1);
titre := findInfo('"indpic">', '</a>', Line,'0');
adresse := urlBaseFRUS()+findInfo('<a href="', '"', Line,'0');
if pos('manga/', adresse)>0 then
titre := titre + ' (manga)'
else if pos('animes/', adresse)>0 then
titre := titre + ' (animes)';
annee := findInfo(retourneElement(3)+'</b></td><td>', '</td>', Line,'0');
listeResultat.Add(annee+'|'+titre+'|'+adresse);
delete(Line, 1, length('"indpic">'));
EndPos := pos('</table>', Line);
StartPos := pos('"indpic">', Line);
until (StartPos > EndPos);
end;
titre_exact := titre;
// Autres titres
if pos(retourneElement(4),Line) <> 0 then
begin
StartPos := pos(retourneElement(4), Line);
delete(Line, 1, StartPos-1);
StartPos := pos('"indpic">', Line);
delete(Line, 1, StartPos-1);
repeat
StartPos := pos('"indpic">', Line);
delete(Line, 1, StartPos-1);
annee := findInfo('"indpic">', '</td>', Line,'0');
adresse := urlBaseFRUS()+findInfo('<a href="', '"', Line,'0');
titre := findInfo('<td>', '</a>', Line,'0');
if pos('manga/', adresse)>0 then
titre := titre + ' (manga)'
else if pos('animes/', adresse)>0 then
titre := titre + ' (anime)'
else if (GetOption('Langue (Français/English)') = 0)then
titre := titre + ' ('+findInfo('</a></td>', '</a>', Line,'0')+')';
titre := StringReplace(titre , ' ', '');
titre := StringReplace(titre , ' ', '');
titre := StringReplace(titre , '()', '');
if titre <> titre_exact then
listeResultat.Add(annee+'|'+titre+'|'+adresse);
delete(Line, 1, length('"indpic">'));
EndPos := pos('</table>', Line);
StartPos := pos('"indpic">', Line);
until (StartPos =0);
end;
// Tous les titres
if pos(retourneElement(5),Line) <> 0 then
begin
StartPos := pos('tous les titres', Line);
delete(Line, 1, StartPos-1);
StartPos := pos('"indpic">', Line);
delete(Line, 1, StartPos-1);
repeat
StartPos := pos('"indpic">', Line);
delete(Line, 1, StartPos-1);
annee := findInfo('"indpic">', '</td>', Line,'0');
adresse := urlBaseFRUS()+findInfo('<a href="', '"', Line,'0');
titre := findInfo('<td>', '</a>', Line,'0');
if pos('manga/', adresse)>0 then
titre := titre + ' (manga)'
else if pos('animes/', adresse)>0 then
begin
titre := titre + ' (anime)';
listeResultat.Add(annee+'|'+titre+'|'+adresse)
end
else if titre <> titre_exact then
begin
if (GetOption('Langue (Français/English)') = 0)then
titre := titre + ' ('+findInfo('</a></td>', '</a>', Line,'0')+')';
titre := StringReplace(titre , ' ', '');
titre := StringReplace(titre , ' ', '');
titre := StringReplace(titre , '()', '');
listeResultat.Add(annee+'|'+titre+'|'+adresse);
end;
delete(Line, 1, length('"indpic">'));
EndPos := pos('</table>', Line);
StartPos := pos('"indpic">', Line);
until (StartPos = 0);
end;
Bonne continuation ScorEpioN...
PS : je reconnais que mes exemples de films ne sont pas des références mais tant pis !
