Автор Тема: world-art.ru (фильмы)  (Прочитано 211269 раз)

0 Пользователей и 17 Гостей просматривают эту тему.

Оффлайн nostra

  • Администратор
  • *****
  • Сообщений: 2749
    • Personal Video Database
Re: Проблемы и предложения импорта с world-art.
« Ответ #105 : 14 Июня 2008, 23:14:46 »
Цитировать
А не больше это похоже на работу с эпизодами? Или я не правильно сейчас пытаюсь сделать?

Ну да, наверное

я уже заметил!
Там было написано:
А где мне это писать, всмысле в начале или например, после импорта персон? Или это не имеет значения?

Если для поиска начала связей использовать ф-цию Pos, то где угодно (т.е. во избежание ошибок лучше всего в самом конце процедуры ParseMovie), а если PosFrom, то  после описания и перед эпизодами.
Мы уже работаем над постановлением по углублению конструктивных мер, принятых в результате консолидации

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #106 : 14 Июня 2008, 23:20:04 »
Я делаю наверное медленно, только учусь вот такое у меня начало:
Цитировать
procedure ParseConnections(HTML : WideString);
var
 Title: WideString;
begin
curPos := Pos('<font size=2 color=#990000>В каком порядке лучше смотреть эту серию:</font>', HTML);
if curPos > 0 then begin
 curPos := PosFrom('estimation>', HTML, curPos) + Length('</a>');
Надеюсь правильно!

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #107 : 14 Июня 2008, 23:22:06 »
Оригинальный текст:
Цитировать
<font size=2 color=#990000>В каком порядке лучше смотреть эту серию:</font></b></td><td width=2></td></tr></table><table width=100% cellspacing=0 cellpadding=0 border=0 >
<tr><td height=1 background='img/pixel.gif'></td></tr></table><table cellspacing=0 cellpadding=2 border=0><tr><td width=2></td><td Valign=top> <b>#1&nbsp;</b></td><td>
<a href = "animation.php?id=737" class=estimation>Армитаж III</a> - OAV (4 эп.), первое произведение цикла, 1995</td></tr><tr><td width=2></td><td Valign=top> <b>#2&nbsp;</b>
</td><td> <a href = "animation.php?id=738" class=estimation>Армитаж: Полиматрица</a> - п/ф, компиляция OAV Armitage III, 1996</td></tr><tr><td width=2></td><td Valign=top>
<b>#3&nbsp;</b></td><td> <a href = "animation.php?id=179" class=estimation>Армитаж: Двойная матрица</a> - п/ф,
 продолжение, 2002</td></tr></table><br><br><table width=100% cellspacing=0 cellpadding=2 border=0><tr><td><b>
Обычный текст:
Цитировать
В каком порядке лучше смотреть эту серию:   

   #1    Армитаж III - OAV (4 эп.), первое произведение цикла, 1995
   #2    Армитаж: Полиматрица - п/ф, компиляция OAV Armitage III, 1996
   #3    Армитаж: Двойная матрица - п/ф, продолжение, 2002
Адрес: http://www.world-art.ru/animation/animation.php?id=737

Оффлайн nostra

  • Администратор
  • *****
  • Сообщений: 2749
    • Personal Video Database
Re: Проблемы и предложения импорта с world-art.
« Ответ #108 : 14 Июня 2008, 23:24:10 »
Похоже на правильный код :)
Только вот наверное curPos := PosFrom('estimation>', HTML, curPos) + Length('</a>');
Должно быть curPos := PosFrom('estimation>', HTML, curPos) + Length('estimation>');
А вот EndPos := PosFrom('</a>', HTML, curPos);
« Последнее редактирование: 14 Июня 2008, 23:25:52 от nostra »
Мы уже работаем над постановлением по углублению конструктивных мер, принятых в результате консолидации

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #109 : 14 Июня 2008, 23:31:16 »
Что типа того:
Цитировать
procedure ParseConnections(HTML : WideString);
var
 Title: WideString;
begin
curPos := Pos('<font size=2 color=#990000>В каком порядке лучше смотреть эту серию:</font>', HTML);
if curPos > 0 then begin
 curPos := PosFrom('estimation>', HTML, curPos) + Length('estimation>');
EndPos := PosFrom('</a>', HTML, curPos);
 while (curPos > 0) AND (curPos < PosFrom('<br>', HTML, EndPos)) do begin
AddConnection(Title);
 end;
end;

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #110 : 14 Июня 2008, 23:34:44 »
Или я что-то пропустил в конце?

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #111 : 14 Июня 2008, 23:55:40 »
Или надо вот так:
Цитировать
procedure ParseConnections(HTML : WideString);
var
 Title: WideString;
begin
curPos := Pos('<font size=2 color=#990000>В каком порядке лучше смотреть эту серию:</font>', HTML);
if curPos > 0 then begin
 curPos := PosFrom('estimation>', HTML, curPos) + Length('estimation>');
EndPos := PosFrom('</a>', HTML, curPos);
 while (curPos > 0) AND (curPos < PosFrom('<br>', HTML, EndPos)) do begin
AddConnection(Title);
 curPos := Pos('estimation>', HTML);
 end;
end;
???

Оффлайн nostra

  • Администратор
  • *****
  • Сообщений: 2749
    • Personal Video Database
Re: Проблемы и предложения импорта с world-art.
« Ответ #112 : 15 Июня 2008, 00:19:11 »
Почти...

procedure ParseConnections(HTML : WideString);
var
 curPos, EndPos : Integer;
begin
 curPos := Pos('<font size=2 color=#990000>В каком порядке лучше смотреть эту серию:</font>', HTML);
 if curPos > 0 then begin
  curPos := PosFrom('estimation>', HTML, curPos);
  EndPos := PosFrom('</a>', HTML, curPos); 
  while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
   curPos := curPos + Length('estimation>'); 
   
   AddConnection(Copy(HTML, curPos, EndPos - curPos), '', '', '', '');

   curPos := PosFrom('estimation>', HTML, EndPos);
   EndPos := PosFrom('</a>', HTML, curPos);
  end;
 end;
end;
Мы уже работаем над постановлением по углублению конструктивных мер, принятых в результате консолидации

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #113 : 15 Июня 2008, 00:20:32 »
Понятно, еще раз спасибо.

Оффлайн nostra

  • Администратор
  • *****
  • Сообщений: 2749
    • Personal Video Database
Re: Проблемы и предложения импорта с world-art.
« Ответ #114 : 15 Июня 2008, 00:24:36 »
Весь скрипт со связями и настройкой DOWNLOAD_CONNECTIONS

[вложение удалено Администратором]
Мы уже работаем над постановлением по углублению конструктивных мер, принятых в результате консолидации

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #115 : 15 Июня 2008, 00:32:35 »
Вроде нормально работает!
Проверить успел только на двух аниме.........меня опять заблокировали!
А блокируют они где-то на 2-3 часа......
Так что после сна его полностью протестирую.

Оффлайн nostra

  • Администратор
  • *****
  • Сообщений: 2749
    • Personal Video Database
Re: Проблемы и предложения импорта с world-art.
« Ответ #116 : 15 Июня 2008, 00:34:32 »
Объясняю в чём был прикол:
1. В конце цикла должно быть тоже самое что и перед ним т.е.
   curPos := PosFrom('estimation>', HTML, EndPos);
   EndPos := PosFrom('</a>', HTML, curPos);
  end;

2. Даже если заполняешь только Title, нужно передавать значения во все поля
AddConnection(Copy(HTML, curPos, EndPos - curPos), '', '', '', '');
3. Надо следить чтобы не получилось бесконечного цикла. Если бы было
curPos := PosFrom('estimation>', HTML, curPos) + Length('estimation>');то в
while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begincurPos всегда будет > 0 и если </table> дальше не встречается, то цикл будет работать вечно.
По этому правильно вот так:
 
 curPos := PosFrom('estimation>', HTML, curPos);
  EndPos := PosFrom('</a>', HTML, curPos); 
  while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
   curPos := curPos + Length('estimation>'); 
Мы уже работаем над постановлением по углублению конструктивных мер, принятых в результате консолидации

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #117 : 15 Июня 2008, 00:40:29 »
Понятно, буду знать на будущее.

Оффлайн Tsume

  • Гуру
  • ****
  • Сообщений: 778
  • Я просто иду в Рай
Re: Проблемы и предложения импорта с world-art.
« Ответ #118 : 15 Июня 2008, 00:44:30 »
Ладно, я спать.
Думаю что скрипт нужно уже вывесить на страницу загрузки, а то не все наверное следят за форумом!

Оффлайн nostra

  • Администратор
  • *****
  • Сообщений: 2749
    • Personal Video Database
Re: Проблемы и предложения импорта с world-art.
« Ответ #119 : 15 Июня 2008, 00:53:42 »
Спокойной ночи.

Цитировать
Думаю что скрипт нужно уже вывесить на страницу загрузки, а то не все наверное следят за форумом!

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