pb avec les notes

[greg76]

salut
tres bien ce prog
mais la en faite kan je fais exportation d allociné y aplus de notes
d habitude y a toujours une note sur 10

[antp]

importation plutôt ?

j'avais viré ça parce que la conversion d'une note sur 4 vers une note sur 10 n'était pas terrible

pour le rajouter, ouvre le fichier "allocine.ifs" ou "allocine (pic).ifs" et juste avant la ligne "// Description" ajoute le bloc suivant :

Code: Select all

  // Rating
  LineNr := FindLine('class="link1">Presse</A>', Page, LineNr);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('image/icone/etoile_', Line);
    if (BeginPos > 0) then
    begin
      Delete(Line, 1, BeginPos);
      IntValue := StrToInt(copy(Line, 19, 1), 0) * 2;
    end;
  end;
  LineNr := FindLine('class="link1">Spectateurs</A>', Page, LineNr);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('image/icone/etoile_', Line);
    if (BeginPos > 0) then
    begin
      Delete(Line, 1, BeginPos);
      IntValue := (IntValue div 2) + StrToInt(copy(Line, 19, 1), 0);
    end;
  end;
  SetField(fieldRating, IntToStr(Round(IntValue * 1.25)));

[Guest]

ok merci
ca marche parfaitement
les notes ca donne une petite idée du nivo du film

[greg76]

et je peux faire pareil avec tous les autres ?
cinestore ne donne pas la note non plus

[antp]

heu non faut écrire le code correspondant à Cinestore dans ce cas, mais faut voir si sur leur site y a une note...

[Guest]

ah ok
bah tanpis c pas grave
merci merci