',valor);
valor2:=copy(valor,Inicio,Inicio+100);
valor2 := TextBetween(valor2, '
' , '
');
end;
valor2:= StringReplace(valor2, #9, ''); //tab}
valor2:= StringReplace(valor2, #13#10, '');
valor2:= Utf8Decode(valor2);
HTMLDecode(valor2);
HTMLRemoveTags(valor2);
SetField(fieldYear,trim(valor2));
i:=FindLine('
',Page,0);
valor:=Page.GetString(i);
valor := TextBetween(valor, 'title">' , '
');
valor:= Utf8Decode(valor);
//*HTMLRemoveTags(valor);
HTMLDecode(valor);
SetField(fieldOriginalTitle, valor);
valor:='';
repeat
j:=pos('
', Texto);
valor:=valor+' / '+TextBetween(Texto, '"btn-tag">' , '');
delete(Texto,j,i);
delete(Texto,i,10);
until j=0;
delete(valor,1,3);
delete(valor,length(valor)-2,3);
HTMLRemoveTags(valor);
valor:= Utf8Decode(valor);
HTMLDecode(valor);
SetField(fieldCategory,valor);
valor:=Page.Text;
Inicio:=pos('
' , '');
valor:= Utf8Decode(valor);
HTMLDecode(valor);
HTMLRemoveTags(valor);
SetField(fieldDirector,valor);
valor:=Page.Text;
Inicio:=pos('
Elenco
',valor);
Fim:=pos('class="tip movie-report">',valor);
valor:=copy(valor,Inicio,Fim-Inicio);
valor := TextBetween(valor, '
' , ' ');
valor:= StringReplace(valor, '