如何读取每个单词并将其存储到变量中以供使用？

Question

我是 Ada 的新手。语法让我失望。我在 Java 工作了 6 年，这与我们在 java 所做的类似，但我完全无法让它发挥作用。我正在学习使用 learn.adacore.com.

with Ada.Text_IO; Use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;

procedure TextFile is

   F      : File_Type;
   File_Name : constant String := "Store.txt";
begin
   
   Open (F, In_File, File_Name);
   
   while not End_Of_File (F) loop
      Put_Line (Get_Line (F));
   end loop;
   Close (F);
   
end TextFile;

这是我的文本文件 Store.txt

Code    Department  Name/Vendor  Title          ID      Payrate
IL      Sales       John         Sales_person   1378    25.46

Answer 1

如果您不介意不同 Ada 编译器之间的可移植性，您可以使用包 GNAT.String_Split 将整行拆分为分隔字符串值的数组：

with Ada.Text_IO;       use Ada.Text_IO;
with GNAT.String_Split; use GNAT.String_Split;

procedure TextFile is
   File   : File_Type;
   Tokens : Slice_Set;
begin
   Open (File, In_File, "Store.txt");
   -- Skip the file header
   Skip_Line (File);
   -- Read the data
   while not End_Of_File (File) loop
      -- Split the line from the file on array which contains separated
      -- words. Treat multiple spaces as a single separator (don't
      -- create empty elements).
      Create (Tokens, Get_Line (File), " ", Multiple);
      -- Print each of the array's values
      for I in 1 .. Slice_Count (Tokens) loop
         Put_Line (Slice (Tokens, I));
      end loop;
   end loop;
   Close (File);
end TextFile;

如何读取每个单词并将其存储到变量中以供使用？

How do I read each word and store it to a variable to use?

ada