topic Conditionally rename the file in SAS Programming

Conditionally rename the file

David_Billa — Mon, 18 Jan 2021 12:32:14 GMT

I want to scan for files in one shared folder and if file name contains 5601, 6010 or 6020 then I want to rename the file name by adding a string 'copied' before .CSV (e.g. IFR_RIS_1_ACC_5601_1_20200118_copied.csv ). Just don't do anything if filename don't have 5601, 6010 or 6020

File name looks like,

IFR_RIS_1_ACC_5601_1_20200118.csv

Re: Conditionally rename the file

PeterClemmensen — Mon, 18 Jan 2021 12:33:58 GMT

Do you have the code that scans the files in the shared folder in place?

Re: Conditionally rename the file

David_Billa — Mon, 18 Jan 2021 12:41:13 GMT

Yes

Re: Conditionally rename the file

mkeintz — Mon, 18 Jan 2021 15:48:28 GMT

Please show the code for scanning, which is necessary for us to help you do the file renames. And (just in case the code doesn't make it evident) what is the operating system that is being used to store the files?

Re: Conditionally rename the file

David_Billa — Mon, 18 Jan 2021 16:03:13 GMT

We are using windows to keep the files. I can't use OS commands though.
Have to tackle with SAS functions/statements.

As SAS server is down now, I'm unable to show you the code. However you can
point me to any examples which is similar to my post.

Re: Conditionally rename the file

mkeintz — Tue, 19 Jan 2021 01:49:40 GMT

I can't use OS commands though.

I presume you mean you can't use the X "command" statement in SAS.

%macro t2(folder=);
  data _null_;
    rc=filename("mydir","&folder");
    did=dopen("mydir");
    mem_count=dnum(did);

    length fname new_name $64;

    do i=1 to mem_count;
      fname=dread(did,i); 
      copy='no ';
      new_name=' ';
      if countw(fname,'.')>1 and upcase(scan(fname,-1,'.'))='CSV' then do;
       if find(fname,'5601') then copy='yes'; else 
       if find(fname,'6010') then copy='yes'; else 
       if find(fname,'6020') then copy='yes';
       if copy='yes' then do;
         new_name=tranwrd(fname,".csv","_opened.csv");
         rename_rc=rename (cats("&path,/",fname),cats("&path,/",new_name),"FILE");
       end;
      end;
    end;
    rc_close=dclose(did);
  run;
%mend;
options mprint;
%t2(folder=c:\temp);

Re: Conditionally rename the file

David_Billa — Tue, 19 Jan 2021 01:59:13 GMT

Thanks. Hope it works.

Now there is slight change in the requirement. If the file name has
'_copied' then I want to move the files to the target folder. How can we
handle this in your program?

Re: Conditionally rename the file

ChrisNZ — Tue, 19 Jan 2021 02:05:04 GMT

> I want to rename the file name by adding a string 'copied'

You can add something like this to the data step that processes the file names:

 if index(FILENAME,'5601')
  | index(FILENAME,'5610')
  | index(FILENAME,'5620')
  then RC=rename(FILENAME, scan(FILENAME,1,'.') || '_copied.csv', 'file' );

Re: Conditionally rename the file

ChrisNZ — Tue, 19 Jan 2021 02:07:53 GMT

> I want to move the files to the target folder

There is no SAS function to move files under Windows. You need to use fcopy() then fdelete().

Re: Conditionally rename the file

ChrisNZ — Tue, 19 Jan 2021 02:12:02 GMT

if index(FILENAME,'5601') | index(FILENAME,'5610') | index(FILENAME,'5620') then RC=rename(FILENAME, scan(FILENAME,1,'.') || '_copied.csv', 'file' );

This can be shortened to

if prxmatch('/5601|5610|5620/',FILENAME) then RC=rename(FILENAME, scan(FILENAME,1,'.') || '_copied.csv', 'file' );

Re: Conditionally rename the file

David_Billa — Tue, 19 Jan 2021 02:16:13 GMT

Thanks. I got it. But one more question.

If the file name has 'copied' after moving that file to the target folder I
want to rename the filename by removing the string '_copied' from the file
name. How to tackle this with substr and rename function?

Re: Conditionally rename the file

mkeintz — Tue, 19 Jan 2021 03:47:01 GMT

@David_Billa wrote:
Thanks. I got it. But one more question.

If the file name has 'copied' after moving that file to the target folder I
want to rename the filename by removing the string '_copied' from the file
name. How to tackle this with substr and rename function?

Your welcome, but I have one more comment.

I write code like this to help understanding. I try to stop when I am merely being asked to do someone else's job.

The code I provided shows the principle of how to do the new task. Use it and learn. It can be like swimming the Hellespont - difficult but worth it.