Until we get to v7r2 I'm just doing a Do While loop:
Dcl-s Filename varchar(1024);
Dcl-s rtnval Int(10);
// V7R2::: rtnval = %Scanr('/' : Filename ); :::V7R2
rtnval = %Len(Filename);
Dow rtnval > 0;
If %Subst( FileName : Rtnval : 1 ) = '/';
Leave;
Endif;
rtnval -= 1;
Enddo;
// check directory.
If rtnval > 1;
rtnval -= 1;
If stat( %Subst( Filename : 1 : rtnval ) : DirStat ) =-1;
// No directory - Create it.
Mkdir( %Subst( Filename : 1 : rtnval ) :
S_IRUSR+S_IWUSR+S_IXUSR+
S_IRGRP+S_IWGRP+S_IXGRP+
S_IROTH );
Endif;
Endif;
Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Monday, August 15, 2016 2:15 PM
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Subject: scan to separate path & file
Methinks there is a better way than what I am doing.
I have a string like "home/One/Two/sample.txt" and want to separate it as two strings: "home/One/Two/" and "sample.txt". I will be doing this in an .sqlrpgle program.
Suggestions on approach to this?
--
This is the RPG programming on the IBM i (AS/400 and 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.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
midrange.com
