(*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=Legrad, FinderX Title=AnimeFrozen Description=Script for anime information in Spanish Site=www.frozen-layer.com Language=ES Version=1.2.2 Requires=3.5.0 Comments= License= GetInfo=1 [Options] BatchMode=0|0|0=Modo Normal|1=Modo Batch, busca por titulo (original) ***************************************************) program AnimeFrozen; uses StringUtils7552; const FrozenURL = 'http://www.frozen-layer.com/buscar/anime/'; var MovieName,tmp: string; BatchMode, Cancel, BMMatchFind: boolean; nResults: integer; //------------------------------------------------ function funcHTMLRemoveTags(Str:string) : string; begin HTMLRemoveTags(Str); result := Str; end; //------------------------------------------------ function funcHTMLDecode(Str:string) : string; begin HTMLDecode(Str); result := Str; end; //------------------------------------------------ function ParserText(Text:string ; StartAt:string ; EndAt:string) : string; begin if (Pos(StartAt, Text) > 0) then result := UTF8Decode(FullTrim(funcHTMLRemoveTags(funcHTMLDecode(TextBetween(Text,StartAt,EndAt))))) else result := ''; end; //------------------------------------------------ procedure AnalyzeForVariuosPages(Address:string); var lotPos, num: integer; strPage, nextAddress: string; nPage: char; begin strPage := GetPage(Address); lotPos := Pos('