Преобразование строк в массив в Delphi: использование регулярных выражений для работы со словами и цифрами

Delphi , Синтаксис , Массивы

Преобразование строк в массив в Delphi является распространенной задачей, особенно когда нужно работать со строками, содержащими различные символы, такие как знаки пунктуации, пробелы и цифры. В языках программирования, таких как PHP и Java, для этого используются функции explode и tokenizer. В Delphi подход может быть немного другим, но он также вполне осуществим.

Преобразование строки в массив в Delphi

В Delphi для работы со строками и их преобразования в массивы можно использовать различные подходы, включая регулярные выражения. Для начала, стоит отметить, что строка в Delphi по сути является массивом символов, что позволяет легко манипулировать отдельными символами или группами символов.

Использование регулярных выражений

Один из способов преобразования строки в массив слов, игнорируя знаки пунктуации, заключается в использовании регулярных выражений. В Delphi для работы с регулярными выражениями можно использовать компонент TPerlRegEx. Ниже приведен пример кода, который извлекает слова из строки, используя регулярное выражение \w, которое соответствует любым буквам, цифрам или символам подчеркивания.

uses
  System.SysUtils,
  System.RegularExpressions;

function SplitStringToWords(const S: string): TStringList;
var
  Match: TMatch;
  RegEx: TRegEx;
begin
  RegEx := TRegEx.Create(nil);
  try
    RegEx.Compile('\\w+', [rmSingleline, rmIgnorePatternSpace]);
    Result := TStringList.Create;
    try
      while RegEx.Match(S, 0) do
      begin
        Match := RegEx.Match;
        Result.Add(Match.Value);
      end;
    except
      on E: Exception do
      begin
        Result.Free;
        raise;
      end;
    end;
  finally
    RegEx.Free;
  end;
end;

Этот код создает функцию SplitStringToWords, которая принимает строку S и возвращает список строк TStringList, содержащий все слова из исходной строки. Функция TRegEx.Compile подготавливает регулярное выражение к использованию, а цикл while перебирает все совпадения и добавляет их в TStringList.

Альтернативный подход

Если вам необходимо удалить знаки пунктуации из строки, можно использовать следующий метод:

function RemovePunctuation(const Str: string): string;
var
  ActualLength: Integer;
  i: Integer;
  Punct: array of char;
begin
  Punct := ['.', ',', ':', ';', '-', '!', '?'];
  SetLength(result, length(Str));
  ActualLength := 0;
  for i := 1 to length(Str) do
    if not (Str[i] in Punct) then
    begin
      inc(ActualLength);
      result[ActualLength] := Str[i];
    end;
  SetLength(result, ActualLength);
end;

Этот код определяет функцию RemovePunctuation, которая удаляет из строки указанные знаки пунктуации, возвращая новую строку без этих символов.

Преобразование в массив символов

Если вам нужно преобразовать строку непосредственно в массив символов, можно использовать следующий код:

type
  CharArray = array of char;
  TCharSet = set of char;

function RemovePunctuation(const Str: string): CharArray;
var
  ActualLength: Integer;
  i: Integer;
  Punct: array of char;
begin
  Punct := ['.', ',', ':', ';', '-', '!', '?'];
  SetLength(result, length(Str));
  ActualLength := 0;
  for i := 1 to length(Str) do
    if not (Str[i] in Punct) then
    begin
      result[ActualLength] := Str[i];
      inc(ActualLength);
    end;
  SetLength(result, ActualLength);
end;

В этом коде используется тип CharArray для представления массива символов, и функция RemovePunctuation возвращает массив, содержащий только символы, не входящие в список знаков пунктуации.

Заключение

Использование регулярных выражений в Delphi для преобразования строк в массивы может быть очень мощным инструментом, особенно когда требуется обработка текста, включающая игнорирование знаков пунктуации и работу со словами и цифрами. Выбор подходящего метода зависит от конкретных требований вашего проекта.

Создано по материалам из источника по ссылке.

Преобразование строк в массив в Delphi часто требует обработки строк с различными символами, такими как знаки пунктуации и цифры, что возможно с использованием регулярных выражений и других методов.

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

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

:: Главная :: Массивы ::