Спарсить информацию со страницы [DELPHI]

Code:

var
balance:string;
source:TStringList;


source:=TStringList.create; 
source:=idHttp1.get('site.ru'); //вместо site.ru адрес страницы с балансом
balance:=copy(pos('style="color: red">',source.text)+19,20);
delete(balance, pos('</td>', balance),length(delete)); //в переменной balance будет находиться баланс

писал в блокноте, так что могут быть ошибки

 

вот махом набросал регулярку тут:

Code:

<td class="td_comm td_15px td_bold"([^>]+)">([^<]+)</td>

reg.match[2] - и будет вам нужные параметры

 

procedure TForm1.Button1Click(Sender: TObject);
var
Data, X:TStringList;
pos1,i:integer;
y: string;
begin
Data:=TStringList.Create;
X:=TStringList.Create;
try
Data.Add('login=' + Edit1.Text);
Data.Add('password=' + Edit2.Text);
X.Text:=IdHTTP1.Post('http://stat.chehov.net/', Data);
y:=X.Text;
if Pos('http://stat.chehov.net/support/index.html', X.Text)>0 then
ShowMessage('Àâòîðèçàöèÿ ïðîøëà óñïåøíî!')
else
ShowMessage('Íåïðàâèëüíûé ëîãèí èëè ïàðîëü!');
finally
Data.Free;
X.Free;
begin
Memo1.Lines.Add(X.Text);
for i := 0 to Memo1.Lines.Count - 1 do begin
pos1:=Pos('<td class="td_comm td_15px td_bold" style="color:', Memo1.Lines.Strings);
if (pos1 > 0) then
Edit1.Text:=Memo1.Lines.Strings;
end;

end;
end;
end;

end.

////////////////////
не выносит в мемо..

 

a Memo1.WordWrap:=false не пробовал делать

 

ну если поставил размеры мемо такие как я сказал , оно должно тебе в едит выводить:
<td class="td_comm td_15px td_bold" style="color: red">127,94</td>

 

поставил такие размеры, но не выводит, ща скрин сделаю, что пишет.

 

НУ не пробывал спасиб , буду иметь ввиду))

 

http://i061.radikal.ru/1105/82/9fe4c3bf70e8.jpg

 

Даже не знаю что за хрень..

 

Убери с кода : X.Free;

 

не, всё исправил, ошибка была в расположении присвоения к мемо, кода.

 

теперь в едит копируется:
<td class="td_comm td_15px td_bold" style="color: red">127,94</td>

с пробелами впереди.
надо просто 127,94.
это можно сделать?

 

ну ты леньтяй щас сделаю

 

да извини, если не хочешь можешь не делать)

просто с таким никогда не работал.
чтоб я понял мне примеры нужны, но таковых не нашел.

 

balance:=Memo1.Lines.Strings;
delete(balance, pos('<td class="td_comm td_15px td_bold" style="color:', balance),55);
delete(balance, pos('</td>', balance),5);
Edit1.Text:=balance;

поймешь что куда добавить??

 

щас разберусь, спасибо тебе огроменное)) +++

 

Не за что все я ушел бухать Удачи

 

всё гуд, токо пробелы в начале , и их куча, ща сам конечно попробую что нибудь придумать...

 

balance:=trim(balance);