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

[NewSky]

To Duran:
Большое спасибо!!! Теперь скрипт на все 100% рабочий
[off-topic](интиресно, почему у некоторых проблемы с ориг. названием... у меня всё заносит...)[/off-topic]

[morrison]

2 Duran

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

[NewSky]

...ан нет... не на 100... не забирает "Отзывы зрителей"...

[Duran]

Эм, у меня названия забирает. Вероятно проблемы только с определенными.
В общем, давайте названия фильмов или ссылки на них на КП, посмотрю.

С отзывами гляну.

[Скептик]

Оригинальное название не загружается.
И категория тоже.

[drov]

Ни оригинальное ни переводное названия не гркзятся все-равно

[Duran]

 С отзывами посмотрел, фикс ниже

[NewSky]

С отзывами посмотрел, фикса пока не будет. В упор не понимаю, почему грузится только первый.

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

[Duran]

Забавно. Оно все отзывы оказывается считывает, просто почему-то из cfg файла не брала сколько нужно брать, а учитывала лишь данное в самом скрипте maxOpinion = 1

Поэтому для нужного кол-ва надо менять в самом скрипте. Хм, думал по-другому он работает.


Это

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

//****** ParseOpinions ****** Парсим отзывы зрителей ******
var
  strOpinions  : WideString;
procedure ParseOpinions (HTML : WideString);
var
 curPos, endPos, i     : Integer;     // Начальная и конечная позиции
 Tmp, Tmp2, Tmp3, URL  : WideString;   // Временные переменные
 Items                 : TWideArray;
 hasEnd, getMaxCharInOpinion : Boolean;
Begin
  endPos := 1;
  i := nOpinion + 1;
  // Загрузка отзывов
  while true do
    Begin
    if (maxOpinion > 0) And (i > maxOpinion) then Break;
    curPos := PosFrom ('<h3 class="profile-name"><img', HTML, endPos);
    if curPos <= 0 then
      Break;
      
    endPos := PosFrom ('<div id="comment_num_vote_', HTML, curPos);
    Tmp := Copy (HTML, curPos, endPos - curPos);  // Отзыв целиком
    Tmp := StringReplace (Tmp, '<br />', '<br>', true, true, false);
    curPos := 1;
    Tmp2 := TextBetween (Tmp, '<h3 class="profile-name">', '</h3>', false, curPos);  // Имя пользователя
    Tmp2 := Tmp2 + ' /' + TextBetween (Tmp, '<td style="color:#fff">', ' | ', false, curPos) + '/'; // Дата создания отзыва
    curPos := 1;
    Tmp2 := Tmp2 + '    ' + HTMLValues2 (Tmp, '<span id=''ext_title_', '<span>', '''>', '<span>', '', curPos) + #13#10; // Заголовок отзыва
    curPos := PosFrom ('<span id=''ext_text_', Tmp, curPos);
    Tmp2 := Tmp2 + TextBetween (Tmp, '>', '<span>', true, curPos); // Собственно отзыв

    Tmp2 := Replace (Tmp2);
    Tmp2 := StringReplace (Tmp2, #13#10#13#10, #13#10, true, true, false);
    Tmp2 := StringReplace (Tmp2, #13#10#13#10, #13#10, true, true, false);
    if (maxCharInOpinion > 0) And ((length (strOpinions) + 2 + length (Tmp2)) > maxCharInOpinion) then
      Begin
      i := i - 1;
      getMaxCharInOpinion := true;
      Continue;
      End;
    if strOpinions <> '' then
      strOpinions := strOpinions + #13#10#13#10;
    strOpinions := strOpinions + Tmp2;
//    strOpinions := strOpinions + IntToStr (i);
    Inc (i);
    End;
заменить на

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

//****** ParseOpinions ****** Парсим отзывы зрителей ******
var
  strOpinions  : WideString;
procedure ParseOpinions (HTML : WideString);
var
 curPos, endPos, i     : Integer;     // Начальная и конечная позиции
 Tmp, Tmp2, Tmp3, URL  : WideString;   // Временные переменные
 Items                 : TWideArray;
 hasEnd, getMaxCharInOpinion : Boolean;
Begin
  endPos := 1;
 i := nOpinion + 1;

  // Загрузка отзывов
  while true do
    Begin
    if (maxOpinion > 0) And (i > maxOpinion) then Break;
    curPos := PosFrom ('<p class="user"><a href', HTML, endPos);
    if curPos <= 0 then
      Break;
      
    endPos := PosFrom ('<li id="comment_num_vote_', HTML, curPos);
    Tmp := Copy (HTML, curPos, endPos - curPos);  // Отзыв целиком
    Tmp := StringReplace (Tmp, '<br />', '<br>', true, true, false);
    curPos := 1;
    Tmp2 := TextBetween (Tmp, '/">', '</a></p>', false, curPos);  // Имя пользователя
    Tmp2 := Tmp2 + ' /' + TextBetween (Tmp, '<span class="date">', ' | ', false, curPos) + '/'; // Дата создания отзыва
curPos := 1;
    Tmp2 := Tmp2 + '    ' + HTMLValues (Tmp, '<p class="sub_title"', '</p>', '">', '</p>', '', curPos) + #13#10; // Заголовок отзыва

curPos := PosFrom ('<p id="ext_text_', Tmp, curPos);
    Tmp2 := Tmp2 + TextBetween (Tmp, '">', '</p>', true, curPos); // Собственно отзыв

    Tmp2 := Replace (Tmp2);
    Tmp2 := StringReplace (Tmp2, #13#10#13#10, #13#10, true, true, false);
    Tmp2 := StringReplace (Tmp2, #13#10#13#10, #13#10, true, true, false);
    if (maxCharInOpinion > 0) And ((length (strOpinions) + 2 + length (Tmp2)) > maxCharInOpinion) then
      Begin
      i := i - 1;
      getMaxCharInOpinion := true;
      Continue;
      End;
    if strOpinions <> '' then
      strOpinions := strOpinions + #13#10#13#10;
    strOpinions := strOpinions + Tmp2;
//    strOpinions := strOpinions + IntToStr (i);
    Inc (i);
    End;

[autopilotoff]

Duran
Человечище!!! Все работает. Спасибо!!!

[D.A.R]

Люди, подскажите кто знает.
У меня идет импорт с IMDB, потом Кинопоиск. Кинопоиск настроен на перезапись всех полей (т.е. с IMDB остается только то, чего нет на Кинопоиске).
Почему-то в итоге скрипт Кинопоиска не перезаписывает Название и Оригинальное название (если его заполнить вручную или если оно заполнилось плагином IMDB). Не могу добиться рабочего варианта настроек.
Где что подкрутить?

Спасибо

[toper777]

Да, поля Название и Оригинальное название скрипт не вписывает.

[D.A.R]

И рейтинг MPAA с Кинопоиска тоже не берется.
Кто-то знает как его настроить?

[K2Pro]

И рейтинг MPAA с Кинопоиска тоже не берется.
Кто-то знает как его настроить?

читаем предыдущую страницу, посты тов-ща Duran, там написано как всё пофиксить

[D.A.R]

И рейтинг MPAA с Кинопоиска тоже не берется.
Кто-то знает как его настроить?

читаем предыдущую страницу, посты тов-ща Duran, там написано как всё пофиксить

да, действительно рейтинг MPAA пофиксил, спасибо.
при чем вчера последних несколько страниц почитал, но в скрипт не полез