|
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. > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.