主页 / coding / 问题 / 77029847
Accepted
LuizZ
Asked: 2023-09-03 03:59:43 +0800 CST

如何将 SAS 中字符串变量的最后 11 个字符提取到新变量中（仅当它们是数字时）

  • 772

我有一个数据集，其中包含带有公司名称的变量。有时，这些公司名称的最后 11 个字符包含个人 ID。

所以我想用最后 11 个字符创建一个新变量，并且仅当它们是数字时才保留它。

这是我的数据集的示例：

DATA have;
  INPUT CompanyName;
  DATALINES;
ASASD FSFASD ASDFASDFASD
ASDFAS ADFASDF FDAFADFADF 01232143211
ADAFSAD ADSFASDF 03331286532
LKJLKJK KLKJKJL
LLKJLKJ FDAFASDF 75423243211
;
RUN;

我想要一个新变量，其中第 1 行和第 4 行缺少值，第 2、3 5 行缺少最后 11 个数值 ( 01232143211, 03331286532, 75423243211)。

我尝试了什么？

PROC SQL;
   CREATE TABLE WANT AS 
   SELECT 
       CompanyName,
       case when prxmatch('/^\d{11}$/', substr(CompanyName, length(CompanyName) - 10)) > 0 
               then substr(CompanyName, length(CompanyName) - 10) 
               else "" end as ID_OWNER,
      FROM have;
QUIT;

但我有一个新变量，其中包含所有缺失值。

sas

1 个回答

  1. Best Answer

    使用 SAS 代码而不是 SQL 代码更容易完成。

    首先确保创建示例数据的数据步骤确实有效。

    data have;
  input CompanyName $50. ;
datalines;
ASASD FSFASD ASDFASDFASD
ASDFAS ADFASDF FDAFADFADF 01232143211
ADAFSAD ADSFASDF 03331286532
LKJLKJK KLKJKJL
LLKJLKJ FDAFASDF 75423243211
;

    然后，如果字符串足够长，有 11 个字符，则取出最后 11 个字符并确保它们都是数字。

    data want;
  set have;
  length id $11 ;
  if length(companyname) > 11 then do;
    id = substr(companyname,length(companyname)-10);
    if verify(id,'0123456789') then id=' ';
  end;
run;

    结果

    Obs    CompanyName                                  id

 1     ASASD FSFASD ASDFASDFASD
 2     ASDFAS ADFASDF FDAFADFADF 01232143211    01232143211
 3     ADAFSAD ADSFASDF 03331286532             03331286532
 4     LKJLKJK KLKJKJL
 5     LLKJLKJ FDAFASDF 75423243211             75423243211

    您可能还想删除存在的 id 值。因此，请在最后一个 IF 语句之后添加此 ELSE 语句。

    else companyname = substr(companyname,1,length(companyname)-11);

    结果

    Obs    CompanyName                      id

 1     ASASD FSFASD ASDFASDFASD
 2     ASDFAS ADFASDF FDAFADFADF    01232143211
 3     ADAFSAD ADSFASDF             03331286532
 4     LKJLKJK KLKJKJL
 5     LLKJLKJ FDAFASDF             75423243211
    • 1

相关问题