(***************************************************
Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/
[Infos]
Authors=Nagy Tamás (n.tamas@freemail.hu)
Title=FilmZona.hu
Description=FilmZona.hu (HUN) import
Site=http://www.filmzona.hu
Language=HU
Version=1.0
Requires=3.5.0
Comments=
License=This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. |
GetInfo=1
[Options]
***************************************************)
program filmzona;
var
MovieName: string;
function RemoveHTML(Szoveg: string): String;
begin
Szoveg := StringReplace(Szoveg, '%20', ' ');
Szoveg := StringReplace(Szoveg, '', '');
Szoveg := StringReplace(Szoveg, '', '');
Szoveg := StringReplace(Szoveg, '', '');
Szoveg := StringReplace(Szoveg, '', '');
Szoveg := StringReplace(Szoveg, ' ', ' ');
Szoveg := StringReplace(Szoveg, ' ', ' ');
Szoveg := StringReplace(Szoveg, ' ', ' ');
Szoveg := StringReplace(Szoveg, ' ', ' ');
Szoveg := StringReplace(Szoveg, '
', chr(13)+chr(10));
Szoveg := StringReplace(Szoveg, '', chr(13)+chr(10));
HTMLRemovetags(Szoveg);
HTMLDecode(Szoveg);
result := Trim(Szoveg);
end;
function AddHTML(Szoveg: string): String;
begin
Szoveg := StringReplace(Szoveg, ' ','%20');
result := Szoveg;
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;
procedure AnalyzePage(Address: string);
var
Page: TStringList;
LineNr: Integer;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
// Page.SaveToFile('c:\\FilmZona.htm');
if pos('>Keresett szó/szavak:', Page.Text) = 0 then begin
AnalyzeMoviePage(Page)
end else begin
PickTreeClear;
LineNr := 0;
LineNr := FindLine('', Page, 0);
if LineNr > -1 then begin
// Translated Title
Line := Page.GetString(LineNr);
BeginPos := pos('