baffab wrote:Et si on remplace par :
Code: Select all
Value := findInfo('</STRONG> ', '<DIV CLASS="encyc', PageContents, '3');
Value := StringReplace(Value, '<DIV CLASS="tab">', '* '); //cas avec plusieurs résumés
Value := deleteTab(Value);
Ça donne quoi chez toi ?
Tu veux donc récupérer les deux résumés ?
Sinon ça marche, mais pour fignoler, je rajouterais cette ligne avant le setfield histoire de supprimer tous les retours à la ligne de la fin.
Code: Select all
while Pos((#13#10), copy(Value,length(Value)-length(#13#10)+1,length(Value))) > 0 do Value := DeleteEnd(Value, #13#10);
Sinon concernant le code de récupération de l'image :
- Le FindInfo de "ValueImg2" n'est pas bon. Ce serait plutôt :
Code: Select all
ValueImg2 := findInfo ('/images/encyc/', '"', PageContents, '0');
- Le fait de forcer la recherche sur "/images/encyc/" produit des trucs curieux.
Sur
Samourai Champloo par exemple le script arrive à trouver une image (ValueImg2) qui n'apparait nulle part sur le site !! (Il s'agit en fait de l'ancienne image utilisée par le site avant d'être remplacée par une plus grande pseudo fan-art)
[Lien d'origine de l'image]
De plus le script considère cette image (au dessus) comme étant la grande image ... alors qu'en fait la grande image est celle ci (ValueImg3)(Pseudo Fan-Art)
[Lien d'origine de l'image]
Apparemment l’existence de la valeur (ValueImg2) est toujours vraie, donc on n'obtiendra jamais l'image de la valeur (ValueImg3).
je ne sais pas si je suis très clair !! j'ai la crève et j'ai du mal à aligner mes 2 neurones !!
En modifiant les conditions de la fin du code pour que ce soit plus logique , on obtient :
Code: Select all
// Images
if (GetOption('GetImage')<>2) then
begin
// Petite image
BeginPos := Pos('/fit200', PageContents);
if (BeginPos > 0) then
begin
ValueImg1 := findInfo ('/fit200', ' ', PageContents, '0');
if (pos(ValueImg1,'"')>0) then ValueImg1 := findInfo ('/fit200', '"', PageContents, '0');
if (ValueImg1<>'') then ValueImg1 := 'http://www.animenewsnetwork.com/thumbnails/fit200' + ValueImg1;
end;
// Grande image
BeginPos := Pos('/images/encyc/', PageContents);
if (BeginPos > 0) then
begin
ValueImg2 := findInfo ('/images/encyc/', '"', PageContents, '0');
if (pos(ValueImg1,'"')>0) then ValueImg1 := findInfo ('/images/encyc/', '"', PageContents, '0');
if (ValueImg2<>'') then ValueImg2 := 'http://www.animenewsnetwork.com/images/encyc/' + ValueImg2;
end;
// Autre
BeginPos := Pos('img id="vid-art"', PageContents);
if (BeginPos > 0) then
begin
ValueImg3 := findInfo ('<img id="vid-art" src="', '">', PageContents, '0');
end;
if (GetOption('GetImage')=0) and (ValueImg1<>'') then
Value := ValueImg1
else if ((GetOption('GetImage')=1) and (ValueImg3<>'')) or (ValueImg1='') then
Value := ValueImg3
else
Value := ValueImg2;
GetPicture(Value);
end;
Qu'est ce que ça dit chez toi ?