![]() |
|
#1
|
|||
|
|||
![]() Здраствуйте,есть такая игра как 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
|
|||
|
|||
![]() наверное так: загрузка страницы-обработка страницы-вывод результата.
|
#3
|
|||
|
|||
![]() Так что ктото поможеш?
|
#4
|
|||
|
|||
![]() Цитата:
|
#5
|
||||
|
||||
![]() Используй РегЭкспы (с).
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |