gpt4 book ai didi

SAS:删除文件夹中的所有 .txt 文件

转载 作者:行者123 更新时间:2023-12-04 19:39:57 35 4
gpt4 key购买 nike

我需要删除目录中的所有文本文件。以下程序适用于列出的文件 (eg:file.txt),但当我尝试使用 *.txt 时它不起作用。我是不是遗漏了什么或者是否有更好的方法来删除目录中的所有 txt 文件。

data _null_; 
fname = "_files";
rc = filename(fname,"&path\file.txt");
if rc = 0 and fexist(fname) then
rc = fdelete(fname);
rc = filename(fname);
run;

最佳答案

如果您是宏的粉丝.. 下面的代码也应该这样做。

 options mlogic;
%macro delete_all_txt_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,'.')='txt' 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_txt_files_in_folder(C:\try)

关于SAS:删除文件夹中的所有 .txt 文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23160177/

35 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com