Re: Is there an easier way for this?

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 15-06-21 21:38 , Laurent wrote:
> Hi
>
> I need a function which generates some specific file names:
>
> VITEK2-BCI_yymmdd_hhmmss_x.txt
>
> where yymmdd is the current date, hhmmss the current time and x the number of txt files. No idea if x
> actually important.
>
> I have tinkered this together but I find it quite horrible. Is there a more elegant way to do it?
>
>     function Make_File_Name (How_Many : in Positive) return V_String.Bounded_String is
>
>        use V_String;
>
>        File_Name : V_String.Bounded_String:= (+"VITEK2-BCI_");
>        Temp      : V_String.Bounded_String;
>
>        Right_Now : Ada.Calendar.Time := Ada.Calendar.Clock;
>        Y         : Positive := Ada.Calendar.Year (Right_Now) rem 100;
>        M         : Positive := Ada.Calendar.Month (Right_Now);
>        D         : Positive := Ada.Calendar.Day (Right_Now);

(rest of code snipped)

Have you looked at Ada.Calendar.Formatting?

http://www.ada-auth.org/standards/12rm/html/RM-9-6-1.html#I4152

There is an Image function there which shows an Ada.Calendar.Time as 
yyyy-mm-dd hh:mm:ss; you could construct your file name by taking 
suitable substrings.

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
       .      @       .