I got it to work. The website actual generate different codes on every updates. They really don't want anyone to copy it even if it's for private use.
Code: Select all
if CanSetField(fieldDescription) then
begin
Value := TextBetween(PageText,'Filmens handling:', '<BR>');
if Value = '' then Value := TextBetween(PageText, 'Beskrivning:', '<BR>');
Value := TextAfter(Value, '<br>');
Value := StringReplace(Value, ' ', '');
Value := StringReplace(Value, 'disableSelection(document.getElementById("text_handling"));', '');
Value := StringReplace(Value, TextBetween(Value, '<span style="display: none;">', '</span>'),'');
Value := StringReplace(Value, TextBetween(Value, '<span style=" display: none;">', '</span>'),'');
Value := StringReplace(Value, TextBetween(Value, '<span style=" display: none">', '</span>'),'');
Value := StringReplace(Value, TextBetween(Value, '<span style="display: none">', '</span>'),'');
Value := StringReplace(Value, TextBetween(Value, '<i style="display: none;">', '</i>'),'');
Value := StringReplace(Value, TextBetween(Value, '<i style=" display: none;">', '</i>'),'');
Value := StringReplace(Value, TextBetween(Value, '<i style=" display: none">', '</i>'),'');
Value := StringReplace(Value, TextBetween(Value, '<i style="display: none">', '</i>'),'');
Value := StringReplace(Value, TextBetween(Value, '<b style="display: none;">', '</b>'),'');
Value := StringReplace(Value, TextBetween(Value, '<b style=" display: none;">', '</b>'),'');
Value := StringReplace(Value, TextBetween(Value, '<b style=" display: none">', '</b>'),'');
Value := StringReplace(Value, TextBetween(Value, '<b style="display: none">', '</b>'),'');
Value := StringReplace(Value, TextBetween(Value, '<span class="infoText1234">', '</span>'),'');
Value := StringReplace(Value, '<FONT COLOR="white">i</FONT>', ' ');
Value := StringReplace(Value, #13#10,'');
Value := StringReplace(Value, #09,'');
Value := StringReplace(Value, '<br>', #13#10);
HTMLRemoveTags(Value);
HTMLDecode(Value);
SetField(fieldDescription, Value);
end;