Подсчет количества слов в строке

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

Автор: Алексей Вуколов
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Подсчет количества слов в строке.

Возвращает количество слов в строке, границы слов определяются в
соответствие с набором разделителей.

Описание параметров:
s - строка, в которой происходит подсчет слов;

Delimiters множество, содержащее символы-разделители слов;

Возвращаемое значение - количество слов

Зависимости: SysUtils, UBPFD.WordScan
Автор:       vuk, vuk@fcenter.ru
Copyright:   Алексей Вуколов
Дата:        18 апреля 2002 г.
***************************************************** }

function CountWords(const s: string; Delimiters: TSysCharSet): integer;
var
  wStart, wLen: integer;
begin
  Result := 0;
  wStart := 1;
  while WordScan(s, wStart, wLen, Delimiters) do
  begin
    inc(Result);
    inc(wStart, wLen);
  end;
end;

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

WordCount := CountWords('This is a sample', [' ']);

Переведенный текст:

В предоставленном коде на Delphi рассчитывается количество слов в заданной строке. Функция CountWords принимает два параметра: строку s и набор символов-разделителей Delimiters. Функция использует функцию WordScan из модуля SysUtils, чтобы найти слова в строке.

Вот разбивка кода:

1. Функция инициализирует переменную результата Result в 0, которая будет хранить количество слов.
2. Она устанавливает начальное положение для сканирования слов в 1 (wStart := 1;).
3. Цикл while повторяется, пока не будут найдены больше слов в строке с помощью функции WordScan.
4. Внутри цикла она увеличивает переменную результата на 1 (inc(Result);) и перемещает начальное положение вперед на длину текущего слова (inc(wStart, wLen);).
5. Пример использования показывает, как использовать функцию CountWords с примерной строкой и разделителями.

Код эффективен и легко понятен. Однако стоит отметить, что он предполагает, что входная строка содержит только символы ASCII. Если вам нужно поддерживать не-ASCII-символы, вы можете рассмотреть использование функций или библиотек, чувствительных к Unicode.

Вот некоторые предложения по улучшению:

• Рассмотрите добавление обработки ошибок для случаев, когда входная строка пуста или набор разделителей пуст.
• Вы можете использовать более описательное имя переменной вместо wLen, чтобы лучше указать ее цель (например, wordLength).
• Если вам интересно только подсчитывать слова, отделенные пробелами, вы могли бы упростить код, используя функцию PosEx, чтобы найти следующий символ пробела.
• Рассмотрите добавление поддержки пользовательских границ слов или болееadvanced текстовых процессинговых функций.

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

Написанная функция в Delphi подсчитывает количество слов в строке, разделяя их по символам-разделителям, указанным в параметре Delimiters.

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

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

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