Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Непонятный трабл с pos() 
V
    Опции темы
Insert
  Дата 24.1.2007, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1
Здравствуйте, есть хтмл файл, в котором одна таблица и нужно её извлечь оттуда, т.е. все от <table> до </table>, все элементарно, делаю с помощью ф-ии pos, сначала ищу <table>, запоминаю координаты а потом </table>, проблема в том , что он находит либо одно либо другое, вот код процедуры:
Код

procedure ExtractTable(var s: WideString);
 var
    HTML:TStringlist;
    bg,ed:integer; // начало и конец
 begin
  HTML:=TStringList.Create();
  HTML.LoadFromFile(derect+'\CurrentDocument\'+'table.html');
  bg:=pos('table',HTML.Text);
  ed:=pos('</table>',HTML.Text);
  s:=copy(HTML.Text,bg-1,ed+7);
 end;

в этом случае он найдет <table>,а в ed будет конец файла, если поменять местами то наооборот найдет </table>, а 
 файл скопирует с конца smile 
Может есть альтернатива pos, или я с ней криво обращаюсь?
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
Snowy
Дата 24.1.2007, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код

  bg:=pos('<table>', HTML.Text) + 7;
  ed:=pos('</table>', HTML.Text) - bg;
  s:=copy(HTML.Text, bg, ed);


Добавлено @ 16:27 
Цитата(Insert @  24.1.2007,  16:16 Найти цитируемый пост)
pos, или я с ней криво обращаюсь?
криво.
Только не с pos, а с copy.
PM MAIL   Вверх
Bose
Дата 24.1.2007, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51
Есть ещё расширенная версия Pos - PosEx


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
Insert
Дата 24.1.2007, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1
Блин, не пускайте меня больше к монитору smile , всем спасибо.
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0476 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.