Re: RPGLE pgm to parse a string

What about:

/free
   myString = 'THIS_BE_A_TEST_STRING_MATEY!'

   tempIndex = %checkR('_' : myString);
   index2 = %checkR('_' : tempIndex);
 
   // make index1 be the character after the third last '_' (the first 
character you want to extract - hence the +1)
   index1 = %checkR('_' : tempIndex) + 1;


   newString = %subst(myString : index1 : index2 - index1);

/end-free


Hope this helps,
Adam

PS - I hope it was not intended, but the last email seemed awfully 
demanding (to me anyway).  This will generally make people not want to 
help you.





"Stiju Easo" <stiju.as400@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/04/2006 09:21 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: RPGLE pgm to parse a string






Its for searching a string rite
I want to search in reverse of string  ( i could only count sperator while
reading in that direction)
plse help me to reverse the string.

I need it soon

On 4/4/06, Michael_Schutte@xxxxxxxxxxxx <Michael_Schutte@xxxxxxxxxxxx>
wrote:
>
> %checkr
>
> Michael Schutte
> Work 614-492-7419
> email  michael_schutte@xxxxxxxxxxxx
>
>
>
>             "Stiju Easo"
>             <stiju.as400@gmai
>             l.com> To
>             Sent by:                  "RPG programming on the AS400 /
>             rpg400-l-bounces@         iSeries" <RPG400-L@xxxxxxxxxxxx>
>             midrange.com cc
>
> Subject
>             04/04/2006 08:49          Re: RPGLE pgm to parse a string
>             AM
>
>
>             Please respond to
>              RPG programming
>              on the AS400 /
>                  iSeries
>             <rpg400-l@midrang
>                  e.com>
>
>
>
>
>
>
> To be precise how can i reverse a string in RPG,
> I didnt see any inbuilt functions for this
>   then how to do it?
>
>
> On 4/4/06, Stiju Easo <stiju.as400@xxxxxxxxx> wrote:
> >
> >  I have a varible length string, which i should parse for charecter 
'_'
> > from end of it,
> >  Can any one help in this?
> >
> > None of the parsed parts are fixed length,
> >
> > I want to know how can i 1) reverse the string,
> >                                      2) Read charecter by charecter
> >                                      3) add seperated charecter to 
form
> a
> > new string.
> >
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>