Re: How to check if letters are in a string?

["Björn Lundin" <b.f.lundin@gmail.com>]

Looks like I managed to mail this to the op instead of post it to c.l.a ...


On 2015-07-18 11:00, Trish Cayetano wrote:
> Is there another way how to check if (exact number of) letters are in
a string?
> Thank you very much!

declare
  My_Letters: string := "HID"
  My_String: string := "HIDDEN"
  Is_In_String : boolean := False;
begin
  for L in My_Letters'range loop
    Is_In_String := False;
    for S in My_String'range loop
      if My_Letters(L) = My_String(S) then
        Is_In_String := True;
        My_String(S) := ' '; --set to space, so letter is not reused
        exit; -- inner loop
      end if;
    end loop;
    exit when not Is_In_String;
  end loop;
  Text_io.put_Line("Is_In_String = "& Is_In_String'Img);
end;



not compiled, not tested but the spirit of it
should do what you want

-- -- Björn

-- 
--
Björn