Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.08.2011, 17:11
modeno modeno вне форума
Прохожий
 
Регистрация: 14.08.2011
Сообщения: 2
Репутация: 10
По умолчанию Парсинг

Здраствуйте,есть такая игра как minecraft так вот,есть сервер на котором есть биржа ресурсов тоисть один игрок продает туда другой покупает
вот страницы биржы на сайте :Биржа
Так как все нормальные ресуры там розлетаютса за пару секунд хочу написать програму которая бы выводила окно (ShowMsg) когда продают новый ресур:
Если я не ошибаюсь то должно быть так:Парсинг страницы -> Удаление лишниго -> Вывод изминений через ShowMsg
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
St:WideString;
begin
try
St:=IdHTTP1.Get('http://forum.mcserver.ru/forex.php');
Delete(St,1,pos('<tr><td class="author-row">20</td><td class="author-row"</div></td><td class="author-row">glass</td><td class="author-row"><a href="javascript: show_sell(20);">0.0822657</a></td><td cla',St)+length('td "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"><td class="author-row"><a href="html11</a></td>')-1);
Delete(St,pos('< = "'),length(St));
ShowMessage(St);
except
on e:Exception do
end;
end;
Ответить с цитированием
  #2  
Старый 14.08.2011, 19:41
einstein einstein вне форума
Начинающий
 
Регистрация: 02.09.2010
Адрес: Город
Сообщения: 143
Репутация: -4653
По умолчанию

наверное так: загрузка страницы-обработка страницы-вывод результата.
Ответить с цитированием
  #3  
Старый 18.08.2011, 18:34
modeno modeno вне форума
Прохожий
 
Регистрация: 14.08.2011
Сообщения: 2
Репутация: 10
По умолчанию Так что ктото поможеш?

Так что ктото поможеш?
Ответить с цитированием
  #4  
Старый 18.08.2011, 19:13
einstein einstein вне форума
Начинающий
 
Регистрация: 02.09.2010
Адрес: Город
Сообщения: 143
Репутация: -4653
По умолчанию

Цитата:
Сообщение от modeno
Так что ктото поможеш?
в чем вопрос?
Ответить с цитированием
  #5  
Старый 18.08.2011, 19:26
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Используй РегЭкспы (с).
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:49.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025