Показать сообщение отдельно
  #4  
Старый 17.09.2015, 00:37
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Тупейший вариант:
1) Зачитываем весь файл в буфер
2) Заменяем все #13#10 на 00 00 и сохраняем смещение концов этой фигни в динамический массивчик
3) Ставим указатели-PChar-ы на эти смещения
4) Сохраняем в массив строк, делфа умеет конвертировать pchar-ы в строки.
Получили массив строк. Далее обычным Pos со строкой находим урлы, копируем, делаем trim, убираем кавычки (если есть).
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием