Personal Video Database
English => Support => Topic started by: Ivek23 on March 19, 2010, 01:05:14 pm
-
I wonder if possible that is even mymovies.it rating to edit the script that will be visible in custom items and what to enter where.
Thanks
-
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]
-
Let the Internet address does not interfere because it is in the script
and must be otherwise you script will not work.
Cheers
-
Thanks for the info....i'll test it :)
-
Thanks for the info....i'll test it :)
How they work script
-
opps sorry
I'v test it and it work fine ;D
Thanks for the mod