Page 1 of 1
pb avec les notes
Posted: 2002-09-22 14:53:12
by 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
Posted: 2002-09-22 15:27:08
by 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)));
Posted: 2002-09-22 15:28:40
by Guest
ok merci
ca marche parfaitement
les notes ca donne une petite idée du nivo du film
Posted: 2002-09-22 15:31:53
by greg76
et je peux faire pareil avec tous les autres ?
cinestore ne donne pas la note non plus
Posted: 2002-09-22 15:46:34
by antp
heu non faut écrire le code correspondant à Cinestore dans ce cas, mais faut voir si sur leur site y a une note...
Posted: 2002-09-22 15:54:50
by Guest
ah ok
bah tanpis c pas grave
merci merci
