Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.01.2011, 20:30   #1
DJ_LINZA
 
Регистрация: 31.10.2009
Сообщений: 3
По умолчанию Парсинг

Помогите пожайлуста !

Есть страница с кодом ... нужно вывести данные выделенные красным цветом в memo
<title>Яблони на 1 участке</title>
<td class=even>Первая яблоня</td>
<td width=160 class=odd><font color=#00ffff>10</font></td>
<td width=200 class=even>Состояние</td>
<td width=160 class=odd><font color=#00ff00>Созрели</font></td>
</tr>
<tr>
<td class=even>Вторая яблоня</td>
<td width=160 class=odd><font color=#00ffff>20</font></td>
<td width=200 class=even>Третья яблоня</td>
<td width=160 class=odd><font color=#00ffff>30</font></td>
</tr>
<tr>Четвертая яблоня</td>
<td width=160 class=odd><font color=#00ffff>-</font></td>
<td width=200 class=even>Пятая яблоня:</td>
<td width=160 class=odd><font color=#00ffff>15</font></td>
</tr>

TITTLE вывел через Copy и Pos ! А эти не пойму как ... Подскажите в какую сторону хотя бы копать ... что использовать !
DJ_LINZA вне форума Ответить с цитированием
Старый 25.01.2011, 21:29   #2
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

Цитата:
Подскажите в какую сторону хотя бы копать ... что использовать !
pos, posex
bulldog5293 вне форума Ответить с цитированием
Старый 26.01.2011, 10:18   #3
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

Цитата:
pos, posex
Ну, если собираетесь серьезно парсингом заниматься, рекомендую изучить регулярные выражения .
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Старый 27.01.2011, 22:56   #4
DJ_LINZA
 
Регистрация: 31.10.2009
Сообщений: 3
По умолчанию

все равно не понимаю как сделать, я делаю каким то деревянным методом

Цитата:
Copy(s, pos('<td width=160', s) + 60, pos('</font></td>', s) - pos('<td width=160', s) -20);
подскажите как правильно надо сделать !
DJ_LINZA вне форума Ответить с цитированием
Старый 28.01.2011, 11:11   #5
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

Код:
StartPos := 1;
repeat
  //Находим маркер начала данных (в конкретном случае '<font color=#00ffff>')
  StartPos := PosEx('<font color=#00ffff>', s, StartPos);
  // находим конец строки, параноидально :)) ищем за маркером (20 - кол символов в маркере) 
  EndPos := posEx('</font></td>', s, StartPos + 20);
  // копируем кусок строки
  Str := Copy(s, StartPos + 20, EndPos - StartPos - 20);
  // перемещаемся на конец текущих данный, чтоб потом искать след. данные
  StartPos := EndPos;
until StartPos = 0;
Идея примерно такова, писал прямо сюда, так что правильность функций и кода не гарантирую .
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Старый 30.01.2011, 23:14   #6
who i
Пользователь
 
Регистрация: 24.01.2011
Сообщений: 18
По умолчанию

А можно такой вопрос что такое парсинг?)
who i вне форума Ответить с цитированием
Старый 31.01.2011, 10:15   #7
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

Цитата:
А можно такой вопрос что такое парсинг?)
Ну именно в контексте этой темы - парсинг, это разбор текстовой информации с целью получения необходимых данных. Как-то вот так .
Ну и wiki парсинг
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг HTML russian-stalker Общие вопросы C/C++ 0 18.12.2010 11:25
Парсинг. igor90 Microsoft Office Excel 1 03.11.2010 02:41
Парсинг XML [Smarik] Общие вопросы Delphi 6 13.03.2010 17:38