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

[Tsume]

Такой вопрос:
Никто не знает как реализовать чтобы скрипт заносил в дату добавления дату обновления (т.е. ту дату когда было выполнено последнее обновление с помощью скрипта)?
Т.е. при импорте туда заносилась дата на момент импорта.
Заранее благодарен

[djek-ural]

я встретил в книге описание одной функции , незнаю здесь она будет работать

Процедура GetDate возврашает текушую дату , которая поддерживается операционной системой

procedure GetDate ( var Year , Month , Day , DayOfWeek : Word )

Точнее скажет Ностра ...

[djek-ural]

Есть еще
GetTime( var Hour , Minute , Second , Sec100 : Word )

[nostra]

Ф-ций для определения текущего времени на данный момент в скриптах нет т.е. они не поддерживаются, но добавить это легко. Сделаю в следующей версии движка скриптов.

[Tsume]

Ф-ций для определения текущего времени на данный момент в скриптах нет т.е. они не поддерживаются, но добавить это легко. Сделаю в следующей версии движка скриптов.

Спасибо! Буду ждать! Просто так удобнее, я переодически обновляю (рейтинг и т.п.), а из-за всяких банов не получается просто все выделить и обновить. И поэтому удобно было бы почастям

[nostra]

Понимаю, хотя я планирую нативную поддержку даты одновления в будущем, но пока это было бы временым решением.

[Maxometr]

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

[djek-ural]

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

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

[djek-ural]

Найди в тексте скрипта следуюшюю строку

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

CheckRus(tmp);
и замени её на следующюю ;

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

FilmCountry := 'Rus';
Должно работать , теоретически , если нет , то напиши результат , у меня нет времени что бы попробовать это на практике.

Добавил :

Все таки я его проверил , нужно перед тем что написано сделать еще вот что:

FilmCountry := 'En';

заменить на

FilmCountry := 'Rus';

Заранее предупреждаю это должны быть одинарные строки , а не фрагмент текста в строке.
Заметка при заполнение базы:
А также возможно в тексте будут встречаться название по английски  тех актеров которые уже есть в базе , что бы от этого избавится нужно начинать все сначала , иного метода я не знаю...

[Maxometr]

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

[ViNNNtalik]

Подскажите пожалуйста, как сделать, что бы скачивались не только актеры, но и их роли? Как в обычном скрипте кинопоиска

[NewSky]

Мне показалось или на Кинопоиске что-то поменяли насчет MPAA? Как бы там ни было, походу скрипт перестал тянуть значение MPAA, может кто-нибудь глянет?

Проверил... все нормально. Ложная тревога.

[djek-ural]

Подскажите пожалуйста, как сделать, что бы скачивались не только актеры, но и их роли? Как в обычном скрипте кинопоиска

Это можно сделать , но слишком долго , для таких целей сушествует плагин для персон , он как раз и подставляет роли.

[moran]

в скрипте есть ошибка, если на странице с фильмом продолжительность фильма равна "-" то скрипты выдает ошибку "Unexpected exception: Out of string range". в файле скрипта необходимо изменить блок

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

  // Длительность
  curPos := PosFrom('время', HTML, First);
  if curPos > 0 then
    begin
     Tmp := HTMLValues2(HTML, 'время', '</tr>', 'class="desc-data"', '</tr>', ',', curPos);
Tmp := CorrectTime ( Tmp );
     AddCustomFieldValueByName(ufTime, Tmp);
    end;на

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

  // Длительность
  curPos := PosFrom('время', HTML, First);
  if curPos > 0 then
    begin
     Tmp := HTMLValues2(HTML, 'время', '</tr>', 'class="desc-data"', '</tr>', ',', curPos);
     If Tmp <> '-' Then
        begin
  Tmp := CorrectTime ( Tmp );
          AddCustomFieldValueByName(ufTime, Tmp);
end;
    end;тогда все работает и ошибки нету...

[ViNNNtalik]

в скрипте есть ошибка, если на странице с фильмом продолжительность фильма равна "-" то скрипты выдает ошибку "Unexpected exception: Out of string range". в файле скрипта необходимо изменить блок

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

  // Длительность
  curPos := PosFrom('время', HTML, First);
  if curPos > 0 then
    begin
     Tmp := HTMLValues2(HTML, 'время', '</tr>', 'class="desc-data"', '</tr>', ',', curPos);
Tmp := CorrectTime ( Tmp );
     AddCustomFieldValueByName(ufTime, Tmp);
    end;на

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

  // Длительность
  curPos := PosFrom('время', HTML, First);
  if curPos > 0 then
    begin
     Tmp := HTMLValues2(HTML, 'время', '</tr>', 'class="desc-data"', '</tr>', ',', curPos);
     If Tmp <> '-' Then
        begin
  Tmp := CorrectTime ( Tmp );
          AddCustomFieldValueByName(ufTime, Tmp);
end;
    end;тогда все работает и ошибки нету...

Спасибо за решение, я только только вчера нашел этот глюк, и хотел просить помочь в его решении, но решение пришло раньше, чем я успел попросить-)