Форум по 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;
Ответить с цитированием
 


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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