(*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=zilinec@email.cz Title=365dni.sms.cz Description=Import dat ze serveru 365dni.sms.cz Site=365dni.sms.cz Language=CZ Version=4.2 Requires=3.5.0 Comments=12.01.2007 v4.2| Pokud byl nalezen prave jeden film, rovnou ho nabidne k ulozeni|13.10.2006 v4.1| Zmena stranky pro hledani seznamu filmu + osetreni popisu, pokud byl oddelen (natvrdo) enterem| Podpora nového vzhledu na sms.cz (maji to spatne strukturovane, takze sorry za pripadne chyby).| Hleda bez ohledu na velka/mala/diakritiku.| License=Chcete-li pripadne ocenit financnim prispevkem vytvoreni tohoto scriptu nebo financne vyvoj dalsich novych scriptu, prosim napiste si na email o kontaktni informace. Predem dekuji za Vasi pripadnou podporu. zilinec@email.cz|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 TVP_cz; const BaseAddress = 'http://www.sms.cz/'; var MovieName: string; Language : word; {0 = neurceno, 1 = original, 2 = cesky} Caption : string; 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; Line : String; FilmName, FilmDesc, FilmAddr : String; MyZadnyFilm, MySeznamFilmu, MyPrimoFilm, MyChybiSekce : Boolean; begin Page := TStringList.Create; Page.Text := GetPage(Address); Page.Text := StringReplace(Page.Text, 'ľ', 'ž'); Page.Text := StringReplace(Page.Text, 'ą', '‘'); {Vyhodnotim nalezenou stranku (po zadani filmu)} MyZadnyFilm := False; MySeznamFilmu := False; MyPrimoFilm := False; MyChybiSekce := False; if FindLine('Počet nalezených záznamů: 0', Page, 0) > -1 then MyZadnyFilm := True else if FindLine('