Ada

Question

有没有办法接受用户输入，无论是字符还是无界字符串，并将其转换为小写？

newLine, N: unbounded_string;
M: string(1..26);
len: integer;

new_line; new_line;    
put("What is your favorite color?");
new_line;
put("Answer:");
get_line(newLine);
get_line(M,len);
N := to_unbounded_string(to_lower(M));
put_line(N);

对于我的输入：如果我键入 BLUE，put_line(N); 将 return blue@�hw�

Answer 1

对于Character和固定长度String，有Ada.Characters.Handling.To_LowerRM A.3.2

此外，Wide_Character、Wide_String、Wide_Wide_Character 和 Wide_Wide_String 在 Ada.Wide_Characters.Handling 和 Ada.Wide_Wide_Characters.Handling[=20= 中也存在类似的功能]

Answer 2

with Ada.Strings;
with Ada.Strings.Maps.Constants;
with Ada.Strings.Unbounded;
with Ada.Text_IO;
with Ada.Text_IO.Unbounded_IO;

procedure Change_Case is

   S : Ada.Strings.Unbounded.Unbounded_String;

begin
   Ada.Text_IO.Put_Line("Enter a string: ");
   S := Ada.Strings.Unbounded.To_Unbounded_String(Ada.Text_IO.Get_Line);
   Ada.Text_IO.Unbounded_IO.Put_Line(S);
   Ada.Strings.Unbounded.Translate(S, Ada.Strings.Maps.Constants.Lower_Case_Map);
   Ada.Text_IO.Unbounded_IO.Put_Line(S);
   Ada.Strings.Unbounded.Translate(S, Ada.Strings.Maps.Constants.Upper_Case_Map);
end Change_Case;

Ada - 是否有将字符或无界字符串转换为小写的函数？

Ada - Is there a function to make a character or unbounded string to lower case?