6# funwin

为什么在excel表格里日期和其他数字在一个column里？难道日期是column name？

7# jingju11

原始数据下载后 就是如此

现在 我已经 将 每一个变量的 excel 表格 都 转换成sas 表格了，

也就是说 这两个表格已经是sas 格式的表格了
VARIABLE 1        1999-1-30        1999-2-29        1999-3-31        ……
Com1        0.9        0.2        0.7        ……
Com2        0.4        0.5        0.3        …….
Com3        0.88        0.89        0.92        …….
…….                               

VARIABLE 2        1999-1-30        1999-2-29        1999-3-31        …..
Com1        12        34        54        …..
Com2        66        76        63        …..
Com3        7        9        2        …..
……                               

但 怎么才能 把它们 合并到一起 成为 如下的sasn表格?
Name        Date        Variable 1        Variable 2
Com1        1999-1-30        0.9        12
Com1        1999-2-29        0.2        34
Com1        1999-3-31        0.7        54
Com2        1999-1-30        0.4        66
Com2        1999-2-29        0.5        76
Com2        1999-3-30        0.3        63
Com3        1999-1-30        0.88        7
Com3        1999-2-29        0.89        9
Com3        1999-3-30        0.92        2
……….        ……….        ……..        ……..

望高手指教!

其实 2楼 的 程序 相当不错 ， 初步实现了我的目的。
唯一遗憾的就是  我的数据太多 不能一一用手工输入。
或者 能否将excel 转化成sas 再转化成txt 格式， 在将要输入的值 copy 到 程序中， 从而实现 把值 全部输入的目的？ 或者 还是其他什么方法？

10# funwin
也就是说 这两个表格已经是sas 格式的表格了
VARIABLE 1 1999-1-30 1999-2-29 1999-3-31 ……
Com1 0.9 0.2 0.7 ……
Com2 0.4 0.5 0.3 …….
Com3 0.88 0.89 0.92 …….

也就是说，在sas表里，红色的一行是sas 的变量名。对吧

11# jingju11

PROC IMPORT OUT= WORK.tab1
            DATAFILE= "C:\Documents and Settings\desheng\My Files\Book1.xls"
            DBMS=EXCEL REPLACE;
     RANGE="Sheet1$";
     GETNAMES=YES;
     MIXED=NO;
     SCANTEXT=YES;
     USEDATE=YES;
     SCANTIME=YES;
RUN;
PROC IMPORT OUT= WORK.tab2
            DATAFILE= "C:\Documents and Settings\desheng\My Files\Book2.xls"
            DBMS=EXCEL REPLACE;
     RANGE="Sheet1$";
     GETNAMES=YES;
     MIXED=NO;
     SCANTEXT=YES;
     USEDATE=YES;
     SCANTIME=YES;
RUN;
data tab1_;
set tab1;
array dt{*} _:;
do i=1 to dim(Dt);
  company=variable_;
  date_=input(substrn(vname(Dt{i}),2), yymmdd10.);
  var1=dt{i};
  output;
end;
format date_ date9.;
keep company date_ var1;
run;
data tab2_;
set tab2;
array dt{*} _:;
do i=1 to dim(Dt);
  company=variable_;
  date_=input(substrn(vname(Dt{i}),2), yymmdd10.);
  var2=dt{i};
  output;
end;
format date_ date9.;
keep company date_ var2;
run;
proc sort data=tab1_;by company date_;
run;
proc sort data=tab2_;by company date_;
run;
data all;
merge tab1_ tab2_;
by company date_;
run;

12# jingju11

非常感谢！用您的方法 可以解决问题了！ 并且用你的数据也可以得出结果。 但是 用的我自己的数据上，怎么第一列 第二列 都是缺失值  只有第三列 才有数值？
估计是 数值的 格式 问题。
附上 我的数据book1（截取部分），希望 能帮我看看 为什么 我的数据就 得不出结果呢？

又调整了一下 可以出现 第一列公司代码  但是 第二列 日期 还是确实值
是否是日期格式问题？或者 这个语句不适合
date=input(substrn(vname(dt{i}),2), yymmdd10.);

又发现 日期只有在2000-01-31以后的数据可以显示出来， 之前的数据 是缺失值， 为什么？？
code        date        ret
902792                -0.028168912
902792                -0.144926998
902792                0.338981578
902792                0.164556428
902792                -0.163043024
902792                -0.090908788
902792                -0.157142282
902792                -0.033898158
902792                -0.017543781
902792                0
902792                0.071428244
902792                0.099999573
902792                0
902792                0.030302913
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792                0
902792        2000-1-31        0
902792        2000-2-29        0
902792        2000-3-31        0
902792        2000-4-28        0
902792        2000-5-31        0
902792        2000-6-30        0
902792        2000-7-31        0
902792        2000-8-31        0
902792        2000-9-29        0
902792        2000-10-31        0
902792        2000-11-30        0
902792        2000-12-29        0
902792        2001-1-31        0
902792        2001-2-28        0
902792        2001-3-30        0
902792        2001-4-30        0
902792        2001-5-31        0
902792        2001-6-29        0
902792        2001-7-31        0
902792        2001-8-31        0
902792        2001-9-28        0
902792        2001-10-31        0
902792        2001-11-30        0
902792        2001-12-31        0
902792        2002-1-31        0
902792        2002-2-28        0
902792        2002-3-29        0
902792        2002-4-30        0
902792        2002-5-31        0
902792        2002-6-28        0
902792        2002-7-31        0
902792        2002-8-30        0
902792        2002-9-30        0
902792        2002-10-31        0
902792        2002-11-29        0
902792        2002-12-31        0
902792        2003-1-31        0
902792        2003-2-28        0

13# funwin

sorry, that is my fault.
我假设你的return 类似于以前的company。
*读入excel数据；
PROC IMPORT OUT= WORK.tab
            DATAFILE= "C:\YourBook.xls" *your excel table;
            DBMS=EXCEL REPLACE;
     RANGE="Sheet1$";
     GETNAMES=YES;*第一行留作sas变量名；
     MIXED=NO;
     SCANTEXT=YES;
     USEDATE=YES;
     SCANTIME=YES;
RUN;

data tab_;
set tab;
array dt{*} _:;*因为读入的变量以在excel中以数字开头，sas缺省性地改变第一个数字为‘_', 这也是为什么可以方便地用'_:'(以'_'开头的所有变量),也就是说在此数据里如果一些无关的变量也以’_'开头,就会有错误；
do i=1 to dim(Dt);
  company=return;*company只是名字，随便叫；
  date_=input(substrn(vname(Dt{i}),3), yymmdd10.);*应该从第三个字母截起，也是我上面的错误；
  var=dt{i};
  output;
end;
format date_ date9.;
keep company date_ var;*只保留你感兴趣的；
run;

*since your excel tables are similar, it should be better to use a macro rather than repeatedly use similar data steps and import procedures，to tackle this problem;
on the other hand, writing that one by one is readable and doable;

14# funwin

hehe, you are good; you already caught my mistake.

终于搞定了 非常感谢jungju11.
能否详细 解释一下 为什么 从第三个字母截起 和 从第二个截起 有这么不同呢？
再次感谢！！！

for example, in Excel 2000-1-31-->in SAS _001_1_31-->after substrn function from postion 2-->001_1_31, SAS takes (assumes) it as 01_1_31, which can be read by SAS informat yymmdd10.;
but if in Excel 1991-1-31-->in SAS _991_1_31-->after substrn function from 2: 991_1_31, which can't be read by SAS informat yymmdd10.;
Very clearly, when we read it from position 3, that is 91_1_31, which is recognizable by SAS informat.

I think that is the reason the previous program works on 2000 and above but not on < 2000, while using substr from position 3 should have no ambiguity any more.

楼主的问题很好。有一定的复杂性和普遍性. 楼主为何不多贴几组数据，几十小文件zip到一起，也就几个M。上传下载应该没有问题。这样可以避免产生误解。可能会有更多的人感兴趣参与讨论，编程。

高手 果然是高手 ！ 多谢指点 。

再请教一事， 刚才在处理数据时，又碰到如下问题：
165  data n.tab3_ba;
1166  set n.tab3;
1167  array dt{*} _:;
ERROR: All variables in array list must be the same type, i.e., all numeric or character.
ERROR: All variables in array list must be the same type, i.e., all numeric or character.
ERROR: All variables in array list must be the same type, i.e., all numeric or character.
ERROR: All variables in array list must be the same type, i.e., all numeric or character.
1168  do i=1 to dim(dt);
在处理 tab1, tab2都没有问题， 就处理到tab3， 出现了 。
变量必须相同格式吗？ 好像tab1 tab2里的格式 和tab3里的格式是一样的

怎么处理这种问题？ 谢谢！

变量必须相同格式吗？
Yeah. Elements in the  array have to be in the same type, either numeric or character. 好像tab1 tab2里的格式 和tab3里的格式是一样的
You can use proc contents to see the variable info, such as type, format, etc.

For tackling the problem you mentioned, it will spend much time on that.
if only few of them are different types, you could change the type one by one.
Of note, when you merge by differnt data set, the same-name variables have to be in the same type too.

I suggest, you can change the type in EXCEL before reading into SAS. For example, change all variables to text format.

你直接把五个excel打包贴上来得了 麻烦还得猜

其实， 你只要把每个表格的信息（从 proc contents 来）贴出就行了。我想许多人都可以帮助解决问题了。

23楼, the video is fun. Every time click "RUN", there is a black DOS window jump out. You have to close it every time. How that happens?

no ,not every time, i guess this macro programe may use  windows's cmd part.

Thanks for reply.

22# jingju11

用 proc contents 终于找到原因了 ：

128	_003_7_31	Num	8			2003-7-31
129	_003_8_29	Num	8			2003-8-29
130	_003_9_30	Num	8			2003-9-30
143	_004_10_29	Char	1	$1.	$1.	2004-10-29
144	_004_11_30	Char	1	$1.	$1.	2004-11-30
145	_004_12_31	Char	1	$1.	$1.	2004-12-31
134	_004_1_30	Num	8			2004-1-30
135	_004_2_27	Num	8			2004-2-27
136	_004_3_31	Num	8			2004-3-31
137	_004_4_30	Num	8			2004-4-30
138	_004_5_31	Num	8			2004-5-31
139	_004_6_30	Num	8			2004-6-30
140	_004_7_30	Num	8			2004-7-30
141	_004_8_31	Num	8			2004-8-31
142	_004_9_30	Num	8			2004-9-30
155	_005_10_31	Num	8			2005-10-31
156	_005_11_30	Num	8			2005-11-30
157	_005_12_30	Num	8			2005-12-30
146	_005_1_31	Char	1	$1.	$1.	2005-1-31
147	_005_2_28	Num	8			2005-2-28

有四个值 是char的

也把我原始excel表格附上，看是在excel上改方便？还是 用sas语句 更改这四个值的格式？
多谢各位 的帮助

28# funwin


data tab_;
set tab (rename=(_004_10_29=Dt_004_10_29
          _004_10_30=Dt_004_10_30
          _004_10_31=Dt_004_10_31
          _005_1_31=Dt_005_1_31
          ));
_004_10_29=input(Dt_004_10_29,1.); *change to numeric;
_004_10_30=input(Dt_004_10_30,1.);
_004_10_31=input(Dt_004_10_31,1.);
_005_1_31  =input(Dt_005_1_31,  1.);
array Dt{*} _:;
....
;
drop Dt_:;
run;

data tab_;
set tab (rename=(_004_10_29=Dt_004_10_29
          _004_11_30=Dt_004_11_30
          _004_12_31=Dt_004_12_31
          _005_1_31=Dt_005_1_31
          ));
_004_10_29=input(Dt_004_10_29,1.); *change to numeric;
_004_11_30=input(Dt_004_11_30,1.);
_004_12_31=input(Dt_004_12_31,1.);
_005_1_31  =input(Dt_005_1_31,  1.);
array Dt{*} _:;
....
;
drop Dt_:;
run;
*sorry, made the mistake on some dates;