Аналог функции

[Должно быть имя?]

В своё время я написал такую функцию

function shearPosString(const PosA, PosB, str: string): AnsiString;
  function PosAString(const SubStr, s: string; last: Boolean = false): String;
  var
    LenA, LenB, SubStrLen: Integer;
    B: Boolean;
  begin
    SubStrLen := SubStr.Length;
    LenA := s.Length;
    Result := s;
    if last then
    begin
      while (LenA > 0) and (not B) do
      begin
        B := Copy(s, LenA, SubStrLen) = SubStr;
        if B then
          delete(Result, LenA, Result.Length);
        Dec(LenA);
      end;
    end
    else
    begin
      LenB := 0;
      while (LenB <> LenA) and (not B) do
      begin
        B := Copy(s, LenB, SubStrLen) = SubStr;
        if B then
        begin
          if SubStrLen <> 1 then
            LenB := LenB + SubStrLen;

          delete(Result, 1, LenB);
        end;
        inc(LenB);
      end;
    end;
  end;

begin
  Result := AnsiString(PosAString(PosB, PosAString(PosA, str), true));
end;

Есть ли аналог этой функции в самой Delphi(XE7) ? И вдруг как-то можно упростить....


Пример того что она делает

 shearPosString('xxx_e', '.xxx', 'xxx_efewg.xxx') - будет fewg

[Stilet]

Есть ли аналог этой функции в самой Delphi(XE7) ?

Регулярные выражения. А чем эта функция неугодила?

[evg_m]

result:='xxx_efegw.xxx';
result:=StringReplace(result, 'xxx_e', '', [replacell]);
result:=StringReplace('result, '.xxx', '', [replaceall]);

неа ?
Чем разбираться в коде лучше было бы ОПИСАТЬ что делает функция.
По примеру остаются неясности.
1) удалять ВСЕ вхождения/только первое и только последнее.?
2) удалять только в начале и только в конце строк.?

[Должно быть имя?]

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

result:='xxx_efegw.xxx';
result:=StringReplace(result, 'xxx_e', '', [replacell]);
result:=StringReplace('result, '.xxx', '', [replaceall]);

неа ?
Чем разбираться в коде лучше было бы ОПИСАТЬ что делает функция.
По примеру остаются неясности.
1) удалять ВСЕ вхождения/только первое и только последнее.?
2) удалять только в начале и только в конце строк.?

StringReplace точно нет, так -как она удаляет текст из строки
Моя функция удаляет весь текст от начала строки, до "xxx_e" захватывая длину искаемого слова. И точно так же с задней стороны..

[evg_m]

и опять. Есть строка
смотриРАЗсмотриДВАсноваРАЗопятьДВАи тогоРАЗитогиДВАвсего
в качестве фильтра(строк отсечения) задаем
сначала ДВА
и в конце РАЗ !!!

Какой должен быть результат?
Такой строки быть не может! А какая она тогда может быть?

[ZuBy]

function Parse(const Tag1, Tag2, source: string): string;
// uses StrUtils
var
  p, p2: Integer;
begin
  Result := '';
  p := StrUtils.PosEx(Tag1, source);

  p2 := StrUtils.PosEx(Tag2, source, p + Tag1.Length + 1);
  if (p = 0) or (p2 = 0) then
    exit;
  if p2 > p then
    Result := (Copy(source, p + Tag1.Length, p2 - p - Tag1.Length));
end;

пользуюсь своей, она универсальна под любую платформу.
// Parse('xxx_e', '.xxx', 'xxx_efewg.xxx') - будет fewg

[ZuBy]

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

и опять. Есть строка
смотриРАЗсмотриДВАсноваРАЗопятьДВАи тогоРАЗитогиДВАвсего
в качестве фильтра(строк отсечения) задаем
сначала ДВА
и в конце РАЗ !!!

Какой должен быть результат?
Такой строки быть не может! А какая она тогда может быть?

результат моей функции будет "снова"

[JUDAS]

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

[CODE]
пользуюсь своей, она универсальна под любую платформу.
// Parse('xxx_e', '.xxx', 'xxx_efewg.xxx') - будет fewg

Советчик, не пиши никогда эту фразу.

Проверил на делфи 7, сменив универсальность кода с Tag1.Length на Length(Tag1)

implementation
uses StrUtils;

{$R *.dfm}


function Parse(const Tag1, Tag2, source: string): string;
var
  p, p2: Integer;
begin
  Result := '';
  p := PosEx(Tag1, source);

  p2 := PosEx(Tag2, source, p + Length(Tag1) + 1);
  if (p = 0) or (p2 = 0) then
    exit;
  if p2 > p then
    Result := (Copy(source, p + Length(Tag1), p2 - p - Length(Tag1)));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Parse('','дуб', 'столетний дуб');
end;

в заголовке "пустота"
Вопрос, в чём универсальность?

[JUDAS]

Сообщение от Должно быть имя?

StringReplace точно нет, так -как она удаляет текст из строки
Моя функция удаляет весь текст от начала строки, до "xxx_e" захватывая длину искаемого слова. И точно так же с задней стороны..

Автор, а ты не удаляй с исходного текста

function shearPosString(const PosA, PosB, str: string): AnsiString;
begin
  result := AnsiReplaceText(str, PosA, '');
  result := AnsiReplaceText(result, PosB, '');
end;

в результате, и str "цел", и result "сыт"


попробуй вот этот

function shearPosString(const PosA, PosB, str: string): AnsiString;
var p : integer;
begin
  result :=  str;
  if (PosA<>'') and (pos(PosA,str)=1) then
   Delete(result, 1, length(PosA));
  if (PosB<>'') then
  begin
    p := pos(PosB,result);
    if (p+Length(PosB)=Length(result)+1) then
     Setlength(result, p-1);
  end;
end;

[ResourceSpace]

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

результат моей функции будет "снова"

Вообще-то не верно Запустил код автора на Д7, выдало "новаРАЗопятьДВАи того", почему-то без "с".
В Д7 подобных функций не встречал.

И я бы посоветовал назвать функцию более понятно, аля strCopyBetween(), и последний параметр сделал бы первым.