Tokenize a string: Difference between revisions
Content added Content deleted
No edit summary |
(Ada) |
||
| Line 1: | Line 1: | ||
{{task}} |
{{task}} |
||
Separate the string "Hello,How,Are,You,Today" by commas into an array so that each index of the array stores a different word. Display the words to the 'user', in the simplest manner possible, separated by a period. To simplify, you may display a trailing period. |
Separate the string "Hello,How,Are,You,Today" by commas into an array so that each index of the array stores a different word. Display the words to the 'user', in the simplest manner possible, separated by a period. To simplify, you may display a trailing period. |
||
==[[Ada]]== |
|||
[[Category:Ada]] |
|||
with Ada.Strings.Fixed; use Ada.Strings.Fixed; |
|||
with Ada.Text_Io; use Ada.Text_Io; |
|||
procedure Parse_Commas is |
|||
Source_String : String := "Hello,How,Are,You,Today"; |
|||
Index_List : array(1..256) of Natural; |
|||
Next_Index : Natural := 1; |
|||
begin |
|||
Index_List(Next_Index) := 1; |
|||
while Index_List(Next_Index) < Source_String'Last loop |
|||
Next_Index := Next_Index + 1; |
|||
Index_List(Next_Index) := 1 + Index(Source_String(Index_List(Next_Index - 1)..Source_String'Last), ","); |
|||
if Index_List(Next_Index) = 1 then |
|||
Index_List(Next_Index) := Source_String'Last + 2; |
|||
end if; |
|||
Put(Source_String(Index_List(Next_Index - 1)..Index_List(Next_Index)-2) & "."); |
|||
end loop; |
|||
end Parse_Commas; |
|||
==[[C plus plus|C++]]== |
==[[C plus plus|C++]]== |
||