Парсинг сайта

UTF8Encode

ssilka4:=('http://'+Edit3.text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalClan');
  Listbox1.Items.text:=idhttp1.Get(ssilka4);
  s4:=Copy(ssilka4,Pos('clan-info-2nd',ssilka4)+1,Length(ssilka4));
  Delete(s4,Pos('</div>',s4),Length(s4));
   if Pos('clan-info-2nd', ssilka4)<>0 then
 memo1.Lines.Add('Ошибка!')
 else
  memo1.Lines.Add('Всё норм:'+(s4));

s4 := copy(ssilka4, pos('clan-info-2nd', ssilka4) + 1, length(ssilka4));

var
  p1, p2: Integer;
  //...
begin
  p1 := pos('clan-info-2nd', ssilka4);
  p2 := pos('</div>', ssilka4);
  If (p1 > 0) and (p2 > 0) then
    begin
      p1 := p1 + length('clan-info-2nd');
      // вполне вероятно, в третьем параметре единичку и не надо прибавлять:
      s4 := copy(ssilka4, p1, p2 - p1 + 1);
    end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
RegExp: TRegExpr;
begin
 RegExp := TRegExpr.Create;
 RegExp.InputString := 'bla bla <div class="clan-info-2nd">Бебебе</div> bla bla';
 RegExp.Expression := '<div class="clan-info-2nd">(.*?)<';
 if RegExp.Exec then
 begin
  ShowMessage(RegExp.Match[1]); {"Бебебе"}
 end
 else
 begin
  ShowMessage('Ошибка');
 end;
 RegExp.Free;
end;

procedure TForm1.Button7Click(Sender: TObject);
var  RegExp: TRegExpr;
ssilka5: string;
begin
 listbox1.Clear;
  ssilka5:='http://'+Edit3.text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab';
  listbox1.Items.text:=Utf8ToAnsi(idhttp1.Get(ssilka5));
  RegExp := TRegExpr.Create;
 RegExp.InputString := 'Delphi <span class="ore_prometium">Прометиум:</span><br/>105.600</div> ';
 RegExp.Expression := 'ore_prometium">(.*?)</span><br/>(.*?)</div>';
 if RegExp.Exec then
 repeat
  Listbox3.Items.add(RegExp.Match[1]);
 until not RegExp.ExecNext;
 RegExp.Free;
 end;

procedure TForm1.Button7Click(Sender: TObject);
var  RegExp: TRegExpr;
ssilka5: string;
begin
 listbox1.Clear;
  ssilka5:='http://'+Edit3.text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab';
  listbox1.Items.text:=Utf8ToAnsi(idhttp1.Get(ssilka5));
  RegExp := TRegExpr.Create;
 RegExp.InputString := 'Delphi <span class="ore_prometium">Прометиум:</span><br/>105.600</div> ';
 RegExp.Expression := 'ore_prometium">(.*?)</span><br/>(.*?)</div>';
 if RegExp.Exec then
 repeat
  Listbox3.Items.add(RegExp.Match[1]); {Прометиум}
  Listbox3.Items.add(RegExp.Match[2]); {105.600}
 until not RegExp.ExecNext;
 RegExp.Free;
 end;

reg.Expression:='(class="good_panel">)(.+?)(</div>)';

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls, RegularExpressions;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    IdHTTP1: TIdHTTP;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  s:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=idhttp1.Get(edit1.Text);
memo1.Text:=s;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  Reg: TRegEx;
  M: TMatchCollection;
  i:integer;
  begin
  Reg := TRegEx.Create(Edit2.Text,[roIgnoreCase, roMultiLine]);
  if Reg.IsMatch(s) then
  begin
    M:=Reg.Matches(Memo1.Lines.Text);
    for i := 0 to M.Count-1 do
    begin
     Memo2.Lines.Add(M[i].Groups.Item[1].Value+' '+M[i].Groups.Item[2].Value)
    end;
  end;
end;
 
 
end.

reg:TRegExpr;
.............
reg:=TRegExpr.Create;
reg.Expression:='шаблон регулярки';
if reg.Exec(твой html код) then begin
// тут делай все что нужно с результатом, он будет в reg.Match[2] (если ты мой шаблон будешь применять)

RegExp.Expression := 'ore_prometium">(.*?)</span><br/>(.*?)</div>';

procedure TForm1.Button2Click(Sender: TObject);
  var  reg:TRegExpr;
begin
reg:=TRegExpr.Create;
reg.Expression:='(<td class="labels")[>]([^<]+)(.+?)(<td class="values">)([^<]+)|(<td class="labels"><a)[^>]+[>]([^<]+)(.+?)(<td class="values">)([^<]+)';
if reg.Exec(ListBox1.Items.text) then
repeat
if reg.Match[2]<>'' then
Memo1.Lines.add(reg.Match[2]+' - '+reg.Match[5])
else
Memo1.Lines.add(reg.Match[7]+' - '+reg.Match[10]);
until not reg.ExecNext;
 
reg.Free;
end;

reg.Expression:='(<td class="labels")[>]([^<]+)(.+?)(<td class="values">)([^<]+)|(<td class="labels"><a)[^>]+[>]([^<]+)(.+?)(<td class="values">)([^<]+)';