Hispashare arreglado

[raulsara]

He modificado el script de Hispashare ya que no funcionaba bien y no daba la carátula.

Os lo adjunto.

program Hispashare;
var
MovieName: string;
MovieURL: string;

//------------------------------------------------------------------------------------
function Comillas(var S: string): string;
var
n,len, tag: Integer;
c: char;
t: String;
begin
tag := 0;
t := '';
len := length(s);
for n :=1 to len do
begin
c := Copy(s,n,1);
if c = '''' then
c := ' ';
t := t + c;
end
s := t;
result := t;
end;
//-------------------------------------------------------------------------------
function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
i: Integer;
begin
Result := -1;
if StartAt < 0 then
StartAt := 0;
for i := StartAt to List.Count-1 do
if Pos(Pattern, List.GetString(i)) <> 0 then
begin
Result := i;
Break;
end;
end;
//------------------------------------------------------------------------------------
function TextBetween(var S: string; StartTag: string; EndTag: string): string;
var
InitialPos: Integer;
begin
InitialPos := Pos(StartTag, S);
if InitialPos = 0 then
result := ''
else
begin
Delete(S, 1, InitialPos + Length(StartTag) - 1);
InitialPos := Pos(EndTag, S);
if InitialPos = 0 then
result := S
else
begin
result := copy(S, 1, InitialPos - 1);
Delete(S, 1, InitialPos + 1);
end;
end;
end;

//------------------------------------------------------------------------------------
function DeleteTags(var S: string): string;
var
n,len, tag: Integer;
c: char;
t: String;
begin

tag := 0;
t := '';
len := length(s);

for n :=1 to len do
begin
c := Copy(s,n,1);


if c = #9 then
c := ' ';

if(tag=1) then
begin
if(c='>') then tag := 0;
continue;
end
else
begin
if(c='<') then
begin
tag := 1;
continue;
end;
t := t + c;
end;
end
s := t;
result := t;
end;


//------------------------------------------------------------------------------------
procedure AnalyzePage(Address: string);
var
strPage, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string;
BeginPos, EndPos: Integer;
BeginPoss, EndPoss: Integer;
// Page: TStringList;
begin
strPage := GetPage(Address);
BeginPos := Pos('<strong>Resultados:</strong> ', strPage);
if(BeginPos > -1)then
begin
BeginPos := BeginPos +28;
PickTreeClear;
Delete(strPage, 1, BeginPos);
BeginPos :=0;
// Page := TStringList.Create;
// Page.Text := strPage;
// Page.SaveToFile('9999999.html');
//ShowMessage(strPage);
if Copy(strPage,BeginPos, BeginPos+1) = '0' then
BeginPos :=0
else
begin
BeginPos := Pos('<h1><a ', strPage);
end;
EndPos := 1;

while ((BeginPos > 0) and (EndPos > 0)) do

begin
Delete(strPage, 1, BeginPos);
// Page.Text := strPage;
// Page.SaveToFile('9999999.html');
EndPos := Pos('">', strPage);
MovieId := Copy(strPage,+13, EndPos-13);
MovieId := Comillas(MovieId );
MovieId := StringReplace(MovieId , 'amp;', '');
MovieAddr := 'http://www.hispashare.com/' + MovieId;
Delete(strPage, 1, EndPos);
// ShowMessage(strPage);
BeginPoss := Pos('>',strPage);
EndPoss := Pos('<small>', strPage);
MovieTitle := Copy(strPage,BeginPoss, EndPoss);
BeginPoss := Pos('<small>',strPage);
EndPoss := Pos('</small>', strPage);
MovieTitle := MovieTitle + Copy(strPage,BeginPoss, EndPoss-10);
MovieTitle := StringReplace(MovieTitle , '>', '</a>');
MovieTitle := AnsiUpFirstLetter(MovieTitle);
MovieTitle := Comillas(MovieTitle);
DeleteTags(MovieTitle);
MovieTitle:= StringReplace(MovieTitle ,#13#10, '');
MovieTitle:= StringReplace(MovieTitle ,' ', '');
PickTreeAdd(MovieTitle, MovieAddr);
PickTreeSort;
BeginPos := Pos('<h1><a ', strPage);
if(Pos('</body>', strPage) < BeginPos) then
BeginPos := -1;
end;
end;
// Page.Free;
PickTreeExec(Address)
AnalyzeMoviePage(Address);
end;
//------------------------------------------------------------------------------------
procedure AnalyzeMoviePage(Address: string);
var
Page: TStringList;
LineNr, LineAc, LineTmp: Integer;
Line: string;
Item: string;
Ite2: string;
Ite3: string;
Comments: string;
Actors: string;
Directors: string;
Description: string;
Busca: integer;

Page2: TStringList;
begin
Description := '';

// URL
SetField(fieldURL, Address);

Page := TStringList.Create;
Page.Text := GetPage(Address);
// Page.SaveToFile('9999999.html');

// Caratula
LineNr := FindLine('Detalles del título', Page, 0);
if LineNr > 0 then
begin
LineAc := FindLine('<img src="', Page, LineNr);
LineNr := LineAc;
Item := Page.GetString(LineAc);
Item := TextBetween (Item, '<img src="', '" width');
Item := Trim(Item );
HTMLDecode(Item);
GetPicture (Item);
end;
// Titulo traducido
LineAc := FindLine('<h1>', Page, LineNr);
Line := Page.GetString(LineAc);
Item := TextBetween (Line, '<h1>', '<small>');
Item := AnsiLowerCase(Item);
Item := AnsiUpFirstLetter(Item );
HTMLDecode(Item);
SetField(fieldTranslatedTitle, Trim (Item));

// año
Item := TextBetween (Line, 'mall>(', ')</small>');
HTMLRemoveTags (Item);
HTMLDecode(Item);
SetField(fieldYear, Trim (Item));
LineNr := LineAc;

// Titulo Original y pais
LineAc := FindLine('Título original', Page, LineNr);
if LineAc <> -1 then
begin
Line := Page.GetString(LineAc);
Item := TextBetween (Line, '</strong>', '(');
Line := Page.GetString(LineAc);
Ite2 := TextBetween (Line, '(', ')</p>');
Item := Trim(Item );
Item := AnsiUpFirstLetter(Item );
HTMLDecode(Item);
HTMLDecode(Ite2);
SetField(fieldOriginalTitle, Trim (Item));
SetField(fieldCountry, Trim (Ite2));
end;
LineNr := LineAc;

// Categoria
LineAc := FindLine('Películas', Page, LineNr);
if LineAc > 0 then
begin
Line := Page.GetString(LineAc);

Item := '';
Ite2 := TextBetween (Line, 'genre', '</p>');
Line := Ite2;
Item := Item + TextBetween (Line, '>', '</a>');

while length(Line) > 4 do
begin
Line := Line + '</p>';
Ite2 := TextBetween (Line, 'genre', '</p>');
Line := Ite2;
Item := Item + ', '+ TextBetween (Line, '>', '</a>');
end;
Item := AnsiUpFirstLetter(Item );
Item := Trim(Item );
HTMLDecode(Item);
// Page2 := TStringList.Create;
// Page2.Text := '**' + Item+ '**';
// Page2.SaveToFile('9999999.html');
//ShowMessage(Line);
SetField(fieldCategory, Trim (Item));
end;
LineNr := LineAc;

// director
LineAc := FindLine('director=', Page, LineNr);
if LineAc > 0 then
begin
Line := Page.GetString(LineAc);
Item := TextBetween (Line, 'director=', '">');
HTMLRemoveTags (Item);
Item := AnsiUpFirstLetter(Item );
Item := Comillas(Item );
Item := Trim(Item );
HTMLDecode(Item);
SetField(fieldDirector, Trim (Item));
end;
LineNr := LineAc;

// Duracion
LineAc := FindLine('Duración:</strong>', Page, LineNr);
if LineAc > 0 then
begin
Line := Page.GetString(LineAc);
Item := TextBetween (Line, 'Duración:</strong>', 'minutos');
Item := Trim(Item );
HTMLDecode(Item);
SetField(fieldLength, Trim (Item));
end;
LineNr := LineAc;

// sinopsis
LineAc := FindLine('<p class="TEXT">', Page, LineNr);
if LineAc > 0 then
begin
LineTmp := FindLine('</p>', Page, LineAc);
Line := Page.GetString(LineAc);
Item := TextBetween (Line, '<p class="TEXT">', '');
LineAc := LineAc + 1;
while LineAc <= LineTmp do
begin
Line := Page.GetString(LineAc);
Item := Item + Line;
LineAc := LineAc + 1;
end;
Item := Comillas(Item );
Item := StringReplace(Item , '<br/>', #13#10);
Item := StringReplace(Item , '>', '');
HTMLRemoveTags (Item);
Item := AnsiUpFirstLetter(Item );
Item := Trim(Item );
HTMLDecode(Item);
SetField(fieldDescription, Trim (Item));
end;
LineNr := LineAc;

// Reparto
LineAc := FindLine('Actores', Page, LineNr);
if LineAc > 0 then
begin
LineAc := LineAc + 1;
Line := Page.GetString(LineAc);
Item := '<' + TextBetween (Line, 'actor=', '');
Line := Item;
Ite2 := TextBetween (Item, '<', '">');
Ite3 := Ite2;
while length(Ite2) > 0 do
begin

Line := Item;
Item := '<' + TextBetween (Line, 'actor=', '');
Line := Item;
Ite2 := TextBetween (Item, '<', '">');
if length(Ite2) > 0 then Ite3 := Ite3+', '+Ite2;
end;
HTMLRemoveTags (Ite3);
Ite3 := Trim(Ite3 );
HTMLDecode(Ite3);
SetField(fieldActors, Trim (Ite3));
end;
end;

//-------------------------------------------------------------------------
begin
if (CheckVersion(3,5,0)=FALSe) then
begin
ShowMessage('Se requiere Ant Movie Catalog versión 3.5 o superior');
exit;
end;

MovieName := GetField(fieldTranslatedTitle);
if MovieName = '' then
MovieName := GetField(fieldOriginalTitle);
Input('hispashare', 'Buscar:', MovieName);

if(GetOption('Sin resultado') = 0) then Input('hispashare', 'Buscar:', MovieName);

AnalyzePage('http://www.hispashare.com/?view=search&q=' + UrlEncode(MovieName));
end.

[raulsara]

Para que se pueda actualizar con el UPDATE SCRIPTS.

Saludos

[antp]

Hi,
Can you provide me the full file contents? As here it is missing the header, not displayed in AMC's editor
(i.e. what is seen if you open the file with Notepad or another text editor)
You can also send me the file by e-mail if it is easier for you.

[raulsara]

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=luis
Title=Hispashare caratula
Description=
Site=www.hispashare.com
Language=ES
Version=1.0
Requires=3.5.0
Comments=
License=
GetInfo=1
RequiresMovies=1

[Options]

[Parameters]

***************************************************)

program Hispashare caratula;
var
MovieName: string;
MovieURL: string;

//------------------------------------------------------------------------------------
function Comillas(var S: string): string;
var
n,len, tag: Integer;
c: char;
t: String;
begin
tag := 0;
t := '';
len := length(s);
for n :=1 to len do
begin
c := Copy(s,n,1);
if c = '''' then
c := ' ';
t := t + c;
end
s := t;
result := t;
end;
//-------------------------------------------------------------------------------
function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
i: Integer;
begin
Result := -1;
if StartAt < 0 then
StartAt := 0;
for i := StartAt to List.Count-1 do
if Pos(Pattern, List.GetString(i)) <> 0 then
begin
Result := i;
Break;
end;
end;
//------------------------------------------------------------------------------------
function TextBetween(var S: string; StartTag: string; EndTag: string): string;
var
InitialPos: Integer;
begin
InitialPos := Pos(StartTag, S);
if InitialPos = 0 then
result := ''
else
begin
Delete(S, 1, InitialPos + Length(StartTag) - 1);
InitialPos := Pos(EndTag, S);
if InitialPos = 0 then
result := S
else
begin
result := copy(S, 1, InitialPos - 1);
Delete(S, 1, InitialPos + 1);
end;
end;
end;

//------------------------------------------------------------------------------------
function DeleteTags(var S: string): string;
var
n,len, tag: Integer;
c: char;
t: String;
begin

tag := 0;
t := '';
len := length(s);

for n :=1 to len do
begin
c := Copy(s,n,1);


if c = #9 then
c := ' ';

if(tag=1) then
begin
if(c='>') then tag := 0;
continue;
end
else
begin
if(c='<') then
begin
tag := 1;
continue;
end;
t := t + c;
end;
end
s := t;
result := t;
end;


//------------------------------------------------------------------------------------
procedure AnalyzePage(Address: string);
var
strPage, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string;
BeginPos, EndPos: Integer;
BeginPoss, EndPoss: Integer;
// Page: TStringList;
begin
strPage := GetPage(Address);
BeginPos := Pos('<strong>Resultados:</strong> ', strPage);
if(BeginPos > -1)then
begin
BeginPos := BeginPos +28;
PickTreeClear;
Delete(strPage, 1, BeginPos);
BeginPos :=0;
// Page := TStringList.Create;
// Page.Text := strPage;
// Page.SaveToFile('9999999.html');
//ShowMessage(strPage);
if Copy(strPage,BeginPos, BeginPos+1) = '0' then
BeginPos :=0
else
begin
BeginPos := Pos('<h1><a ', strPage);
end;
EndPos := 1;

while ((BeginPos > 0) and (EndPos > 0)) do

begin
Delete(strPage, 1, BeginPos);
// Page.Text := strPage;
// Page.SaveToFile('9999999.html');
EndPos := Pos('">', strPage);
MovieId := Copy(strPage,+13, EndPos-13);
MovieId := Comillas(MovieId );
MovieId := StringReplace(MovieId , 'amp;', '');
MovieAddr := 'http://www.hispashare.com/' + MovieId;
Delete(strPage, 1, EndPos);
// ShowMessage(strPage);
BeginPoss := Pos('>',strPage);
EndPoss := Pos('<small>', strPage);
MovieTitle := Copy(strPage,BeginPoss, EndPoss);
BeginPoss := Pos('<small>',strPage);
EndPoss := Pos('</small>', strPage);
MovieTitle := MovieTitle + Copy(strPage,BeginPoss, EndPoss-10);
MovieTitle := StringReplace(MovieTitle , '>', '</a>');
MovieTitle := AnsiUpFirstLetter(MovieTitle);
MovieTitle := Comillas(MovieTitle);
DeleteTags(MovieTitle);
MovieTitle:= StringReplace(MovieTitle ,#13#10, '');
MovieTitle:= StringReplace(MovieTitle ,' ', '');
PickTreeAdd(MovieTitle, MovieAddr);
PickTreeSort;
BeginPos := Pos('<h1><a ', strPage);
if(Pos('</body>', strPage) < BeginPos) then
BeginPos := -1;
end;
end;
// Page.Free;
PickTreeExec(Address)
AnalyzeMoviePage(Address);
end;
//------------------------------------------------------------------------------------
procedure AnalyzeMoviePage(Address: string);
var
Page: TStringList;
LineNr, LineAc, LineTmp: Integer;
Line: string;
Item: string;
Ite2: string;
Ite3: string;
Comments: string;
Actors: string;
Directors: string;
Description: string;
Busca: integer;

Page2: TStringList;
begin
Description := '';

// URL
SetField(fieldURL, Address);

Page := TStringList.Create;
Page.Text := GetPage(Address);
// Page.SaveToFile('9999999.html');

// Caratula
LineNr := FindLine('Detalles del título', Page, 0);
if LineNr > 0 then
begin
LineAc := FindLine('<img src="', Page, LineNr);
LineNr := LineAc;
Item := Page.GetString(LineAc);
Item := TextBetween (Item, '<img src="', '" width');
Item := Trim(Item );
HTMLDecode(Item);
GetPicture (Item);
end;
// Titulo traducido
LineAc := FindLine('<h1>', Page, LineNr);
Line := Page.GetString(LineAc);
Item := TextBetween (Line, '<h1>', '<small>');
Item := AnsiLowerCase(Item);
Item := AnsiUpFirstLetter(Item );
HTMLDecode(Item);
SetField(fieldTranslatedTitle, Trim (Item));

// año
Item := TextBetween (Line, 'mall>(', ')</small>');
HTMLRemoveTags (Item);
HTMLDecode(Item);
SetField(fieldYear, Trim (Item));
LineNr := LineAc;

// Titulo Original y pais
LineAc := FindLine('Título original', Page, LineNr);
if LineAc <> -1 then
begin
Line := Page.GetString(LineAc);
Item := TextBetween (Line, '</strong>', '(');
Line := Page.GetString(LineAc);
Ite2 := TextBetween (Line, '(', ')</p>');
Item := Trim(Item );
Item := AnsiUpFirstLetter(Item );
HTMLDecode(Item);
HTMLDecode(Ite2);
SetField(fieldOriginalTitle, Trim (Item));
SetField(fieldCountry, Trim (Ite2));
end;
LineNr := LineAc;

// Categoria
LineAc := FindLine('Películas', Page, LineNr);
if LineAc > 0 then
begin
Line := Page.GetString(LineAc);

Item := '';
Ite2 := TextBetween (Line, 'genre', '</p>');
Line := Ite2;
Item := Item + TextBetween (Line, '>', '</a>');

while length(Line) > 4 do
begin
Line := Line + '</p>';
Ite2 := TextBetween (Line, 'genre', '</p>');
Line := Ite2;
Item := Item + ', '+ TextBetween (Line, '>', '</a>');
end;
Item := AnsiUpFirstLetter(Item );
Item := Trim(Item );
HTMLDecode(Item);
// Page2 := TStringList.Create;
// Page2.Text := '**' + Item+ '**';
// Page2.SaveToFile('9999999.html');
//ShowMessage(Line);
SetField(fieldCategory, Trim (Item));
end;
LineNr := LineAc;

// director
LineAc := FindLine('director=', Page, LineNr);
if LineAc > 0 then
begin
Line := Page.GetString(LineAc);
Item := TextBetween (Line, 'director=', '">');
HTMLRemoveTags (Item);
Item := AnsiUpFirstLetter(Item );
Item := Comillas(Item );
Item := Trim(Item );
HTMLDecode(Item);
SetField(fieldDirector, Trim (Item));
end;
LineNr := LineAc;

// Duracion
LineAc := FindLine('Duración:</strong>', Page, LineNr);
if LineAc > 0 then
begin
Line := Page.GetString(LineAc);
Item := TextBetween (Line, 'Duración:</strong>', 'minutos');
Item := Trim(Item );
HTMLDecode(Item);
SetField(fieldLength, Trim (Item));
end;
LineNr := LineAc;

// sinopsis
LineAc := FindLine('<p class="TEXT">', Page, LineNr);
if LineAc > 0 then
begin
LineTmp := FindLine('</p>', Page, LineAc);
Line := Page.GetString(LineAc);
Item := TextBetween (Line, '<p class="TEXT">', '');
LineAc := LineAc + 1;
while LineAc <= LineTmp do
begin
Line := Page.GetString(LineAc);
Item := Item + Line;
LineAc := LineAc + 1;
end;
Item := Comillas(Item );
Item := StringReplace(Item , '<br/>', #13#10);
Item := StringReplace(Item , '>', '');
HTMLRemoveTags (Item);
Item := AnsiUpFirstLetter(Item );
Item := Trim(Item );
HTMLDecode(Item);
SetField(fieldDescription, Trim (Item));
end;
LineNr := LineAc;

// Reparto
LineAc := FindLine('Actores', Page, LineNr);
if LineAc > 0 then
begin
LineAc := LineAc + 1;
Line := Page.GetString(LineAc);
Item := '<' + TextBetween (Line, 'actor=', '');
Line := Item;
Ite2 := TextBetween (Item, '<', '">');
Ite3 := Ite2;
while length(Ite2) > 0 do
begin

Line := Item;
Item := '<' + TextBetween (Line, 'actor=', '');
Line := Item;
Ite2 := TextBetween (Item, '<', '">');
if length(Ite2) > 0 then Ite3 := Ite3+', '+Ite2;
end;
HTMLRemoveTags (Ite3);
Ite3 := Trim(Ite3 );
HTMLDecode(Ite3);
SetField(fieldActors, Trim (Ite3));
end;
end;

//-------------------------------------------------------------------------
begin
if (CheckVersion(3,5,0)=FALSe) then
begin
ShowMessage('Se requiere Ant Movie Catalog versión 3.5 o superior');
exit;
end;

MovieName := GetField(fieldTranslatedTitle);
if MovieName = '' then
MovieName := GetField(fieldOriginalTitle);
Input('hispashare', 'Buscar:', MovieName);

if(GetOption('Sin resultado') = 0) then Input('hispashare', 'Buscar:', MovieName);

AnalyzePage('http://www.hispashare.com/?view=search&q=' + UrlEncode(MovieName));