Изъять подстроку из строки

@aimk0 · Регистрация: 18.04.2010

Author24 — интернет-сервис помощи студентам

Добрый день.
Имеется строка к примеру: STR(MT1,10,0)+STR(Z,3,0) , или STR(MT1,10,0)+STR(Z,3,0)+STR(Zd,3,0) и т.д., любой длины.
Из этого надо получить строку вида MT1+Z, т.е. оставить только первую часть из скобок.
Т.к. значения в скобках могут быть разные, то надо удалять значения от "," до ")". Проблема как раз в реализации удаления от одного символа до другого включительно. Стандартные Copy, pos, delete не помогли.
Или может быть надо не приводить строку к нужному виду, а изъять из нее нужные данные... тоже пока не представляю как это сделать.
Подскажите как бы вы начали это делать

@Санек25 · 12.07.2012, 14:15

pos , copy delete вам в руки... Если не помогли значит неправильно делали... Покажите код

@Puporev · 12.07.2012, 14:39

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
begin
s:='STR(MT1,10,0)+STR(Z,3,0)+STR(Zd,3,0)';
Edit1.Text:=s;
s1:='';
while pos('(',s)>0 do
 begin
  s1:=s1+copy(s,pos('(',s)+1,pos(',',s)-pos('(',s)-1)+'+';
  delete(s,1,pos(')',s));
 end;
s1[length(s1)]:=#0;
Edit2.Text:=s1;
end;

@Arcor · 12.07.2012, 15:08

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var R: TRegExpr;
    S: String;
    OutPut: String;
    i: Integer;
begin
 
  R := TRegExpr.Create;
  R.Expression := '([(](.+?)[,])';
  for i := 0 to Memo1.Lines.Count - 1 do
    begin
      OutPut := '';
      S := Memo1.Lines[i];
      if R.Exec(S) then
      repeat
        OutPut := OutPut + R.Match[2] + '+';
      until not R.ExecNext;
 
      Delete(OutPut, Length(OutPut), Length(OutPut)-1);
      Memo2.Lines.Add(OutPut)
  end;
end;

через регулярное выражение сделал
в мемо1 записываем строки для разбиения, в мемо2 получаем результат

@aimk0 8 / 8 / 1 Регистрация: 18.04.2010 Сообщений: 74
		1
	Изъять подстроку из строки 12.07.2012, 14:08. Показов 2119. Ответов 3 Метки нет (Все метки) Добрый день. Имеется строка к примеру: STR(MT1,10,0)+STR(Z,3,0) , или STR(MT1,10,0)+STR(Z,3,0)+STR(Zd,3,0) и т.д., любой длины. Из этого надо получить строку вида MT1+Z, т.е. оставить только первую часть из скобок. Т.к. значения в скобках могут быть разные, то надо удалять значения от "," до ")". Проблема как раз в реализации удаления от одного символа до другого включительно. Стандартные Copy, pos, delete не помогли. Или может быть надо не приводить строку к нужному виду, а изъять из нее нужные данные... тоже пока не представляю как это сделать. Подскажите как бы вы начали это делать 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	12.07.2012, 14:15	2
	pos , copy delete вам в руки... Если не помогли значит неправильно делали... Покажите код 0

	12.07.2012, 15:08

Изъять подстроку из строки

Решение