将一个字符串拆分为多行 (SAS)

可丽饼

我正在尝试在 SAS 中执行以下操作。

我有一个这样的数据集：

| F2                                  | F3     | PERIOD   |
___________________________________________________________
| Text1(1001) Text2(1002) Text3(1003) |        | 10-02-03 |
| Text4                               | 1004   | 10-02-08 |
| Text5(1005) Text6(1006)             |        | 10-02-12 |
| Text7                               | 1007   | 10-03-01 |

如果有多个值，我想要做的是拆分 F2 列。所以数据集看起来像这样：

| F2                                  | F3     | Period   |
___________________________________________________________
| Text1                               | 1001   | 10-02-03 |
| Text2                               | 1002   | 10-02-03 |
| Text3                               | 1003   | 10-02-03 |
| Text4                               | 1004   | 10-02-08 |
| Text5                               | 1005   | 10-02-12 |
| Text6                               | 1006   | 10-02-12 |
| Text7                               | 1007   | 10-03-01 |

因此括号中的值以 F3 列结尾，而 PERIOD 列保持不变。

我希望有人可以提供帮助。

弗朗西斯科·内梅西

第一个数据步骤模拟输入的前两行，第二个执行您需要的操作。

干杯，弗朗切斯科

data in;
 length f2 $64
        f3 $4
        period $8;
 f2="Text1(1001) Text2(1002) Text3(1003)";
 period="10-02-03";
 output;
 f2="Text4";
 f3="1004";
 period="10-02-08";
 output;
run;

data out;
 length outF2 $16;
 set in;

 noOfBlanks = countc(strip(f2),' ');

 if noOfBlanks then do i=1 to noOfBlanks+1;
    outF2=scan(f2,i," ");
    f3 = prxchange("s/.*\(|\)//",-1,outF2);
    outF2 = prxchange("s/\(.*\)//",-1,outF2);
    output;
 end;
 else do;
    outF2=f2;
    output;
 end;

 drop f2 noOfBlanks i;
 rename outF2 = f2;

run;

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。