如何在SAS中使用宏循环导入CSV文件？

Question

我正在尝试编写一个SAS宏，该宏通过多个csv文件循环到该库。 不幸的是，我在完成这项工作方面不是很成功。 这是我到目前为止的内容：

%let list = "cat and dogs" "monkeys" "humans";
%macro loop;
%do _i=1 %to %sysfunc(countw(&list.));
%let read_list = %scan(&list., &i.)
    proc import datafile="[path] - &read_list." 
        out=displayfile&read_list. dbms=csv replace;
    run;
%end; 
%mend; 

更新：

我将代码更新为

%macro read; 
%let list = (humans, cats and dogs) ;

%do i= 1 %to 7; 
%let fnames = %scan(&list., &i.); 
    proc import datafile= "path- &fnames..csv" 
        out=&fnames. dbms=csv replace;
    run; 
    %end; 
%mend; 

这适用于以“ humans”结尾的文件，但不适用于以“ cats and dogs”结尾的文件，因为字符串中有空格。 有解决方法吗？

Answer 1

我建议您在列表中使用其他定界符。 像| 不能是文件名的一部分。

%let list =cat and dogs|monkeys|humans;
... %sysfunc(countw(&list,|)) ...
... %scan(&list,&i,|) ...

另一个问题是您需要确保正在生成有效的SAS数据集名称。 最好使用数据集名称中的数字，并将字符串用作标签的一部分。

out=csvfile&i (label="&fnames")

这两个示例的问题是，您要告诉%scan()函数（和countw()函数）使用其默认的定界符字符集。 这些字符在ASCII系统上是哪些：

blank ! $ % & ( ) * + , - . / ; < ^ ¦

因此，在第一个示例中，字符串中唯一的分隔符是空格，因此字符串中的单词为：

"cat
and
dogs"
"monkeys"
"humans"

注意引号是%scan()找到的单词的一部分，因为它们不是定界符。 因此，即使像"humans"这样的值也无法使用，因为它们包含了多余的引号，因此在您尝试使用它们时也无法使用。 将"cat and dogs"分为三个词会增加报价不平衡的问题。

在第二秒钟中，您还有另外三个字符(,) ，它们将被视为定界符，因此这些单词是：

humans
cats
and
dogs

如果您真的想处理以空格分隔的带引号的字符串列表，请告诉%scan()将blank用作分隔符，并添加q修饰符以允许带引号的字符串。 您可能还希望使用dequote()函数从值周围删除引号。

试试这个测试程序，看看如何做。

%macro test(list);
%local i word ;
%do i=1 %to %sysfunc(countw(&list,%str( ),q));
  %let word=%sysfunc(dequote(%qscan(&list,&i,%str( ),q)));
  %put i=&i word=&word;
%end;
%mend test;
%test("cat and dogs" "monkeys" "humans")

Answer 2

我同意最后的答案。 数据集名称必须以字母或下划线开头，后续字符可以是字母，下划线或数字。 列表的名称之一是猫和狗。 我认为运行代码时，您会在日志中看到错误。 但是我在proc导入数据步骤中运行了带注释的最后一个代码，如下所示。

%macro read;

%let list = (humans, cats and dogs);

%do i= 1 %to 7; 

%let fnames = %scan(&list., &i.); 

/*

proc import datafile= "path- &fnames..csv" 

    out=&fnames. dbms=csv replace;

run; 

*/

%put &fnames;


%end; 

%mend; 

%read;

SAS日志显示以下内容：

人类

猫

和

小狗