[REL] [PL] FilmWeb.pl 3.0 - The Best Polish Script
Thanks, I uploaded it to the server ( http://update.antp.be/amc/scripts/ ) and updated the version number to 3.0.2 as well as the date.
Możesz przekopiować tutaj tą linię? U mnie przy linii 43 nie ma żadnego błędu. Rozumiem, że masz wersję programu minimum 4.lucas7911 wrote:Błąd skryptu "MAIN" : string error w linii 43
Taki komunikat po próbie uruchomienia poprawionego skryptu filmweb
Last edited by athe on 2018-01-14 21:15:47, edited 1 time in total.
Ok już po problemie. otworzyłem oryginalny poprawiony skrypt Filmweb z 14.01.2018 i linię nr 43 zastąpiłem znalezioną linijką ze skryptu przedstawionego stronę wcześniej z sekcji "procedure GetMovieTitles(Address : String);" , potem jeszcze wyskoczył jeden błąd z linią 126 i też zastąpiłem linijką z podanego wcześniej z sekcji "procedure AnalyzeSearchPage(Address : String; MovieType : String);", po tym jeszcze woła o import pliku z dodatkowymi polami ale działa i wyszukuje już bez problemu
Problem był w literówce, zabrakło znaku zamykającego ' przed ostatnim nawiasem. Było:powinno być:To samo z drugą linią, w której wywalało u Ciebie błąd. Ten błąd wynikł z tego, że mam skrypt dostosowany do moich potrzeb a na serwer musiałem wysłać oficjalny i przy kopiowaniu zmienionych linii ominąłem ten znak. Poprawiłem to i jeszcze raz wyślę do administratora.
P.S. Te poprawki zrobiłem doraźnie, dopóki Ariell się nie odezwie. Obiecał zmiany, chodzi o zwiastuny, i na nie czekamy.
Code: Select all
MovieTitle := TextBetween(Line, 'class="filmPreview__title">', '</h3>);
Code: Select all
MovieTitle := TextBetween(Line, 'class="filmPreview__title">', '</h3>');
P.S. Te poprawki zrobiłem doraźnie, dopóki Ariell się nie odezwie. Obiecał zmiany, chodzi o zwiastuny, i na nie czekamy.
znowu zmiany na filmweb
Nie mam pojęcia co wyprawiają na filmweb. Znowu wprowadzają jakieś zmiany. Nie wiem, przeczekać to i wtedy zrobić poprawki, czy jak. W niektórych tytułach filmów strony mają inne struktury niż pozostałe. Może są w trakcie dokonywania zmian?
koledzy, doraźnie poprawcie jedną linijkę w procedurzeChodzi dokładnie o linijkęma być:Cały czas coś zmieniają.
Code: Select all
procedure GetMovieTitles(Address : String);
Code: Select all
Page.Text := TextBetween(Page.Text, 'id="searchResult" >', 'class="content__sidebar">');
Code: Select all
Page.Text := TextBetween(Page.Text, 'id="searchResult"', 'class="content__sidebar">');