RE: Bif or c function with delimeters

/free

StrPos=1;
For I = 1 to %len(mystring);
   EndPos=%Scan(';':mystring:StrPos);
   If (I > 1);
      StrPos=EndPos;
   EndIf;
   MyPgm(%Subst(mystring:StrPos:StrPos-(EndPos-1));
EndFor;

/end-free

Not tested but should give you the general idea...



Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Hatzenbeler, Tim
Sent: Thursday, November 03, 2005 5:35 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: Bif or c function with delimeters


If I have a list of items in a single string ie:
Fred;tom;my house;horse

And I wanted to quickly loop through an unknown amount of items... If
there
a bif or c function, that does this?

1st pass, I would want 'fred'  2nd ='tom' .....

I was thinking about scan, to put the ';' locations in an array, and
loop
through, but I was wondering, if there was anything prettier, that
scanning
the string one character at a time...

Thanks, Tim