Trim

Explicación

Trim elimina caracteres de los extremos de Source. Para utilizarlos hay que incluir las librerías que correspondan según el tipo de ristra (Ada.Strings.Bounded, Ada.Strings.Unbounded).

Sintaxis

En lo que sigue, el tipo Ristra representa uno de los dos tipos de ristras (Bounded_String o Unbounded_String), según corresponda.

function Trim (Source : in Ristra;
               Side   : in Trim_End)
  return Ristra;

procedure Trim (Source : in out Ristra;
                Side   : in Trim_End);
function Trim (Source : in Ristra;
               Left   : in Maps.Character_Set;
               Right  : in Maps.Character_Set)
  return Ristra;

procedure Trim (Source : in out Ristra;
                Left   : in Maps.Character_Set;
                Right  : in Maps.Character_Set);

Ejemplo

with Ada.Strings;           use Ada.Strings
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
-- En Strings.Maps se encuentra la función To_Set() 
with Ada.Strings.Maps;      use Ada.Strings.Maps;
...

Din1 : Unbounded_String;
...

Din1 := To_Unbounded_String ("   pedro   ");
Din1 := Trim (Din1, Left);  --  Din1 = "pedro   "
Din1 := To_Unbounded_String ("   pedro   ");
Trim (Din1, Both);  --  Din1 = "pedro"
Din1 := To_Unbounded_String ("agua");
Din1 := Trim (Din1, To_Set("aeiou"),  To_Set("aeiou"));  --  Din1 = "g"
Créditos