Разбивка строки на отдельные слова

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

Автор: Separator
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Разбивка строки на отдельные слова

function StringToWords(const DelimitedText: string; ResultList: TStrings;
Delimiters: TDelimiter = []): boolean - разбивает отдельную строку на
состовляющие ее слова и результат помещает в TStringList

function StringsToWords(const DelimitedStrings: TStrings; ResultList: TStrings;
Delimiters: TDelimiter = []): boolean - разбивает любое количество строк на
состовляющие их слова и все помещяет в один TStringList

Delimiters - список символов являющихся разделителями слов,
например такие как пробел, !, ? и т.д.

Зависимости: Classes
Автор:       Separator, separator@mail.kz, Алматы
Copyright:   Separator
Дата:        13 ноября 2002 г.
***************************************************** }

unit spUtils;

interface

uses Classes;

type
  TDelimiter = set of #0..'я' ;

const
  StandartDelimiters: TDelimiter = [' ', '!', '@', '(', ')', '-', '|', '\', ';',
    ':', '"', '/', '?', '.', '>', ',', '<'];

  //Преобразование в набор слов
function StringToWords(const DelimitedText: string; ResultList: TStrings;
  Delimiters: TDelimiter = []; ListClear: boolean = true): boolean;

function StringsToWords(const DelimitedStrings: TStrings; ResultList: TStrings;
  Delimiters: TDelimiter = []; ListClear: boolean = true): boolean;

implementation

function StringToWords(const DelimitedText: string; ResultList: TStrings;
  Delimiters: TDelimiter = []; ListClear: boolean = true): boolean;
var
  i, Len, Prev: word;
  TempList: TStringList;

begin
  Result := false;
  if (ResultList <> nil) and (DelimitedText <> '') then
  try
    TempList := TStringList.Create;
    if Delimiters = [] then
      Delimiters := StandartDelimiters;
    Len := 1;
    Prev := 0;
    for i := 1 to Length(DelimitedText) do
    begin
      if Prev <> 0 then
      begin
        if DelimitedText[i] in Delimiters then
        begin
          if Len = 0 then
            Prev := i + 1
          else
          begin
            TempList.Add(copy(DelimitedText, Prev, Len));
            Len := 0;
            Prev := i + 1
          end
        end
        else
          Inc(Len)
      end
      else if not (DelimitedText[i] in Delimiters) then
        Prev := i
    end;
    if Len > 0 then
      TempList.Add(copy(DelimitedText, Prev, Len));
    if TempList.Count > 0 then
    begin
      if ListClear then
        ResultList.Assign(TempList)
      else
        ResultList.AddStrings(TempList);
      Result := true
    end;
  finally
    TempList.Free
  end
end;

function StringsToWords(const DelimitedStrings: TStrings; ResultList: TStrings;
  Delimiters: TDelimiter = []; ListClear: boolean = true): boolean;
begin
  if Delimiters = [] then
    Delimiters := StandartDelimiters + [#13, #10]
  else
    Delimiters := Delimiters + [#13, #10];
  Result := StringToWords(DelimitedStrings.Text, ResultList, Delimiters,
    ListClear)
end;

end.

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

StringToWords(Edit1.Text, Memo1.Lines);
StringToWords(Edit1.Text, Memo1.Lines, [' ', '.', ',']);
StringsToWords(Memo1.Lines, Memo2.Lines);
StringsToWords(Memo1.Lines, Memo2.Lines, [' ', '.', ',']); 

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

Это код-snippet на Delphi, который предоставляет две функции: StringToWords и StringsToWords. Эти функции используются для разделения строки на отдельные слова на основе установленного набора знаков препинания.

Описание кода:

1. Первая функция, StringToWords, принимает три параметра:
   • DelimitedText: Входная строка, которую нужно разделить.
   • ResultList: Объект TStrings, в котором будет храниться результат.
   • Delimiters: Опциональный набор символов, которые разделяют слова. Если не указан, он по умолчанию использует предопределенный набор стандартных знаков препинания.
2. Вторая функция, StringsToWords, принимает три параметра:
   • DelimitedStrings: Объект TStrings, содержащий несколько строк, которые нужно разделить.
   • ResultList: Объект TStrings, в котором будет храниться результат.
   • Delimiters: Опциональный набор символов, которые разделяют слова. Если не указан, он по умолчанию использует предопределенный набор стандартных знаков препинания плюс символы новой строки и возврат каретки.

Имплементация использует временный объект TStringList для хранения разделенных строк. Она проходит через входную строку или строки, проверяет нахождение знаков препинания и добавляет соответствующее слово в временный список. Наконец, она присваивает временный список результату, если параметр ListClear равен true, иначе она добавляет слова из временного списка к результату.

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

StringToWords(Edit1.Text, Memo1.Lines);
StringToWords(Edit1.Text, Memo1.Lines, [' ', '.', ',']);
StringsToWords(Memo1.Lines, Memo2.Lines);
StringsToWords(Memo1.Lines, Memo2.Lines, [' ', '.', ',']);

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

В статье описана функция для разбиения строки на отдельные слова в программировании на языке Delphi.

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

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

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