Je veux mettre à jour ma liste et Hop, ça déconne dans la liste des acteurs. Du coup de je viens sur le forum pour trouver la correction du script, et là .... rien !
Décidémment, tout part en vrille, faut tout faire soit même
alors pour ceux que ça interesse, coller les quelques lignes que vous trouverez plus bas entre les lignes suivantes (remplacer celles qui existent deja)
Code: Select all
//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE CASTING
//------------------------------------------------------------------------------
Code: Select all
//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE SECRETS DE TOURNAGE
//------------------------------------------------------------------------------
Et voila le code à mettre entre ces lignes:
Code: Select all
procedure castingComplet(pageCasting: string);
var
Line, Role, Acteur, couple, liste, Producteur :string;
BeginPos, EndPos, OtherPos : Integer;
begin
//pour eviter les time-out
sleep(timetosleep);
SetArrayLength(listeMessagesF,2);
SetArrayLength(listeMessagesS,2);
if pos('cfilm=', pageCasting) <> 0 then
begin
listeMessagesF[0] := '<b>Acteur(s)</b>';
listeMessagesF[1] := 'Scénario, production';
listeMessagesS[0] := '<b>Acteur(s)</b>';
listeMessagesS[1] := 'Scénario, production';
end else if pos('cserie=', pageCasting) <> 0 then
begin
listeMessagesF[0] := '<b>Acteurs';
listeMessagesF[1] := '<b>Acteurs';
listeMessagesS[0] := '<b>Acteurs';
listeMessagesS[1] := '<b>Acteurs';
end;
//charge la page
Line := GetPage(pageCasting);
if CanSetField(fieldActors) then
begin
if Pos(retourneElement(0), Line) > 0 then
begin
//liste des acteurs
BeginPos := Pos(retourneElement(0), Line);
Delete(Line, 1, BeginPos);
BeginPos := Pos('<h5>', Line);
liste := '';
repeat
BeginPos := Pos('<h5>', Line);
delete(Line,1,BeginPos-1);
// le role
Role := formatTitre(findInfo('<h5>', '</h5>', Line,'0'),GetOption('Format du Titre'));
// le nom de l'acteur
//Acteur := formatTitre(findInfo('<h4>', '</h4>', Line,'0'),GetOption('Format du Titre'));
Acteur := formatTitre(findInfo(' class="link1">', '</a></h5></td>', Line,'0'),GetOption('Format du Titre'));
// couple acteur (rôle)
if (Role <> '') then
couple := Acteur +' ('+Role+'), '
else
couple := Acteur +', ';
// ajout du couple dans la liste
liste := liste + couple;
delete(Line, 1, length('</h5>')+1);
BeginPos := Pos('</a></h5></td>', Line);
delete(Line,1,BeginPos-1);
BeginPos := pos('<h5>', Line);
OtherPos := pos(retourneElement(1), Line);
until (BeginPos > OtherPos);
EndPos := length(liste);
liste := copy(liste,1,EndPos-2)+'.';
MonSetField(fieldActors, liste);
end;
end;
// le producteur
if CanSetField(fieldProducer) and (pos('casting_gen_cserie',pageCasting) = 0) then
MonSetField(fieldProducer, formatTitre(StringReplace(findInfo('<h5>Producteur', '</h4>', Line,'0'), ' ', ''),GetOption('Casse Choisie')));
end;
