antp.be forum

Code: Select all

//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE CASTING
//------------------------------------------------------------------------------

Code: Select all

//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE SECRETS DE TOURNAGE
//------------------------------------------------------------------------------

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;

Code: Select all

// Durée
   if CanSetField(fieldLength) then
   begin
      Value := findInfo(retourneElement(9)+'</div></td><td>', '</td>', Line,'0');           
      if pos('m', Value)>0 then
        begin
        IntValue := 0;
        delete(Value,pos('m',Value),length(Value));
        IntValue := IntValue + StrToInt(trim(Value), 0);
        end
      else
        begin
        IntValue := StrToInt(copy(Value, 1, 1), 0) * 60;
        if pos('H', Value)>0 then
          delete(Value,1,pos('H', Value))
        else if pos('h',Value)>0 then
          delete(Value,1,pos('h', Value));
        if pos(' ',Value)>0 then
          delete(Value,pos(' ', Value),length(Value));
        Value := copy(Value, 1, length(Value));       
        Value := StringReplace(Value, ' ', '');
    	   IntValue := IntValue + StrToInt(Value, 0); 
        end;     
      if IntValue>0 then
        MonSetField(fieldLength, IntToStr(IntValue));
    end;

Code: Select all

if pos('noscritiques.html', Line) <> 0 then