Nie określiłeś języka, a uniwersalnie nie umiem inaczej niż tak jak poniżej w Delphi. Kod korzysta z modułu z: http://regexpstudio.com
uses
regexpr;
function CzryMayPodajJezykStary(AinputString : string) : TStringList;
var
R : TRegExpr;
begin
R := TRegExpr.Create;
Result := TStringList.Create;
try
R.Expression := '(.+?)\{(.+?)\}(.+?)';
if R.Exec(AinputString) then
begin
repeat
Result.Add(R.Match[2])
until not R.ExecNext;
end;
finally
R.Free;
end;
end;
Przykład użycia:
Memo1.Lines.Assign(CzryMayPodajJezykStary(Memo1.Text));
EDIT: są oczywiście pewnie inne sposoby, ale to już Tobie musi podać ktoś kto ma RegExpry w małym paluszku, bo ja ogarniam tylko tyle co mi potrzeba, czyli raczej "podstawy podstaw".