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

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

function ReplaceStr(const S, Srch, Replace: string): string;
{замена подстроки в строке}
var
  I: Integer;
  Source: string;
begin
  Source := S;
  Result := '';
  repeat
    I := Pos(Srch, Source);
    if I >
    0 then
    begin
      Result := Result + Copy(Source, 1, I - 1) + Replace;
      Source := Copy(Source, I + Length(Srch), MaxInt);
    end
    else
      Result := Result + Source;
  until I<
  = 0;
end;

Here is the translation of the text into Russian:

Функция Delphi для замены подстроки в строке! Вот разбивка того, что код делает:

Подпись функции

function ReplaceStr(const S, Srch, Replace: string): string;

Функция ReplaceStr принимает три параметра:

• S: входная строка
• Srch: подстрока для поиска
• Replace: строка замены

Возвращает новую строку с замененными подстроками.

Имплементация

var
  I: Integer;
  Source: string;
begin
  Source := S; // инициализируем исходную строку с входной строкой
  Result := ''; // инициализируем результат как пустую строку
  repeat
    I := Pos(Srch, Source); // находим позицию подстроки для поиска в источнике строки
    if I > 0 then // если найдено
    begin
      Result := Result + Copy(Source, 1, I - 1) + Replace; // добавляем часть до совпадения и строку замены к результату
      Source := Copy(Source, I + Length(Srch), MaxInt); // обновляем источник строки, удалив совпавшую подстроку
    end
    else
      Result := Result + Source; // если не найдено, просто добавляем всю источник строку к результату
  until I = 0;
end;

Вот шаг за шагом объяснение: 1. Инициализируем Source с входной строкой S. 2. Инициализируем Result как пустую строку. 3. Пока не найдено больше совпадений (I = 0). 4. Находим позицию подстроки для поиска в текущей Source строке с помощью Pos. Если не найдено, I будет равен 0. 5. Если найдено: * Добавляем часть до совпадения (от начала до I - 1) и строку замены к результату. * Обновляем источник строки, удалив совпавшую подстроку (Source := Copy(Source, I + Length(Srch), MaxInt)). 6. Если не найдено, просто добавляем всю источник строку к результату. 7. Повторяем шаги 4-6, пока не найдено больше совпадений.

Альтернативное решение Пока это реализация работает, можно также использовать регулярное выражение (regex) для достижения того же результата в более компактном виде:

function ReplaceStr(const S, Srch, Replace: string): string;
begin
  Result := RegexReplace(S, Srch, Replace);
end;

Вам нужно добавить unit Regex к вашему uses clause и определить функцию RegexReplace. Это подход может быть более эффективным для больших строк и предлагать более мощные возможности поиска.

Советы

• Чтобы сделать функцию чувствительной к регистру, можно использовать функцию PosEx вместо Pos, например: I := PosEx(Srch, Source, [poCaseInsensitive]).
• Если вы хотите заменить все совпадения подстроки, можно удалить цикл until I = 0 и просто вернуть результат.

Данная статья описывает функцию на языке Pascal для замены подстроки в строке, которая позволяет заменять указанную подстроку на новую подстроку в исходной строке.

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

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

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