Re: Is there an easier way for this?

["Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>]

On 06/21/2015 11:38 AM, Laurent wrote:
> 
> 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.

You could do

Year    : Ada.Calendar.Year_Number;
Month   : Ada.Calendar.Month_Number;
Day     : Ada.Calendar.Day_Number;
Hour    : PragmARC.Date_Handler.Hour_Number;
Minute  : PragmARC.Date_Handler.Minute_Number;
Seconds : PragmARC.Date_Handler.Minute_Duration;

PragmARC.Date_Handler.Split (Year    => Year,
                             Month   => Month,
                             Day     => Day,
                             Hour    => Hour,
                             Minute  => Minute,
                             Seconds => Seconds);

"VITEK2-BCI_" &
PragmARC.Date_Handler.Year_Image_Short (Year) &
PragmARC.Date_Handler.Month_Image_Numeric (Month) &
PragmARC.Date_Handler.Day_Image (Day) &
'_' &
PragmARC.Date_Handler.Hour_Image_24 (Hour) &
PragmARC.Date_Handler.Minute_Image (Minute) &
PragmARC.Date_Handler.Seconds_Image (Seconds) &
'_' &
PragmARC.Images.Image (How_Many) &
".txt";

The PragmAda Reusable Components are at

https://pragmada.x10hosting.com/pragmarc.htm

-- 
Jeff Carter
"Brave Sir Robin ran away."
Monty Python and the Holy Grail
59