Re: help with string splitting

[Anders Wirzenius <anders@no.email.thanks.invalid>]

"isaac2004" <isaac_2004@yahoo.com> writes:

You could put in some debugging code:
...
>    Codedtext : Message;   --input - string of coded text
>    Plaintext : Message;   --output - plain text message

Give some initial values to the strings:
   Codedtext : Message := ('1','2','3','4','5','6','7',others => ' ');
   Plaintext : Message := ('1','2','3','4','5','6','7',others => ' ');

Then, in the loops, 
change the relevant position in the input string to 'U' (like "used") and
display the strings in the loops, like:


> 
>    for I in 2..(Length - 1) loop
> 
>       if I REM 2 = 0 then
>          Plaintext(I + 1) := Codedtext(K);

           Codedtext (K) := 'U';

>          K := K + 1;
>       else
>          null;
>       end if;

   Ada.Text_IO.Put_Line ("every odd:  " & Plaintext (1..Length-1) & "|"
   & Codedtext (1..Length-1));


and similar code for the "even" loop

Good luck!

-- 
Anders