请问高手如何拆分宏变量，非常感谢！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

例1，
%let str=%str(A,B,C);
希望根据上面语句得到以下几个宏变量：
str1=A；
str2=B；
str3=C；
str=A_B_C；
等式左边是宏变量名称，右边是内容。

例2，
%let str=%str(A B C D);
希望根据上面语句得到以下几个宏变量：
str1=A；
str2=B；
str3=C；
str4=D;
str=A_B_C_D；
等式左边是宏变量名称，右边是内容。

请高手指教，非常感谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：非常感谢 let 如何

%let str1=%scan(&str,1);
%let str2=%scan(&str,2);
%let str3=%scan(&str,3);
%let str=&str1._&str2._&str3;

最后一步，可以使用一些替换函数，如 translate

1. %let nstr=%sysfunc(translate(&str.,%str(_),%str( )));

复制代码

非常感谢楼上两位，但问题是A,B,C,D...的个数不是固定的，所以判断个数和循环是无法避免的，请继续指导，谢谢！

https://bbs.pinggu.org/thread-699918-1-1.html

The link contains everything you needed.

buboy，非常感谢，在程序中找到灵感实现了：）

options MLOGIC MPrint;
%macro splitvars(instr, delim);
%let nub=%sysfunc(countw(&instr, &delim));
%do i=1 %to &nub;
    %global STR&i;
        %let STR&i=%scan(&instr,&i, &delim);
%end;
%global STR;
%LET STR=%sysfunc(translate(&instr,'_',&delim));
%mend splitvars;

%splitvars(&str, ',')