// Intérpretes
LineNr := FindLine('<th>REPARTO</th>', Page, LineNr);
if LineNr <> -1 then
begin
Line := '';
while TRUE do
begin
LineNR := LineNR + 1;
Line := Line + Page.GetString(LineNr);
if Pos('</td>', Line) > 0 then
break;
end;
Actors := TextBetween(Line, '">', '</a>') + #13#10;
while Pos('stype=cast', Line) > 0 do
Actors := Actors + TextBetween(Line, '"> ', '</a>') + #13#10;
HTMLDecode(Actors);
SetField(fieldActors, Actors);
end;
// Actors
LineNr := FindLine('<dt>Reparto</dt>', Page, LineNr);
if LineNr <> -1 then
begin
Line := Page.GetString(LineNr + 1);
Item := DeleteTags(TextBetween(Line, '<dd>', '</dd>'));
if GetOption('ActorsInALine') = 0 then Item := StringReplace(Item, ', ', #13#10);
SetField(fieldActors, Item);
end;
Primer Script Entero
Segundo Script Entero
Por si hay que verlo entero...
parece que la forma de mostrar los actores se controla mediante la variable ActorsInALine. Supongo que simplemente habría que cambiar esto por ActorsInALine=1.ActorsInALine=0|0|1=Actores separados por comas|0=Actores en lineas independientes
Aquí es donde parece comprobar el contenido de dicha variable, si borras esta línea debería tener el mismo efecto.if GetOption('ActorsInALine') = 0 then Item := StringReplace(Item, ', ', #13#10);
Lo que hace es sustituir la coma (StringReplace) por #13#10, que imagino que serán los códigos de caracteres para retorno de carro (\r) y salto de línea (\n).