Tokenize a string: Difference between revisions

with Ada.Text_IO, Ada.Containers.Indefinite_Vectors, Ada.Strings.Fixed, Ada.Strings.Maps;

use Ada.Text_IO, Ada.Containers, Ada.Strings, Ada.Strings.Fixed, Ada.Strings.Maps;

procedure tokenizeTokenize is

package String_VectorString_Vectors is new Indefinite_Vectors (NaturalPositive, String); use String_Vector;

s Input : String := "Hello,How,Are,You,Today" & ",";

v Start : Positive := VectorInput'First;

for iwhile inStart s<= Input'rangeLast loop

if s Find_Token (i)Input, =To_Set (','), orStart, iOutside, = s'last thenStart, Finish);

v.appendexit (swhen (currentStart ..> i-1))Finish;

currentOutput.Append :=(Input i(Start +.. 1Finish));

end if Start := Finish + 1;

for sS of v loop put(s & "."); endOutput loop;