Conditionally rename the file

[David_Billa]

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

[PeterClemmensen]

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

[David_Billa]

Yes

[mkeintz]

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?

[David_Billa]

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.

[mkeintz]

By

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);

[David_Billa]

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?

[ChrisNZ]

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

[ChrisNZ]

>  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' );

[ChrisNZ]

 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' );

[David_Billa]

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?

[mkeintz]

---

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