antp.be forum

Posted: **2002-12-09 23:26:44**

I would like change my script so it imports user rating ALWAYS as 0
This is waht it looks like now:

// Rating
LineNr := FindLine('User Rating:', Page, 0);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr + 4);
if Pos('/10', Line) > 0 then
begin
BeginPos := pos('<b>', Line) + 3;
Value := IntToStr(Round(StrToInt(StrGet(Line, BeginPos), 0) + (StrToInt(StrGet(Line, BeginPos + 2), 0) / 10)));
SetField(fieldRating, Value);
end;
end;

I have tried to set Value to as Value := 0 (as well as "0") and played around with fieldRating to no avail.
Any hint on how to do this?

Posted: **2002-12-10 08:31:25**

Actually it is '0' that you should use

(in Pascal strings are delimited by ' ')
So simply replace the above code by this :
SetField(fieldRating, '0');

You can also remove this code block to not import rating.

Posted: **2002-12-10 16:14:33**

AAAAH I can hit myself in the head....of course.
How stupid of me.

Thanks!

antp.be forum

setting a standard value

setting a standard value