Is there any chance for fixing OFDb.ifs? I would be greatefull.
The script shows in Kategorie
<span itemprop="genre">Komödie</span>
Thanks
Dirk
OFDb
-
- Posts: 863
- Joined: 2006-08-31 23:58:18
Arff ... too slow
I noticed the Rating part needed to be corrected too.
Tschüss
I noticed the Rating part needed to be corrected too.
Code: Select all
// Rating
LineNr := Findline('Note: <span itemprop="ratingValue">', Page, 0);
if LineNr > -1 then
begin
Line:= Page.GetString(LineNr);
BeginPos := Pos('Note: <span itemprop="ratingValue">',Line) + 35;
// I had to add 0.1 here to make the rounding more precise
Value := IntToStr(Round((StrToInt(Copy(Line, BeginPos+2, 2), 0) + 0.1) / 10));
if StrToInt(Value,0) > 9 then
Value := IntToStr(StrToInt(StrGet(Line, BeginPos),0) + 1) + '.0'
else
Value := StrGet(Line, BeginPos) + '.' + Value;
SetField(fieldRating, Value);
end;
-
- Posts: 8
- Joined: 2008-06-21 15:19:09