Here we go. I wanted the script to copy also the characters in the film, so I changed the script.
The resulting script is:
My problem is with this line:
// Actors
LineNr := FindLine('Cast overview', Page, 0);
if LineNr = -1 then
LineNr := FindLine('cast overview', Page, 0);
if LineNr = -1 then
LineNr := FindLine('Complete credited cast', Page, 0);
if LineNr > -1 then
begin
FullValue := '';
repeat
LineNr := LineNr + 1;
Line := Page.GetString(LineNr);
if pos('<TD VALIGN="TOP">', Line) > 0 then
begin
Line := copy(Line, 25, Length(Line));
BeginPos := pos('">', Line) + 2 ;
EndPos := pos('</TR>', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
HTMLRemoveTags(Value);
HTMLDecode(Value);
if (Value <> '(more)') and (Value <> '') then
begin
if FullValue <> '' then
FullValue := FullValue + ', ';
FullValue := FullValue + Value;
end;
end else
begin
Line := '';
end;
until Line = '';
HTMLDecode(FullValue);
SetField(fieldActors, FullValue);
end;
FullValue := FullValue + ', ';
I want each actor + character to be displayed in another row, so I should insert a page break. However, I don't know how to do it.
Thanks for any help. Curna