Замена подстрок

Delphi , Синтаксис , Текст и Строки

Автор: Сергею Шамайтис

function ReplaceSub(str, sub1, sub2: string): string;
var
  aPos: Integer;
  rslt: string;
begin
  aPos := Pos(sub1, str);
  rslt := '';
  while (aPos <> 0) do
  begin
    rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
    Delete(str, 1, aPos + Length(sub1) - 1);
    aPos := Pos(sub1, str);
  end;
  Result := rslt + str;
end;

Перевод на русский язык:

Это реализация функции ReplaceSub в программном языке Delphi. Функция заменяет все вхождения указанного подстроки (sub1) на другую подстроку (sub2) в заданной строке (str).

Вот шаг за шагом, что код делает:

1. Он инициализирует две переменные: aPos (целочисленная) и rslt (строка).
2. Он устанавливает aPos в позицию первого вхождения sub1 в str, используя функцию Pos.
3. Он вводит цикл, который продолжается до тех пор, пока все вхождения sub1 не будут заменены.
4. Внутри цикла он:
   • Конкатенирует часть str перед текущим вхождением sub1 (до aPos - 1) с rslt.
   • Заменяет текущее вхождение sub1 в str на sub2, используя функцию Delete.
   • Обновляет aPos, чтобы найти следующее вхождение sub1 в str.
5. После цикла он конкатенирует оставшуюся часть str (после всех замен sub1) с rslt и присваивает результат переменной Result.

Функция возвращает модифицированную строку как ее результат.

Пример использования:

var
  str: string;
begin
  str := 'Hello, world! Hello, universe!';
  Result := ReplaceSub(str, 'Hello', 'Greetings');
end;

В этом примере str инициализируется строкой "Hello, world! Hello, universe!". Функция ReplaceSub заменяет все вхождения 'Hello' на 'Greetings', результатом является модифицированная строка "Greetings, world! Greetings, universe!".

Один из возможных улучшений - использовать регулярные выражения (regex) для более сложного поиска и замены. Delphi обеспечивает поддержку regex через встроенный компонент TRegExpr или модуль RegExp. Это позволит выполнять болееadvanced поиски и замен.

Вот пример, как можно переписать функцию ReplaceSub с использованием regex:

function ReplaceSub(str, sub1, sub2: string): string;
var
  re: TRegExpr;
begin
  re := TRegExpr.Create;
  re.Pattern := '(' + sub1 + ')';
  re.Replace(str, sub2);
  Result := re.Value;
end;

В этом примере мы создаем объект TRegExpr и устанавливаем его шаблон на поиск подстроки sub1. Затем мы используем метод Replace, чтобы заменить все вхождения sub1 на sub2, и finally возвращаем модифицированную строку.

В статье описывается функция ReplaceSub на языке Delphi, которая заменяет подстроки в строке с помощью цикла и метода Delete.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::