如何在Ada中解析字符串

Question

我有Get_Line的用户输入字符串， 来自用户的输入可以是，每行以新行终止，

1;2;3
4;50;6
7;A;8
1;;7

我如何逐个解析每个字符串以获取字符，整数和';'？

-

由于

Answer 1

Ada中的字符串是数组，因此获得单个字符将是Str(n)

for i in Str'Range loop
  c := Str(i);
  ...
end loop;

在Ada 2012中有广义的for循环

for c of Str loop
  ...
end loop;