Witam wszystkich. Przepraszam, że tyle czasu się nie odzywałem. Miałem naprawdę masę pracy a po niej brak sił i chęci na cokolwiek. Zgodnie z obietnicą najnowszy skrypt filmweb w wersji 3.0.4 pobiera oceny oraz adres strony z filmem z IMDb. Pobiera również plakat i język filmu z IMDb gdy brak go na filmweb. Trzeba utworzyć następujące pola (CustomField):
CustomField('VotesFilmweb'): Tag="VotesFilmweb", Nazwa="Filmweb", Rozszerzenie="głosów", Typ="String"
CustomField('TopFilmweb'): Tag="TopFilmweb", Nazwa="Top 500 Filmweb", Typ="Boolean", Wartość domyślna="False"
CustomField('PosFilmweb'): Tag="PosFilmweb", Nazwa="Ranking Filmweb:" Ext=" / 500", Typ="String"
CustomField('IMDbLINK'): Tag="IMDBLINK", Nazwa="Strona IMDB", Typ="Url"
CustomField('RatingIMDb'): Tag="RatingIMDb", Nazwa="Ocena IMDb", Typ="String"
CustomField('VotesIMDB'): Tag="VotesIMDB", Nazwa="IMDb", Rozszerzenie="głosów", Typ="String"
CustomField('TopIMDB'): Tag="TopIMDb", Nazwa="Top 250 IMDb", Typ="Boolean", Wartość domyślna="False"
CustomField('PosIMDB'): Tag="PosIMDB", Nazwa="Ranking IMDb", Rozszerzenie=" / 250", Typ="String"
Skrypt dostępny poprzez UPDATE SCRIPTS
P.S. Zauważyłem błąd, który powodował problemy przy opcjach aktualizacji 1 i 2. Jak dacie radę, żeby to samemu poprawić to trzeba dostawić linię
żeby znajdowała się między
Code: Select all
1,2: Begin
ClearFields;
Ej := 0;
while Ej < GetExtraCount do
begin
ExtrasS := GetExtraField(Ej, eURL);
ExtrasS := StringReplace(ExtrasS, 'http:', 'https:');
ExtrasS := Copy(ExtrasS, Pos('.pl/', ExtrasS), Length(ExtrasS));
Extras.SetValue(ExtrasS, InttoStr(Ej));
Ej := Ej + 1;
end;
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then MovieName := GetField(fieldTranslatedTitle);
win2utf(MovieName);
if ((Length(URL) > 0) and (not ((GetOption('Aktualizacja') = 2) and (GetField(fieldURL)=Trim(URL))))) then SetField(fieldURL, URL);
a
Code: Select all
AnalyzeMoviePage(URL);
SearchAddresses.Free;
end;
end;
Extras.Free;
if (not (GetParam('KolorowanieWykonanych') = '')) then
Powinno to wyglądać tak:
Code: Select all
1,2: Begin
ClearFields;
Ej := 0;
while Ej < GetExtraCount do
begin
ExtrasS := GetExtraField(Ej, eURL);
ExtrasS := StringReplace(ExtrasS, 'http:', 'https:');
ExtrasS := Copy(ExtrasS, Pos('.pl/', ExtrasS), Length(ExtrasS));
Extras.SetValue(ExtrasS, InttoStr(Ej));
Ej := Ej + 1;
end;
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then MovieName := GetField(fieldTranslatedTitle);
win2utf(MovieName);
if ((Length(URL) > 0) and (not ((GetOption('Aktualizacja') = 2) and (GetField(fieldURL)=Trim(URL))))) then SetField(fieldURL, URL);
URL := UrlEncode(URL);
AnalyzeMoviePage(URL);
SearchAddresses.Free;
end;
end;
Extras.Free;
if (not (GetParam('KolorowanieWykonanych') = '')) then
Jak ktoś sobie nie poradzi, proszę dać znać
Używam AMC w starej wersji 4.1.2, a skrypt to również któraś ze starych wersji z ręcznymi poprawkami wprowadzanymi przeze mnie zgodnie z wytycznymi z tego tematu. Ktoś ma pomysł, co jeszcze muszę zmienić, by to naprawić?
Gdy pobieram oryginalnym efekt jest taki
Muszę poszukać różnicy w skryptach. A możesz na priv przysłać ten swój skrypt? Zobaczę co tam jest ale jutro wieczorem. Mam jutro trochę pracy i muszę się dziś przygotować
czy masz inną wersję? 