For those who would like to have Mymovies rating in custom fields (custom section)
here is a solution
instead, the original
//Rating
curPos := Pos('
http://www.mymovies.it/v7/img/mymonetro_incassi_sopra.png', HTML);
curPos := PosFrom('margin:0px 11px 7px 11px">', HTML, curPos);
if curPos > 0 then begin
curPos := curPos + 26;
EndPos := PosFrom('<', HTML, curPos);
AddFieldValue(mfRating, FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
LogMessage('Rating:' + FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
end else
curPos := EndPos;
end;
paste this
//Rating
curPos := Pos('
http://www.mymovies.it/v7/img/mymonetro_incassi_sopra.png', HTML);
AddCustomFieldValueByName('MyMovies Rating', '0');
curPos := PosFrom('margin:0px 11px 7px 11px">', HTML, curPos);
if curPos > 0 then begin
curPos := curPos + 26;
EndPos := PosFrom('<', HTML, curPos);
AddCustomFieldValueByName('MyMovies Rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
LogMessage('Rating:' + FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
end else
curPos := EndPos;
end;
and this should work
at my work
as seen on picture
[attachment deleted by admin]