world-art.ru (фильмы)

[nostra]

А не больше это похоже на работу с эпизодами? Или я не правильно сейчас пытаюсь сделать?

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

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

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

[Tsume]

Я делаю наверное медленно, только учусь вот такое у меня начало:

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]

Оригинальный текст:

<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]

Похоже на правильный код
Только вот наверное curPos := PosFrom('estimation>', HTML, curPos) + Length('</a>');
Должно быть curPos := PosFrom('estimation>', HTML, curPos) + Length('estimation>');
А вот EndPos := PosFrom('</a>', HTML, curPos);

[Tsume]

Что типа того:

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]

Или я что-то пропустил в конце?

[Tsume]

Или надо вот так:

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]

Почти...

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

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]

Понятно, еще раз спасибо.

[nostra]

Весь скрипт со связями и настройкой DOWNLOAD_CONNECTIONS

[вложение удалено Администратором]

[Tsume]

Вроде нормально работает!
Проверить успел только на двух аниме.........меня опять заблокировали!
А блокируют они где-то на 2-3 часа......
Так что после сна его полностью протестирую.

[nostra]

Объясняю в чём был прикол:
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]

Понятно, буду знать на будущее.

[Tsume]

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

[nostra]

Спокойной ночи.

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

Сделаю завтра уже наверное.