» Ant Movie Catalog

LAndrew
Теперь прекрасно работает, Спасибо!!!

скрипт кинопоиск, ver 2.77

http://slil.ru/25061200
http://depositfiles.com/ru/files/2261600

Доработал скрипт ShareReactor.ru версия 1.02mod

версию не меняю, а добавил слово 'mod' (т.к. я не автор скрипта а только дорабатывал)


* добавил два параметра:
1. отображение года фильма в окне "результаты поиска"
2. отображение информации о кодеках, тоже сделал через параметры

http://rapidshare.com/files/68050701/ShareReactor__RU__neodelit.ifs

У кого нить кинопоиск вообще работает?
Вчера даже на сайт зайтить не мог

Nicka_Grey, только что зашел на сайт - все работает

Добавлено:
Господа, сделал небольшие изменения в AMC "под себя"
Может кому-нибудь еще пригодится.
- добавлена поддержка командной строки (см. ниже)
- user agent AMC изменен (дабы работал кинопоиск.ру)
- при переносе видеофайла на окно AMC в поле Media подставляется путь и имя файла, а в Original Title - имя файла (без .avi, .mpg)

Следующие параметры командной строки поддерживаются:
-a добавить новый фильм в список (использование командной строки без этого параметра, на самом деле, лишено смысла - все данные будут показаны в AMC, но не будут "привязаны" к какому-либо фильму)
-s сохранить каталог
-x выйти из AMC
--moviefile видеофайл, откуда необходимо импортировать медиа-информацию (длинные пути и пути с пробелами должны передаваться в кавычках, например: --moviefile="C:\Program Files\my movie.avi")
--fTranslatedTitle
--fDirector
--fYear
--fCountry
--fActors
--fDescription
--fProducer
--fOriginalTitle
--fMedia
--fURL
присвоить значение соответствующему полю (например, --fOriginalTitle="The Movie")

Предполагается, что командная строка будет использоваться след. образом:
MovieCatalogLA.exe --moviefile="C:\Program Files\my movie.avi" -a -s -x --fOriginalTitle="The Movie"

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

Ну и напоследок: в деталях работа AMC LA не проверялась, потому вы можете использовать данную версия на свой страх и риск . сделайте резервную копию своего каталога заранее.

http://slil.ru/25073412
http://depositfiles.com/files/2293021

LAndrew
Интересная идея
Вопрос, при этом сам AMC после выполнения действий (добавления нового фильма например) запускается?
У меня давно есть идея сделать консольную версию, которая бы в stdout вернула список все фильмов, аналогично архиваторам, и по запросу инфу по указанному фильму
Зачем нужно?
Можно было бы прикрутить как архиваторный плаг в FAR-e или в TotalCommander-e
Или может уже кто такое сделал?
У самого просто пока никак со временем не получается

Nicka_Grey
AMC запускается...

у тебя тож идея интересная.. только зачем??
кста, AMC каталог может храниться в формате xml.. может уже есть плагин для TC, который с xml работать может?

LAndrew
SynUs 1.6; OpenOffice.org/DOCX/FB2 Viewer 1.6.8; xBaseView 8.0.0749 RC2 для просмотра или что-то ещё кроме просмотра надо?

LAndrew

// Address := UrlEncode(Address); вот с этой строкой в скрипте большие проблемы, работает очень оригинально. Лучше ее закомментировать.

И еще... Пытаюсь искать Amnesia с включенным AdvancedSearch (404) и без него (работает, хотя пикап для постеров какой-то чудной). Разобраться сам не смогу, очень уж все запутано.

sumchanin_Yuri

Цитата:

SynUs 1.6; OpenOffice.org/DOCX/FB2 Viewer 1.6.8; xBaseView 8.0.0749 RC2 для просмотра или что-то ещё кроме просмотра надо?

Это к чему?

CTOKOTOB,
какие проблемы с этой строкой?
в чем заключается "чудность" импорта картинки?

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

Добавлено:
Nicka_Grey,
наверное это к тому, что на wincmd на первой странице висит новость:

Цитата:

OpenOffice.org / DOCX / FB2 Viewer 1.6.9

Плагин позволяет просматривать документы OpenOffice.org, MS Word 2007 и некоторых других XML-based форматов с сохранением большей части форматирования. Документы конвертируются в XHTML формат, работа плагина ограничена возможностями используемого для конвертации XSL файла.

т.е. можно этим плагином попробовать смотреть каталог AMC в Total Commander

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

LAndrew
Не работает.

Цитата:

У кого нить кинопоиск вообще работает?
Вчера даже на сайт зайтить не мог

У меня также несколько дней kinopoisk не работает, даже в браузере не открывается

Господа офицеры, скачала на днях Ant Movie Catalog, целые вечера, после уроков вбивала свою колекцию (Не могла нарадываться) - и тут - о УЖАС!!! Уже третьий день не грузит инфу с кинопоиска.
Мало того, я даже зайти на него не могу!!!
Что это?
Возможно злостный резидентный вирус?
Хелп ми! У кого небудь есть такая же проблема?

VicULA
Последнее время у кинопоиска траблы с хостингом, на сколько я успел заметить
трабла не только у тебя
и писал на днях
и вон вижу другие жалуются

Хм... Странно. Был уверен, что брал отсюда, но поиском не находится. Пользуюсь сам скриптом для поиска с friends-forum.com. База там достаточно большая и работает быстро. Скрипт не мой, брал тоже не помню где. В базовой поставке есть версия 1.2 с датой 28-04-2006, у меня версия 2.1 с датой 20-12-2005. Сейчас проверил - 1.2 берет картинки не везде, 2.1 - чаще. Но,в основном, работают обе.

Скрипт 2.1 ниже.

[more]
(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Ilya
Title=Friends-Forum.com
Description=Movie importation script for Imports movies info (RU) with picture from Friends-Forum.com
Site=www.friends-forum.com
Language=RU
Version=2.1
Requires=3.5.0
Comments=
License=This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. |
GetInfo=1

[Options]

***************************************************)

program FriendsForum;
const
BaseAddress = 'http://friends-forum.com/';
var
MovieName: string;

function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
i: Integer;
begin
result := -1;
if StartAt < 0 then
StartAt := 0;
for i := StartAt to List.Count-1 do
if Pos(Pattern, List.GetString(i)) <> 0 then
begin
result := i;
Break;
end;
end;

procedure AnalyzePage(Address: string); //Поиск фильмов и формирование списка
var
ID, FilmName, Line: String;
Page: TStringList;
FilmPage: TStringList;
BeginPos, EndPos, Lines: Integer;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
BeginPos := FindLine('записей найденно</center><', Page,0);
EndPos := FindLine('<a href="http://friends-forum.com/modules.php?name=Movie_News&file=searchtxt">New search', Page,0);
if BeginPos> 0 then
begin
Line:='';
for Lines := BeginPos to EndPos do //Получение строк с названиями и адресами
Line:=Line+Page.GetString(Lines);
PickTreeClear; //Очистка дерева фильмов
PickTreeAdd('Поиск по слову: ' + MovieName, '');
repeat
BeginPos := Pos('><B>Оригинальное название:</B>',Line);
If BeginPos>0 Then
Begin
Delete(Line,1,BeginPos); //Удаление начала

BeginPos := Pos('":</B>',Line)+29; //Получить название фильма (ориг.)
Delete(Line,1,BeginPos);
BeginPos := 1;
EndPos := Pos('<br><B',Line)-1;
FilmName := Copy(Line, BeginPos, EndPos);

BeginPos := Pos('Название:</B>',Line)+12; //Получить название фильма (перевед.)
Delete(Line,1,BeginPos);
BeginPos := 1;
EndPos := Pos('<br><B',Line)-1;
FilmName := FilmName + ' / ' + Copy(Line, BeginPos, EndPos);

BeginPos := Pos('выхода:</B>',Line)+10; //Получить название фильма (год)
Delete(Line,1,BeginPos);
BeginPos := 1;
EndPos := Pos('<br><B',Line)-1;
FilmName := FilmName + ' (' + Copy(Line, BeginPos, EndPos) + ')';

BeginPos := Pos('http://friends-forum.com',Line); //Получить адрес страницы фильма
Delete(Line,1,BeginPos);
BeginPos := 1;
EndPos := Pos('</a></td></tr><',Line);
ID := copy(Line, BeginPos, EndPos - BeginPos);

FilmName := StringReplace(FilmName,'&nbsp;',' ');
PickTreeAdd(FilmName, ID);
end;
until BeginPos < 1;
end;
If PickTreeExec(Address) Then
AnalyzeMoviePage(Address);
end;

procedure AnalyzeMoviePage(Address: String); //Получение информации о выбраном фильме
var
Page: TStringList;
LineNr : Integer;
Line, Value : String;
BeginPos, EndPos : Integer;

begin
Page := TStringList.Create;
Page.Text := GetPage('h' + Address);

BeginPos := FindLine('<TR><td><B>Оригинальное название:</B>', Page,0);
EndPos := FindLine('<a href="http://friends-forum.com/modules.php?name=Movie_News&file=searchtxt">New search', Page,0);

Line:='';
for LineNr := BeginPos to EndPos do //Получить строки с информацией
Line:=Line+Page.GetString(LineNr);

BeginPos := pos('<TR><td><B>Оригинальное название:</B>', Line)+36; //оригинальное название
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);;
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldOriginalTitle, Value);

BeginPos := Pos('Название:</B>',Line)+12; //переведенное название
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldTranslatedTitle,Value);

BeginPos := pos('выхода:</B>', Line)+10; //год
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldYear, Value);

BeginPos := Pos('><a href="',Line)+9; //Получение URL
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('">',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldURL,Value);

BeginPos := pos('B>Жанр:</B>', Line)+10; //жанр
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldCategory, Value);

BeginPos := pos('B>Режиссер:</B>', Line)+14; //режиссер
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldDirector, Value);

BeginPos := pos('ролях:</B>', Line)+9; //в ролях
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldActors, Value);

BeginPos := pos('фильме:</B>', Line)+10; //О фильме
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldDescription,Value);

BeginPos := pos('B>Выпущено:</B>', Line)+14; //студия (продюсер)
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldProducer, Value);

BeginPos := pos('Язык:</B>', Line)+8; //язык
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldLanguages, Value);

BeginPos := pos('Примечания:</B>', Line)+14; //коментарии
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := Pos('<br><B>',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldComments, Value);

BeginPos := Pos('пользователей:</B>',Line)+19; //рейтинг (качество)
EndPos := Pos(' / 10 (',Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
Value := Trim(Left(StringReplace(Value, '.', ' '),2));
Value := IntToStr(StrToInt(Value,0));
SetField(fieldRating,Value);

BeginPos := Pos('http',Line)+1;
Delete(Line,1,BeginPos);
BeginPos :=1;
EndPos := pos('</td></', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
GetPicture('ht' + Value);

//DisplayResults;
end;


begin
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then
MovieName := GetField(fieldTranslatedTitle);
if Input('Поиск на Friends-Forum.com', 'Введите название фильма:', MovieName) then
AnalyzePage('http://friends-forum.com/modules.php?name=Movie_News&file=searchtxt&op=viewresults&orderfield=&searchterm='+UrlEncode(MovieName)+'&vlang=&let=');
end.

[/more]

J9467
ты бы такое под more прятал

Nicka_Grey
и я. и модератора бы позвал :-Е

что такого особенного в кинопоиске? я им никогда не пользовался, на крайний случай всегда есть яндекс. А обычно friends-forum, sharereactor или videoguide

LAndrew
Параметры: 00100002

Проблемы с UrlEncode простые: на выходе сия строка дает в Address нечто вида "http%3A%2F%2Fkinopoisk..." (полностью привести проблематично - скопировать данные из отладчика, увы, нельзя). Если его убрать - появятся ошибки в названиях с пробелами, так что это не выход.

По выбору постера: выглядит вот так: _http://i042.radikal.ru/0711/de/26c2aece13f2.jpg

Sorry, я исправлюсь.

Цитата:

По моей просьбе автор IMDB скрипта добавил новую опцию "ConvertToASCII". Делает она следующее: раньше не англоязычные имена или слова импортировались так:
Alejandro Gonzбlez Iсбrritu
Теперь если включить эту опцию будет так:
Alejandro Gonzalez Inarritu
Для ее работы нужен новый StringUtils1.pas

Скачать предварительные версии:
IMDB script (3.20) и StringUtils1.pas (v.5)
http://www.bad4u.741.com/IMDB.ifs
http://www.bad4u.741.com/StringUtils1.pas

Обсуждение на офф форуме

А, собственно, где эта опция? В стандартном окне настроек, там, где ImageKind, BatchMode и т.п., ничего не добавилось, в самом теле скрипта я тоже что-то не вижу... Где выставлять единичку? Похоже, что по ссылке http://www.bad4u.741.com/IMDB.ifs лежит уже другая версия файла. Где тогда взять ту, в которой есть опция "ConvertToASCII"?
Вопрос снят, см. http://forum.antp.be/phpbb2/viewtopic.php?p=24487#24487

никто не хочет шапку исправить?
но оф сайте доступна 3.5.1.0 (официальный релиз)

Цитата:

Version 3.5.1.0 - Complete package with installation (recommended)
Size: 3617 KB, Last update: 2007-09-22

Не работает поиск на adultdvdempire.com
Никто не знает, в чем дело?

Прога последняя с сайта
Сейчас еще попробовал: не ищет ни adultfilmdatabase, ни Excalibur, ни jadedvideo

выложите пофиксеную версию 3.5.1.0 от 22 сентября 2007 для работы с кинопоиском

Цитата:

Сейчас еще попробовал: не ищет ни adultfilmdatabase, ни Excalibur, ни jadedvideo

Поправленый скрипт для Excalibur

http://natorbanich.ifolder.ru/4250491

to maksobus
спасибо, работает!

LAndrew
спасибо за версию я коммандной строкой...
только маленькая проблемка
у меня почемуто -х не работает (АМС сам не закрывается) может глянеш?
спасибо

Vladlp,
у меня была такая же проблема... пришлось лезть в код, смотреть... я там то ли q, то ли e использовал, а не x попробуй оба варианта - под рукой нет AMC, чтоб точно сказать.
кста, с кинопоиском моя версия почему-то не работает у меня, потому использую две версии - оригинальную и свою

Цитата:

я там то ли q, то ли e использовал

-e спасибо

кинопоиск у меня тоже не работает, но тут уже две версии не сильно и напрягают;)