Регулярные выражения

[UKRtortik]

Как с помощью регулярных выражений получить текст между этими тегами:

class='provider_link_name'>ТЕКСТ</a>

[ZuBy]

Тут и обычный парсинг подойдет. Pos+copy в помощь.

Или это прям необходимо использовать регулярки?

[UKRtortik]

я хотел парсить функцией Pars но возникла проблема,

a:=Pars('class='provider_link_name'>', html.Text, '</a>');

Но из-за такие скобочек: ' '

Код не работает.

[ZuBy]

Удвой их и всё будет работать!

[Shouldercannon]

Давай сюда код, посмотрим что не так.

[UKRtortik]

Сообщение от ZuBy

Удвой их и всё будет работать!

Всмысле, такими сделать: " " ?

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

[ZuBy]

Удвой, а не замени ковычками!

[doktor255]

Всмысле, такими сделать: " " ?

В смысле такие ''. Копипастинг поможет.

[FleXik]

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

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function Pars(T_, ForS, _T:string):string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Pars(T_, ForS, _T: string): string;
var
  a, b:integer;
begin
  Result := '';

    if (T_='') or (ForS='') or (_T='') then
    Exit;

  a:=Pos(T_, ForS);

    if a=0 then
      Exit
    else
      a:=a+Length(T_);

  ForS:=Copy(ForS, a, Length(ForS)-a+1);
  b:=Pos(_T, ForS);

    if b>0 then
    Result:=Copy(ForS, 1, b - 1);

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a:string;
begin
  a:=Pars('class=''provider_link_name''>', Form1.Memo1.Text, '</a>');
  Form1.Memo2.Lines.Add(a);
end;

end.

[UKRtortik]

спасибо!!!