Разбиваем строку на слова. Часть 2

4 минуты на чтение

В первой части я рассказал, как можно разбить строку на слова, числа, в общем на подстроки, которые находятся между пробелами в строке. Так вот как я уже говорил, первый метод не совсем быстрый и не совсем стабильный. Поэтому я пишу про статью про TParser - это класс, как я уже говорил, предназначен для разбора строки на слова, целочисленный данные, вещественные данные и многое другое. Этот класс поможет Вам разобрать математическое выражение и в нужном порядке выполнить его, конечно не получится «мего«-крутое выражение разобрать, но небольшие вполне.

На форме у меня следующие компоненты
  • TButton
  • TEdit
  • TListBox

Тут есть еще одно но, то, что TParser работает только с потоковыми данными, то есть с TStream. Но проблемы в потоковую переменную записать текст труда не составит, поэтому нам необходимо сначала ее создать, затем загрузить в TParser и начать работать.

На событие OnClick кнопки я написал следующий код

procedure TForm1.Button1Click(Sender: TObject);
var
 s:String;
 Stream:TStream;
 Parser:TParser;
begin
   try
    s:=Edit1.Text;
    Stream:=TMemoryStream.Create;
    Stream.WriteBuffer(s[1],length(s));
    Stream.Position:=0;
    Parser:=TParser.Create(Stream);
    while Parser.Token<>toEOF do
     begin
      if Parser.Token=toSymbol then
       ListBox1.Items.Add(Parser.TokenString);
      Parser.NextToken;
     end;
   except
    on e:Exception do
   end;
end;

Как я и говорил, создается переменная потоковая, затем обязательно в ее позиции необходимо установить в 0. Далее мы создаем наш TParser и при создании загружаем в него нашу потоковую переменную. Далее у нас идет цикл, toEof - означает пока не конец потоковой переменной. Token - это наши подстроки, которые добавляются в TListBox. NextToken - переходит к следующей подстроке. TokenString - это тип нашей подстроки, которую мы добавляем. Данный пример добавляет только текстовые подтсроки.

Например строка

  • 111 hello 222

В результате в TListBox будет «hello«, если нам надо разбить строку только на числа, то код будет следующим

procedure TForm1.Button1Click(Sender: TObject);
var
 s:String;
 Stream:TStream;
 Parser:TParser;
begin
   try
    s:=Edit1.Text;
    Stream:=TMemoryStream.Create;
    Stream.WriteBuffer(s[1],length(s));
    Stream.Position:=0;
    Parser:=TParser.Create(Stream);
    while Parser.Token<>toEOF do
     begin
      if Parser.Token=toInteger then
       ListBox1.Items.Add(IntToStr(Parser.TokenInt));
      Parser.NextToken;
     end;
   except
    on e:Exception do
   end;
end;

То есть из строки

  • 111 hello 222 333

Добавиться 111 222 333. Если необходимо разбить на все подстроки, хоть там и слова и числа, то просто необходимо убрать условие на проверку входимости в ту или иную подстроку определенного типа и код будет следующим

procedure TForm1.Button1Click(Sender: TObject);
var
 s:String;
 Stream:TStream;
 Parser:TParser;
begin
   try
    s:=Edit1.Text;
    Stream:=TMemoryStream.Create;
    Stream.WriteBuffer(s[1],length(s));
    Stream.Position:=0;
    Parser:=TParser.Create(Stream);
    while Parser.Token<>toEOF do
     begin
      ListBox1.Items.Add(Parser.TokenString);
      Parser.NextToken;
     end;
   except
    on e:Exception do
   end;
end;

Как видите скорость при больших объемах увеличиться для обработки этих данных, а при первом методе будет совсем маленькой. Также кода намного меньше написано, что тоже есть хорошо.

Facebook Vk Ok Twitter LinkedIn Telegram

Похожие записи:

В этой теме хотел бы рассказать как можно разбить строку, состоящую например из слов, чисел разбить отдельно, например положить их в массив. Тут все очень просто, тот же самый парсинг данных, только в более упрощенной форме, да и то как такового парсинга нету,...
Ну вот не долго думая, подошла вторая часть по работе с ADO в DELPHI на примере БД — MS Excel. В данной статье мы рассмотрим добавление и редактирование данных, так как с удалением тут возникли проблемы, в связи с тем, что данный драйвер не поддерживает удален...
Ну вот наконец-то, мы добрались и до отправке sms-сообщений через sms-шлюз средствами Delphi. Теоретическую часть sms-шлюза мы знаем, а также знаем как отправлять email-сообщения средствами Delphi. Это нам все и пригодится в данной статье. Давайте вспомним, чт...