Re: Optimising string handling in application

[tmoran@acm.org]

Does this (with its questions answered) do what you want?

  function Replace_Callsign_In_Msg(Msg          : in String;
                                   New_Callsign : in String) return String is
    Eq : constant Positive := Ada.Strings.Fixed.Index(Msg, "ME001=") + 5;
    Semi : Natural;
  begin
    if Eq = 5 then
      -- "ME001=" not present, what to do?
    end if;
    Semi := Ada.Strings.Fixed(Msg(Eq, ";");
    if Semi = 0 then
      -- following ';' missing, what to do?
    end if;
    return Msg(Msg'first .. Eq) & New_Callsign & Msg(Semi .. Msg'last);
  end Replace_Callsign_In_Msg;