请教高手SAS中Split string 的疑难问题

2关注
48粉丝

已卖：4314份资源

副教授

65%

还不是VIP/贵宾

-

0%

威望: 0 级
论坛币: 11512 个
通用积分: 12.7575
学术水平: 72 点
热心指数: 91 点
信用等级: 64 点
经验: 29292 点
帖子: 545
精华: 0
在线时间: 1203 小时
注册时间: 2009-3-10
最后登录: 2024-2-15

楼主

tj0412ymy 发表于 2011-7-27 14:53:26 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原始数据在EXCEL里，第一列是变量string,第二列是变量date；如何将其从单元格分离出来并在SAS DATASET中string和date能够对应显示？在原始数据中变量string的特点是不同的string之间由一个空行分割。
原始数据如下：

BCDSH MDCS

VDC DCCSal TeCS - CSSDn

BCSDd LaSCh CSDCl - CSDical and user CDS

DCSD SDC / Pre-CSDC (CDSCCSDC bCSDC)

2/1/2011

9/1/2010

11/15/2010

1/25/2011

期望得到的SAS DATASET如下：

BCDSH MDCS	2/1/2011
VDC DCCSal TeCS - CSSDn	9/1/2010
BCSDd LaSCh CSDCl - CSDical and user CDS	11/15/2010
DCSD SDC / Pre-CSDC (CDSCCSDC bCSDC)	1/25/2011

扫码加我拉你入群

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

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

分享0 收藏1 回帖

关键词：string tring split 疑难问题 RING EXCEL 如何

本帖被以下文库推荐

· sas of boe|主题: 257, 订阅: 16

沙发

soporaeternus 发表于 2011-7-27 15:56:39

proc import datafile="e:\1.xls" out=a replace;
getnames=no;
run;quit;
data _null_;
set a;
put f1 f2;
x=count(compress(f1),"0A"x);
y=count(compress(f2),"0A"x);
put x y;
do i=1 to
x
/* y*/
;
str1=scan(f1,i,"0A"x);
str2=scan(f2,i,"0A"x);
put str1 str2;
end;
run;

复制代码

提供一个思路，试下来那个分隔符是换行符而非回车符，即16进制为0A。
x和y会取值不一样，以LZ例为12 vs 8
但是用在do循环中结果相同。我估计是因为If there are two or more contiguous delimiters, SCAN treats them as one.——SAS HELP
对于有缺失值数据，该程序失效！

Let them be hard, but never unjust

藤椅

soporaeternus 发表于 2011-7-27 15:57:53

加一个日志，应该是这样，需要精细化，严谨化......
145  proc import datafile="e:\1.xls" out=a replace;
146    getnames=no;
147  run;

NOTE: .A was successfully created.
NOTE: “PROCEDURE IMPORT”所用时间（总处理时间）:
   实际时间       0.34 秒
   CPU 时间       0.21 秒

147!    quit;
148
149  data _null_;
150    set a;
151    put f1 f2;
152    x=count(compress(f1),"0A"x);
153    y=count(compress(f2),"0A"x);
154    put x y;
155    do i=1 to
156       x
157  /*    y*/
158       ;
159       str1=scan(f1,i,"0A"x);
160       str2=scan(f2,i,"0A"x);
161       put str1 str2;
162    end;
163  run;

BCDSH MDCS

VDC DCCSal TeCS - CSSDn

BCSDd LaSCh CSDCl - CSDical and user CDS

DCSD SDC
/ Pre-CSDC (CDSCCSDC bCSDC)
2/1/2011

9/1/2010

11/15/2010

1/25/2011

12 8
BCDSH MDCS 2/1/2011
VDC DCCSal TeCS - CSSDn 9/1/2010
BCSDd LaSCh CSDCl - CSDical and user CDS 11/15/2010
DCSD SDC / Pre-CSDC (CDSCCSDC bCSDC) 1/25/2011

NOTE: 从数据集 WORK.A 读取了 1 个观测。
NOTE: “DATA 语句”所用时间（总处理时间）:
   实际时间       0.00 秒
   CPU 时间       0.00 秒

Let them be hard, but never unjust

板凳

pobel

发表于 2011-7-27 16:05:17

** 只适用与string和date成对出现时；

proc import datafile="c:\files\test.xls" out=test dbms=excel replace;
getnames=no;
delimiter='0A'x;
run;

data test1;
merge test(keep=f1 rename=(f1=string) where=(^missing(string)))
test(keep=f2 rename=(f2=date) where=(^missing(date)));
run;

已有 1 人评分	学术水平	热心指数	信用等级	收起理由
soporaeternus	+ 1	+ 1	+ 1	赞的！

总评分: 学术水平 + 1 热心指数 + 1 信用等级 + 1 查看全部评分

和谐拯救危机

报纸

soporaeternus 发表于 2011-7-27 16:17:16

4# pobel
赞的用法
也查到了DELIMITER的用法

但是为什么我这边会有如下错误，可能小白了,望指教......

5 proc import datafile="e:\1.xls" out=test dbms=excel replace;
NOTE: 上一个语句已删除。
6    getnames=no;
7    delimiter='0A'x;
      ---------
      180
ERROR 180-322: 语句无效或未按正确顺序使用。
8 run;

NOTE: SAS 系统由于错误而停止了该步的处理。
NOTE: “PROCEDURE IMPORT”所用时间（总处理时间）:
   实际时间       0.01 秒
   CPU 时间       0.01 秒

Let them be hard, but never unjust

地板

pobel

发表于 2011-7-27 16:25:27

soporaeternus 发表于 2011-7-27 16:17
4# pobel
赞的用法
也查到了DELIMITER的用法

但是为什么我这边会有如下错误，可能小白了,望指教......

5 proc import datafile="e:\1.xls" out=test dbms=excel replace;
NOTE: 上一个语句已删除。
6    getnames=no;
7    delimiter='0A'x;
      ---------
      180
ERROR 180-322: 语句无效或未按正确顺序使用。
8 run;

NOTE: SAS 系统由于错误而停止了该步的处理。
NOTE: “PROCEDURE IMPORT”所用时间（总处理时间）:
   实际时间       0.01 秒
   CPU 时间       0.01 秒

我也试了delimiter，同样无果。
猜测是不是不适用于dbms=excel。
等待高手指教。。。

和谐拯救危机

7楼

soporaeternus 发表于 2011-7-27 16:41:37

DELIMITER='char' | 'nn'x; for a delimited external file, specifies the delimiter that separates columns of data in the input file......

OH My Lady GAGA......

已有 1 人评分	学术水平	热心指数	信用等级	收起理由
pobel	+ 1	+ 1	+ 1	亮点是"separate columns of data"

总评分: 学术水平 + 1 热心指数 + 1 信用等级 + 1 查看全部评分

Let them be hard, but never unjust

8楼

tj0412ymy 发表于 2011-7-28 19:47:03

soporaeternus 发表于 2011-7-27 15:56
proc import datafile="e:\1.xls" out=a replace;

      getnames=no;

run;quit;

data _null_;

      set a;

      put f1 f2;

      x=count(compress(f1),"0A"x);

      y=count(compress(f2),"0A"x);

      put x y;

      do i=1 to

            x

/*             y*/

            ;

            str1=scan(f1,i,"0A"x);

            str2=scan(f2,i,"0A"x);

            put str1 str2;

      end;

run;
复制代码
提供一个思路，试下来那个分隔符是换行符而非回车符，即16进制为0A。
x和y会取值不一样，以LZ例为12 vs 8
但是用在do循环中结果相同。我估计是因为If there are two or more contiguous delimiters, SCAN treats them as one.——SAS HELP
对于有缺失值数据，该程序失效！

非常感谢热心解答！但不同的String之间所含的"0A"x字符的个数有时不止一个，甚至所有String的末尾也含有这种字符，故将修改后的程序予以共享：

proc import datafile="e:\1.xls" out=a replace;
getnames=no;
run;quit;
proc sort data=a;
by Project_Name;
run;
data bb;
set a;
length str $255. strd $255.;
retain str strd;
by Project_Name;
if first.Project_Name then do; str=' '; strd=' '; end;
x=count(compress(f1),"0A"x);
y=count(compress(f2),"0A"x);
do j=1 to x+2;
str0= scan(f1,j,"0A"x);
if str0 NE NONE then
str=cats(str,'@',str0);
end;
do k=1 to y;
strd0= scan(f2,k,"0A"x);
if strd0 NE NONE then
strd=cats(strd,'@',strd0);
end;
do i=1 to y ;
str1=scan(str,i,'@');
/* if str1 NE NONE THEN*/
str2=scan(strd,i,'@');*ELSE STR2=' '; output;
end;
run;

复制代码

[原创博文] 请教高手SAS中Split string 的疑难问题 [推广有奖]

经管之家送您一份

经管之家联合CDA

感谢您参与论坛问题回答

扫码加我拉你入群

相关帖子

本帖被以下文库推荐

浏览过的帖子

浏览过的版块

初级热心勋章

中级热心勋章

初级信用勋章

初级学术勋章

中级信用勋章

中级学术勋章

高级热心勋章

高级学术勋章

本版微信群

[原创博文] 请教高手SAS中Split string 的疑难问题 [推广有奖]

经管之家送您一份

经管之家联合CDA

感谢您参与论坛问题回答

扫码加我 拉你入群

相关帖子

本帖被以下文库推荐

浏览过的帖子

浏览过的版块

初级热心勋章

中级热心勋章

初级信用勋章

初级学术勋章

中级信用勋章

中级学术勋章

高级热心勋章

高级学术勋章

本版微信群

扫码加我拉你入群