КиноПоиск.ru (фильмы)

[unreal666]

v1.0.7.78 от 31.10.2013
! Исправлен импорт в юзер поле сборов в США (кроме сбора импортировался еще и некоторый мусор)
! Исправлен импорт в юзер поле сборов в России (кроме сбора импортировался еще и некоторый мусор)

[Resha]

Обнаружил, можно сказать "внезапно", что на кинопоиске, есть русские названия к эпизодам. Скрипт загрузки по-моему этого не поддерживает.

Все, у кого будет время и желание, пример: http://www.kinopoisk.ru/film/229272/episodes/ (загрузились только русские названия без английских)

[Andrexy]

Доброго времени суток!
Пользуюсь данной программой уже около 5-7 лет. Раньше добавлял фильмы с кинопоиска без каких-либо проблем, потом что-то навернулось и я стал добавлять все фильмы вручную)
Сейчас хочу разобраться как добавлять фильмы в автоматическом режиме и возникли вопросы:
1. Поставил проксимотрон, стала добавляться инфа, но все имена по-английски? Как это исправить?
2. Может быть есть конкретная инструкция, как сделать так, чтобы фильмы добавлялись автоматически?

Версия программы - 1.0.2.7

Заранее спасибо за ответ!

[Resha]

Обнаружил, можно сказать "внезапно", что на кинопоиске, есть русские названия к эпизодам. Скрипт загрузки по-моему этого не поддерживает.

Все, у кого будет время и желание, пример: http://www.kinopoisk.ru/film/229272/episodes/ (загрузились только русские названия без английских)

Недождался. Кому необходим данный функционал можно заменить в скрипте процедуру на следующую:

Код: [Выделить]

procedure ParseSeasons(HTML : String);
var
curPos, endPos, posSeason  : Integer;
i, Time                    : Integer;
Tmp                        : String;
OrigTitle                  : String;
// Resha 15.05.2014 { Не грузились эпизоды с переводами названий
curPos2, curPos3           : Integer;
Title                      : String;
// } Resha 15.05.2014
Year, Season, Episode      : String;
Times                      : TWideArray;
begin
curPos := Pos ('<b>Время:</b>', HTML);
if curPos > 0 then begin
Tmp := HTMLValues2 (HTML, '<b>Время:</b>', '<br><small>', 'td class="news">', '<br><small>', '', curPos);
ExplodeString (Tmp, Times, ' ');
Time := 0;
for i := Low (Times) + 1 to High (Times) do begin
if (pos ('дн', Times[i]) = 1) Or (pos ('ден', Times[i]) = 1) then
Time := Time + 24 * 60 * StrToInt (Times[i - 1]);
if pos ('час', Times[i]) = 1 then
Time := Time + 60 * StrToInt (Times[i - 1]);
if pos ('минут', Times[i]) = 1 then
Time := Time + StrToInt (Times[i - 1]);
if pos ('мин.', Times[i]) = 1 then begin
Time := StrToInt (Times[i - 1]);
Break;
end;
end;
Tmp := IntToStr (Time);
if formattedTime then Tmp := CorrectTime (Tmp) else Tmp := Tmp + ' мин';
if optTimeSerial = Enabled then begin
if placeTimeSerial = 0 then
AddCustomFieldValueByName(ufTime, Tmp)
else
AddCustomFieldValueByName(ufTimeSerial, Tmp);
end;
end;

posSeason := 1;
while true do begin
posSeason := PosFrom ('<td colspan=2 class="news"', HTML, posSeason + 1);
if posSeason <= 0 then
Break;

endPos := PosFrom ('</table>', HTML, posSeason);
Tmp := Copy (HTML, posSeason, endPos - posSeason);

curPos := 1;
Season := Replace (HTMLValues2 (Tmp, '<td colspan=2 class="news"', '</td>', '<h1', '</h1>', '', curPos));
Delete (Season, 1, 6);
while true do begin
curPos := PosFrom ('<span style="color:#777">', Tmp, curPos);
if curPos <= 0 then
Break;

Episode := Replace (TextBetween (Tmp, '<span style="color:#777">', '</span>', false, curPos));
Delete (Episode, 1, 7);
// Resha 15.05.2014 { Не грузились эпизоды с переводами названий
//OrigTitle := Replace (TextBetween (Tmp, '<h1 class="moviename-big" style="font-size:16px;padding:0px;color:#444"><b>',
// '</b></h1>', false, curPos));
Title := Replace (TextBetween (Tmp, '<h1 class="moviename-big" style="font-size:16px;padding:0px;color:#444"><b>',
'</b></h1>', false, curPos));
curPos2 := PosFrom ('<span style="color:#777">', Tmp, curPos);
curPos3 := PosFrom ('<span class=''episodesOriginalName''>', Tmp, curPos);

if (curPos3 > 0) and ((curPos3 < curPos2) or (curPos2 <= 0)) then
OrigTitle := Replace (TextBetween (Tmp, '<span class=''episodesOriginalName''>',
'</span>', false, curPos))
else
OrigTitle := Title;
// } Resha 15.05.2014
Year := Replace (TextBetween (Tmp, 'align=left>', '</td>', false, curPos));
Year := Copy (Year, Length (Year) - 3, 4);
// Resha 15.05.2014 { Не грузились эпизоды с переводами названий
//if optEpisode = Enabled then AddEpisode('', OrigTitle, '', '', Year, Season, Episode);
if optEpisode = Enabled then AddEpisode(Title, OrigTitle, '', '', Year, Season, Episode);
// } Resha 15.05.2014
end;
end;
end;

Мои изменения выделены коментами.
Тестировал пока только на одном сериале, поэтому вставляйте на свой страх и риск.

*UPD. 16.05.2014. Исправлен косяк при определении последней серии сезона

[Resha]

Немного модифицировал скипт для себя. Если кому интересно - можете забирать.

Изменения по сравнению со стандартным:

• Доработал загрузку даты релиза на Blue-Ray. У меня это доп. поле имеет тип не Короткий текст, а Дата. Скрипт пытался сохранить в это поле значение вида "20.05.2014,Уолт Дисней Компани СНГ" (в случае с короткой датой). Т.к. в значении присутствует текст, то ничего не сохранялось.
  Добавлена опция "optReleaseBDDateOnly". Если она включена, то текст вместе с запятой отсекается и превращается в "20.05.2014" и успешно сохраняется в поле с типом Дата
  Опция включена по-умолчанию
• Добавлено сохранение переведенных наименований эпизодов сериалов, если они есть (см. пост выше)

[Lu]

Доброго времени суток.

Может кто-нибудь добавить процедурку в исходный скрипт загрузки с кинопоиска на пользовательское поле "Ошибки в фильме" (аналогично тривии "Знаете ли вы, что")?
(сам я что-то не нашел, как сделать без явно прописанного ID для данного куска страницы кинопоиска)

Заранее спасибо

[djek-ural]

Давайте попробуем снова , напишите какие ошибки сейчас есть в скрипте. Только просьба писать основные ошибки а не хотелки. Итак скрипт похож на черт ти знает что .

[setget]

Увы, но здесь уже придется или начинать с чистого листа, или забивать на кинопоиск навсегда. Убили они старый ресурс. Убили в угоду планшетам.

[Lu]

да уж... дизайн там полное Г, импорт еще не пробовал, вполне возможно, что понадобится новый плагин, ибо старый от всех костылей просто загнется.

уже есть ошибки?

[Makex]

версия PVD 0.9.9.29
плагин кинопоиск.ру 1.0.7.79
ошибка при импорте данных https://s.mail.ru/4ikUZfTaHXzj/img-2015-10-09-12-48-58.png

[djek-ural]

Предлагаю пока скрипты не трогать , подождать пока все устаканится. Не вы одни заметили что интерефейс сайта стал не такой как раньше. Может яндекс прислушается к отзывам и оставит все как раньше.

[Arg123]

КП всё неймется 

IMDB может конечно двигло меняет, но вот шкура сайта у них старая, а на КП такие эксперименты стабильно раз в полгода--год  , в зависимости от того кто их купил.

[Lu]

была написана петиция
https://www.change.org/p/kinopoiskru-yandex-%D0%B2%D0%B5%D1%80%D0%BD%D0%B8%D1%82%D0%B5-%D1%81%D1%82%D0%B0%D1%80%D1%8B%D0%B9-%D0%BA%D0%B8%D0%BD%D0%BE%D0%BF%D0%BE%D0%B8%D1%81%D0%BA?recruiter=400575004&utm_campaign=signature_receipt&utm_medium=email&utm_source=share_petition

разрабы обещали старую версию на отдельном домене (правда, неизвестно, сколько она проживет). на нее придется как-нибудь перенастраивать скрипты?

[parasite]

Ммда, Кинопоиск судя по всему - всё...

[Lu]

вернули старый кинопоиск, но с импортом проблемы, например, при загрузке персон в сериал. ниже приведу пример, в нем только 1 человек, от которого изначально была связь, больше не подгрузилось

Дополнение: на пустой список людей добавляется нормально. Раньше такого не было, настройки не менял уже очень давно.
Дополнение2: дублирование сериалов, видимо, по связям фильмов или по датам начала-конца сезона (минимум 2 копии, у одной год фильма - год начала сериала, у другой - год окончания)