使用SAS

Question

荫与下面的代码试图和我能够删除这是zip格式的文件，但我需要有2岁多的外部文件夹中删除的zip文件，以了解我们如何才可以过滤删除2年的文件。该文件的名称将是SFRE_BIL_SIT_20160812_134317_PAM_FILES1.zip 做过滤删除2岁fiIes我需要集中精力只有年份和月份部分的文件做删除，因为这一天的部分将被改变的时候。请找到下面的代码

options mlogic; 
%macro delete_all_zip_files_in_folder(folder); 
    filename filelist "&folder"; 
    data _null_; 
     dir_id = dopen('filelist'); 
     total_members = dnum(dir_id); 
     do i = 1 to total_members; 
     member_name = dread(dir_id,i); 
     if scan(lowcase(member_name),2,'.')='zip' then do; 
      file_id = mopen(dir_id,member_name,'i',0); 
      if file_id > 0 then do; 
      freadrc = fread(file_id); 
      rc = fclose(file_id); 
      rc = filename('delete',member_name,,,'filelist'); 
      rc = fdelete('delete'); 
     end; 
     rc = fclose(file_id); 
     end; 
     end; 
     rc = dclose(dir_id); 
    run; 
%mend; 


%delete_all_zip_files_in_folder(C:\Users\UCS1MKP\Desktop\test) 

Answer 1

如果您的文件以同样的方式命名 - 3部分代码，那么迄今为止，所有与_分离，您可以使用scan()。您已经使用scan()检查扩展名为zip的文件。你可以这样做，从文件名中提取日期部分，然后解析并转换为数字。

解决方案1 ​​

的member_name第四个单词是年月日部分：

datestring = scan(member_name,4,'_')

前4位为年份：

year = input(substr(datestring,1,4),best.)

然后2位数字为月：

month = input(substr(datestring,5,2),best.)

最后2位数字为天（以防万一，你需要一天）：

day = input(substr(datestring,5,2),best.)

在刚刚结束与实际月份和年份比较：

if month = month(today()) and year = year(today()) then do; 
    *your code for deleting file; 
end; 

但t只会在特定月份工作。要删除2年以上的文件，你可以做如下的事情。

解决方案2

已历经已经全部日期部分构建日期：

date = mdy(month, day, year)

然后将其与实际日期减去2年比较。要改变日期从今天exacly两至三年可应使用intnx()功能

if intnx('year', today(), -2, 'S') > date do; 
    *your code for deleting file; 
end;