Снова с парсингом запара.

[Den7656]

Подскажите как разобрать на отдельные, имея строку вида:

string:='abc' + 'def';
string:='abc'+'def';

(вторая без пробелов)
получить значения каждой из них, например, чтоб в мемо попадало
abc
def

function parser (const s, s1, s2: string): string; 
var
  iPos, iPosLeft, iPosRight: Integer;
begin
  Result := '';
  iPos := Pos(s1, s);
  if iPos > 0 then
  begin
    iPosLeft := iPos + Length(s1);
    iPos := PosEx(s2, s, Succ(iPosLeft));
    if iPos > 0 then
    begin
      iPosRight := iPos;
      Result := MidStr(s, iPosLeft, iPosRight - iPosLeft);
    end;
  end;
end;

Пробовал так, отправляя каждую строку функции, просто второе значение она ну никак не хочет добавлять в мемо.
спасибо за внимание к посту.

[StartMis]

procedure TForm1.Button1Click(Sender: TObject);
var s, s1, s2:string;  i:integer;  flag1:boolean;
begin

s2:=' ''abc''+''def'' ';
s2:='''abc'' + ''def''';

flag1:=false;
for i:=1 to Length(s2) do
begin

if s2[i]='''' then
if not(flag1) then
flag1:= true
else
begin
flag1:=false;
memo1.Lines.Add(s);
s:='';
end;

if flag1 then
if s2[i]<>'''' then
s:= s+ s2[i];

end;


end;

[Den7656]

Да, это я и сам знаю. Спасибо. Просто этот пример не сработает если между кавычкой и знаком плюс будут разное количество пробелов, или же в какой-нить стороне (слева или справа его (их)) совсем не будет.
Мне нужно именно чтоб парсил переданную строку от кавычки до кавычки и так далее, пока не будет достигнут конец строки.

[Legioner24]

То, что написал StartMis будет работать. Пробелы не играют никакой роли, так как они за кавычками..

[Den7656]

Увы, но..
мне нужно получить все переменные (x1,x2,x3) от строчек разных, например:

[CODE]string:='x1'+ 'x2' + 'x3';
string:='x1' +'x2' +'x3';
string:='x1'+ 'x2' +'x3';
string:='x1' + 'x2' + 'x3';
string:= 'x1' +'x2' +'x3';
string:= 'x1'+'x2' + 'x3';
string:= 'x1'________+________'x2'___+__'x3' ;
string:= 'x1' ________+ 'x2'____+'x3';
string:= 'x1'______ + 'x2'___+'x3';
string:= 'x1'____ + 'x2' + __________ 'x3';

т.e. вместо "_" - пробелы (их форум не прописывает) они могут быть везде и много кроме как внутри кавычек, там у нас находится SNRING, который нам и нужно спарсить...
, а процедура StartMis'a для этого не годится, это не работает, нужен именно парсинг строки, вот только как его реализовать... У мя не получается...

[Sparkman]

function getStrings(text : string; c:char):string;
var res,s : string;
    tmp : integer;
begin
     res := '';
     s := text;
     tmp := pos(c,s);
     while tmp>0 do
     begin
          s := copy(s,tmp+1,length(s)-tmp);
          if pos(c,s)>pos(#13#10,s) then
          begin
               tmp:=pos(#13#10,s);
               s := copy(s,tmp+2,length(s)-tmp);
          end else
          begin
               res := res + copy(s,1,pos(c,s)-1) + #13 + #10;
               tmp := pos(c,s);
               s := copy(s,tmp+1,length(s)-tmp);
          end;
          tmp := pos(c,s);
     end;
     result := res;
end;

c - кавычка
text - ваш текст с кавычками
результат - текст, заключенный в c в одной (!) строке

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

function getStrings(text : string; c:char):string;
var res,s : string;
    tmp : integer;
begin
     res := '';
     s := text;
     tmp := pos(c,s);
     while tmp>0 do
     begin
          s := copy(s,tmp+1,length(s)-tmp);
{          if pos(c,s)>pos(#13#10,s) then
          begin
               tmp:=pos(#13#10,s);
               s := copy(s,tmp+2,length(s)-tmp);
          end else}
          begin
               res := res + copy(s,1,pos(c,s)-1) + #13 + #10;
               tmp := pos(c,s);
               s := copy(s,tmp+1,length(s)-tmp);
          end;
          tmp := pos(c,s);
     end;
     result := res;
end;

[Den7656]

Спасибо, все работает.