1


整数配列をマスクとして使用して文字列を分割しようとしています。タスクは単純ですが、ADA (制約) に慣れていません。

これが私のコードです。ファイルに対してテストするときに、1文字のオフセットがある場合を除いて機能します。誰かがこのオフセットを削除するのを手伝ってくれますか? それは私を夢中にさせています。

generic_functions.adb :

package body Generic_Functions is

   -- | Sums up the elements of an array of Integers
   function Sum_Arr_Int(Arr_To_Sum: Int_Array) return Integer is
      Sum: Integer;
   begin
      Sum := 0;
      for I in Arr_To_Sum'Range loop
     Sum := Sum + Arr_To_Sum(I);
      end loop;
      return Sum;
   end Sum_Arr_Int;

   -- | Split up a String into a array of Unbounded_String following pattern from an Int_Array
   function Take_Enregistrements(Decoup_Tab: Int_Array; Str_To_Read: String) return Str_Array is
      Previous, Next : Integer;
      Arr_To_Return  : Str_Array(Decoup_Tab'Range);
   begin
      if Sum_Arr_Int(Decoup_Tab) > Str_To_Read'Length then
     raise Constraint_Error;
      else
     Previous := Decoup_Tab'First;
     Next     := Decoup_Tab(Decoup_Tab'First);
     for I in Decoup_Tab'Range loop
        if I /= Decoup_Tab'First then
           Previous          := Next + 1;
           Next              := (Previous - 1) + Decoup_Tab(I);
        end if;
        Arr_To_Return(I)  := To_Unbounded_String(Str_To_Read(Previous..Next));
     end loop;
     return Arr_To_Return;
      end if;
   end Take_Enregistrements;

end Generic_Functions;

generic_functions.ads :

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

package Generic_Functions is

   -- | Types
   type Int_Array is array(Positive range <>) of Integer;
   type Str_Array is array(Positive range <>) of Unbounded_String;
   -- | end of Types

   -- | Functions
   function Sum_Arr_Int(Arr_To_Sum: Int_Array) return Integer;
   function Take_Enregistrements(Decoup_Tab: Int_Array; Str_To_Read: String) return Str_Array;
   -- | end of Functions

end Generic_Functions;

generic_functions_tests.adb :

with Ada.Text_IO;           use Ada.Text_IO;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

with Generic_Functions;     use Generic_Functions;

procedure Generic_Functions_Tests is

   -- | Variables
   Decoup_Test   : constant Int_Array(1..8) := (11, 19, 60, 24, 255, 10, 50, 255);
   Test_Str_Arr  : Str_Array(Decoup_Test'Range);
   Test_Str_Arr2 : Str_Array(Decoup_Test'Range);
   Test_Str_Arr3 : Str_Array(Decoup_Test'Range);
   --Test_Int      : Integer;
   Test_Handle   : File_Type;
   -- | end of Variables

begin

   Open(Test_Handle, In_File, "EXPORTFINAL.DAT");
   Test_Str_Arr  := Take_Enregistrements(Decoup_Test, Get_Line(Test_Handle));
   Test_Str_Arr2 := Take_Enregistrements(Decoup_Test, Get_Line(Test_Handle));
   Test_Str_Arr3 := Take_Enregistrements(Decoup_Test, Get_Line(Test_Handle));

   for I in Test_Str_Arr'Range loop
      Put_Line(To_String(Test_Str_Arr(I)));
   end loop;

   for I in Test_Str_Arr2'Range loop
      Put_Line(To_String(Test_Str_Arr2(I)));
   end loop;

   for I in Test_Str_Arr3'Range loop
      Put_Line(To_String(Test_Str_Arr3(I)));
   end loop;

   --  for I in Test_Str_Arr'Range loop
   --     Test_Int := To_String(Test_Str_Arr(I))'Length;
   --     Put_Line(Integer'Image(Test_Int));
   --  end loop;


   --  for I in Test_Str_Arr2'Range loop
   --     Test_Int := To_String(Test_Str_Arr2(I))'Length;
   --     Put_Line(Integer'Image(Test_Int));
   --  end loop;

   --  for I in Test_Str_Arr3'Range loop
   --     Test_Int := To_String(Test_Str_Arr3(I))'Length;
   --     Put_Line(Integer'Image(Test_Int));
   --  end loop;

   Close(Test_Handle);

end Generic_Functions_Tests;

そして最後にファイル：

000000000012012-01-01 10:00:00                                                         IBM                     IBM                                                                                                                                                                                                                     COMPAGNIE IBM FRANCE 17 AVENUE DE l'EUROPE     92275                               BOIS-COLOMBES CEDEX                                                                                                                                                                                                                                 CONFIGURATION COMPLETE SERVEUR000000000000000000000019    .6000000000001000000000000000000001000.00000000000000000000000000000196.00000000000000000000000000001196.00000000
000000000022012-01-01 11:00:00                                                   MICROSOFT                     MSC                                                                                                                                                                                                                                 39 QUAI DU PRESIDENT ROOSEVELT     92130                               ISSY-LES-MOULINEAUX                                                                                                                                                                                                                                 AMENAGEMENT SALLE INFORMATIQUE000000000000000000000019.6000000000001000000000000000000001000.00000000000000000000000000000196.00000000000000000000000000001196.00000000
000000000032012-01-01 12:00:00                                                   MICROSOFT                     MSC                                                                                                                                                                                                                                 39 QUAI DU PRESIDENT ROOSEVELT     92130                               ISSY-LES-MOULINEAUX                                                                                                                                                                                                                                                 TESTS SUR SITE000000000000000000000019.6000000000001000000000000000000003226.52000000000000000000000000000632.39792000000000000000000000003858.91792000                                                                                                                                                                                                                                     DELEGATION TECHNICIEN HARD000000000000000000000019.60000000000000000000000000000001.00000000000000000000000000001000.00000000000000000000000000000196.00000000000000000000000000001196.00000000
4

1 に答える 1

1

これらの行:

if I = Decoup_Tab'Last then
   Arr_To_Return(I)     := To_Unbounded_String(Str_To_Read(Previous..Next));
end if;

配列の最後の要素を上書きします。

また、行番号 (00000000001、00000000002 など) が、整数マスクに基づいて分割する文字列の 1 つであることは確かですか? あなたのコードは現在、'11' を 2 回使用しています。1 回は行番号用、もう 1 回は日付フィールド用です。行番号をスキップすると、他の番号がより意味をなすように見えます。

于 2013-06-02T18:40:01.637 に答える