В заданном тексте удалить часть текста заключенного в скобки вместе со скобками.

@Возбуждающая · Регистрация: 29.03.2011

В заданном тексте удалить часть текста заключенного в скобки вместе со скобками.

можете программу подправить из архива.

@digim0n · 24.11.2011, 20:09

а не про ще использовать pars+stringreplase?

Delphi

function 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;
 
memo1.text:=StringReplace(memo1.text,'('+ pars('(',memo1.text,')')+')', '',[rfReplaceAll, rfIgnoreCase]);

@Возбуждающая · 24.11.2011, 20:35 **[ТС]**

спасибо, может и проще)) я просто

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

pars+stringreplase

даже незнаю что это) но думаю что разберусь)

@digim0n · 24.11.2011, 20:43

Возбуждающая, pars это функция поиска текста от и до...
а стрингреплейс это замена одного текста на требуемый...

@Возбуждающая · 24.11.2011, 20:59 **[ТС]**

спасибо)

@Возбуждающая 14 / 2 / 2 Регистрация: 29.03.2011 Сообщений: 243
	24.11.2011, 20:35 [ТС]	3
	спасибо, может и проще)) я просто Сообщение от digim0n pars+stringreplase даже незнаю что это) но думаю что разберусь) 0

@digim0n 84 / 84 / 16 Регистрация: 11.11.2011 Сообщений: 259
	24.11.2011, 20:43	4
	Возбуждающая, pars это функция поиска текста от и до... а стрингреплейс это замена одного текста на требуемый... 1

@Возбуждающая 14 / 2 / 2 Регистрация: 29.03.2011 Сообщений: 243
	24.11.2011, 20:59 [ТС]	5
	спасибо) 0

Опции темы