antp.be forum

Code: Select all

	Line := TextBetween(Page.Text, 'filmRating filmRating--hasPanel', 'filmRating filmRating--filmWTS hide');
	Rates := TextBetween(Line, 'filmRating__rateValue">', '<');
	Rates := StringReplace(Rates, ',', '.');
	if Length(Rates) > 0 then
		SetField(fieldRating, Trim(Rates));
	if CanSetCustomField('VotesFilmweb') then
	begin
		Value := TextBetween(Line, 'ratingCount">', '<');
		if Length(Value) > 0 then
			SetCustomField('VotesFilmweb', Trim(Value));
	end;

Code: Select all

	Line := TextBetween(Page.Text, 'filmRating filmRating--hasPanel', 'filmRatingHeader');
	Rates := TextBetween(Line, 'filmRating__rateValue">', '<');
	Rates := StringReplace(Rates, ',', '.');
	if Length(Rates) > 0 then
		SetField(fieldRating, Trim(Rates));
	if CanSetCustomField('VotesFilmweb') then
	begin
		Value := TextBetween(Line, 'filmRating__count">', '<');
		if Length(Value) > 0 then
			SetCustomField('VotesFilmweb', Trim(Value));
	end;

Code: Select all

Skrypt nie odnalazł identycznego tytułu lub nie zgadza się rok produkcji ze strony Filmweb na stronie IMDb.
Pobierze informacje z pierwszej pozycji na liście IMDb najbardziej pasującego tytułu. Możesz sprawdzić czy to jest właściwy film i wprowadzić korekty ręcznie.