antp.be forum

Code: Select all

//Zdjęcia
	if ((Pos('/photos"><h2>Galeria', Page.Text) > 0) and (GetOption('Zdjecia') = 1) and (StrToInt(GetParam('IleZdjec'), 0) > 0)) then
	begin

Code: Select all

//Zdjęcia
	if ((Pos('/photos"><h2>', Page.Text) > 0) and (GetOption('Zdjecia') = 1) and (StrToInt(GetParam('IleZdjec'), 0) > 0)) then
	begin

Code: Select all

// Ocena z IMDb i ilość głosów
	Value := '';
	Line := TextBetween(Pagetmp, '<strong title="', '</a>');
	Value := TextBetween(Line, 'ratingValue">', '</span>');
	Value := StringReplace(Value, '.', ',');
	if Value <> '' then
	begin

Code: Select all

// Ocena z IMDb i ilość głosów
	Value := '';
	Line := TextBetween(Pagetmp, 'aggregate-rating__score"', '/span>');
  	HTMLRemovetags(Line);
  	Value := TextAfter(Line, '>');
  	Value := StringReplace(Value, '.', ',');
	if Value <> '' then
	begin

Code: Select all

 // Ocena z IMDb i ilość głosów
 Value := '';
	Line := TextBetween(Pagetmp, '"aggregateRating":{', '"datePublished"');
	if CanSetCustomField('VotesIMDB') then
	begin
		Value := TextBetween(Line, 'ratingCount":', ',');
		Value := StringReplace(Value, ',', '');
		if Value <> '' then
			SetCustomField('VotesIMDB', Trim(Value));
	end;
	
  Value := TextBefore(Line, '},"', ':');
	Value := StringReplace(Value, '.', ',');
	if Value <> '' then
	begin
		if CanSetCustomField('RatingIMDb') then
			SetCustomField('RatingIMDb', Trim(Value));
		if (((GetOption('PobierzzIMDb') = 1) or  (GetOption('PobierzzIMDb') = 4) or  (GetOption('PobierzzIMDb') = 5)) and
			(not CustomFieldExists('RatingIMDb')) and CanSetField(fieldRating)) then
			SetField(fieldRating, Trim(Value));
	end;