Re: help with string splitting

["Jeffrey R. Carter" <spam.not.jrcarter@acm.not.spam.org>]

isaac2004 wrote:
> 
>    Length : Natural := 1; --total size of the encrypted message
>    J      : Integer := 0; --adjusts midpoint for odd and even strings
>    K      : Integer := 2; --counter for the encrypted string

What does it mean for Length to be zero, J to be < 0, or K < 1? It seems Length
and K should be Positive, and J, Natural.

>    while not End_Of_File(File => Indata) loop
> 
>       Get(
>          File => Indata,
>          Item => Codedtext (Length));
>       Length := Length + 1;
> 
>    end loop;

Now Length is the # of characters read + 1.

>    --Reconfigures the length to account for odd or even string lengths
> 
>    if Length REM 2 = 0 then
>       J := 0;
>    else
>       J := 1;
>    end if;

J := Length rem 2;

Do you really want to base this on the length of the input string, which is
Length - 1?

>    for I in 1..(Length - 1) loop
> 
>       Put(Item => Plaintext (I));
> 
>    end loop;

Put (Item => Plaintext (1 .. Length - 1) );

-- 
Jeff Carter
"Brave Sir Robin ran away."
Monty Python and the Holy Grail
59