Тема: Парсинг
Показать сообщение отдельно
  #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;
Ответить с цитированием