0 Пользователей и 12 Гостей просматривают эту тему.
Ты не мог бы мне кинуть небольшую базу (фильмов 20-30) аниме для теста (нужно только названия и урлы)?
Теперь бы скрипт по персонам. А то 2300 персон в ручную я не осилю.........
Будущим пользователям сайта: выкачка сайта c помощью клиентов запрещена, при большом кол-ве запросов Ваш ip-адрес будет заблокирован.
Нет. Можно просто закомментировать разбивку в скрипте или написать её так, чтобы всегда правильная была
//Episodes (*curPos := Pos('<font size=2 color=#990000>Эпизоды:</font>', HTML); if curPos > 0 then begin curPos := PosFrom('<tr><td>', HTML, curPos) + Length('<tr><td>'); EndPos := PosFrom('<br>', HTML, curPos); while (EndPos > 0) AND (EndPos < PosFrom('</td>', HTML, curPos)) AND (EndPos < PosFrom('<b>', HTML, curPos)) do begin Tmp := Trim(Copy(HTML, curPos, EndPos - curPos)); P := Pos('.', Tmp); AddEpisode('', Copy(Tmp, P + 1, Length(Tmp) - P), '', '', '', '1', Copy(Tmp, 1, P - 1)); curPos := EndPos + 4; EndPos := PosFrom('<br>', HTML, curPos); end;*) //Last episode (*EndPos := PosFrom('</td>', HTML, curPos); if EndPos < PosFrom('<b>', HTML, curPos) then begin Tmp := Trim(Copy(HTML, curPos, EndPos - curPos)); P := Pos('.', Tmp); AddEpisode('', Copy(Tmp, P + 1, Length(Tmp) - P), '', '', '', '1', Copy(Tmp, 1, P - 1)); end; end; end;*)
Жанр: приключения, фэнтези
Жанры: фэнтези, приключения