Re: scan to separate path & file

[Jose Perez <joseenocperez.jp@xxxxxxxxx>]

It doesn't matter if your program is SQL or RPG now for this the best
solution is to use %Scan and %Substr, and this the way I would do it
Since your string will contain 3 slashes do %scan in a loop until the
position of the third slashes is found, once you found this position do this
1.  Filename= %Substr(Mystring:Pos+1); Do not use the third Parm (how many
characters to extract) this will make sure you get everything the string
has after pos+1
2.  Path       = %Substr(Mystring:1:Pos); this will extract everything the
string has before the third slash.

On Mon, Sep 19, 2016 at 11:42 AM, Hiebert, Chris <
chris.hiebert@xxxxxxxxxxxxxx> wrote:

> 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.
> --
> 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.