Регулярки

[Mebius]

в модуль регулярок лазал руками?

[VeTaL_UA]

Ramsteins, давай перепишу тебе твои регулярки на Copy Pos Delete?

[Relli]

Mebius, нет.
VeTaL_UA, если сможешь,то ок)

[VeTaL_UA]

Цитата: Сообщение от Ramsteins VeTaL_UA, если сможешь

Чё ж не смогу В аське тебя нету, так что лови здесь.

Функция, что определяет количество повторов строки в строке (самописная, используется для следующей функции):

Код

Вариант №1

function PosX(s2,x:string):integer;
var
k,p,l:integer;
s3:string;
begin
l:=Length(x);
p:=Trunc(Length(s2)/l);
result:=0;
 for k:=0 to p-1 do
  begin
  s3:=Copy(s2,k*l,l+l-1);
   if Pos(x,s3)<>0 then
    begin
    inc(result);
    end;
  end;
end;

Вариант №2 (шустрее)

function PosY(s4,y:string):integer;
var
k,l:integer;
begin
result:=0;
l:=Length(y);
 while k<>0 do
  begin
  k:=Pos(y,s4);
   if k<>0 then
    begin
    inc(result);
    Delete(s4,1,k+l);
    end;
  end;
end;

Сама функция парса:

Код

function Pars(s:string):string;
var
s1,s2:string;
i,j,n,m,o:integer;
begin
i:=5;
j:=5;
n:=0;
o:=Pos('u0040',s);
result:='';
 if o<>0 then
  begin
   repeat
   s1:=Copy(s,Pos('u0040',s)-i,j);
   m:=PosX(s1,'","'); //PosY(s1,'","');
    if m=0 then
     begin
     inc(n);
     end;
    if odd(n) then
     begin
      if m=1 then
       begin
       j:=j+10;
       end
      else
       begin
       i:=i+5;
       end;
     end
    else
     begin
      if m=1 then
       begin
       i:=i+5;
       end
      else
       begin
       j:=j+10;
       end;
     end;
   until m=2;
  s2:=Copy(s1,0,10);
  s1:=Copy(s1,Pos('","',s1)+3,Length(s1)-Pos('","',s1)+3);
  s1:=Copy(s1,0,Pos('","',s1)-1);
  result:=s1;
  end;
end;

Пример использования:

Код

Edit1.Text:=Pars(Memo1.Lines.Text);

P.S. Да, это было сложно написать