Re: Base 12 Integer IO

["Steve" <nospam_steved94@attbi.com>]

"Paolo Argenton" <paoloa1@yahoo.com> wrote in message
news:mailman.12.1044286941.3911.comp.lang.ada@ada.eu.org...
Hi all !
I would like to do base 12 Integer IO;
while the following code fragment works
   for I in 0..1488 loop
      Put( I, Width => 3, Base => 12 );

It has 2 drawbacks (for me at least)
1) the output is with leading base number and # i.e. 12#A40# while I would
like to have the raw A40, for instance.
2) width is not fixed, i.e. I would like to have in the output 005 for -say-
number 5 instead of one digit only.
How can I fix these things? Can I do Integer IO to a string, in order to
reformat the string as I desire?
Thanks everybody
Paolo

Here is a small example (that runs and produces the correct result):

WITH Ada.Strings.Fixed;
 USE Ada.Strings.Fixed;
WITH Ada.Strings.Maps;
 USE Ada.Strings.Maps;
WITH Ada.Text_Io;
 USE Ada.Text_Io;
WITH Ada.Integer_Text_Io;
 USE Ada.Integer_Text_Io;
PROCEDURE GetNumString IS

  value : Integer := 42;
  buffer : String( 1 .. 32 );
BEGIN
  Put( buffer, value, 12 );
  DECLARE
    lbSet : Character_Set := To_Set( '#' );
    notLb : Character_Set := NOT lbSet;
    text : String := Tail( Trim( Trim( buffer, notLb, notLb ),
                                 lbSet, lbSet), 4, '0' );
  BEGIN
    Put_Line( text );
  END;
END GetNumString;


Yahoo! Cellulari: loghi, suonerie, picture message per il tuo telefonino