Code: Select all
// Rating
if CanSetField(fieldRating) then
begin
Value := TextBetween(PageText, 'Kundbetyg:', '<br>');
Value := TextBetween(Value , '<b>', '</b>');
SetField(fieldRating, Value);
end;
Code: Select all
// Rating
if CanSetField(fieldRating) then
begin
Value := TextBetween(PageText, 'Kundbetyg:', '<br>');
Value := TextBetween(Value , '<b>', '</b>');
SetField(fieldRating, Value);
end;
Code: Select all
// Rating
if CanSetField(fieldRating) then
begin
Value := TextBetween(PageText, 'Kundbetyg:', '<br>');
Value := TextBetween(Value , '<b>', '</b>');
SetField(fieldRating, FloatToStr(StrToFloat(Value)*2));
end;