sas导入文件问题（在线等）

shiyiming

1      -0.874385997915983E+02       0.347957138950617E+02
                -0.881816728501744E+02       0.350078088730874E+02
                -0.881819180000000E+02       0.349990240000000E+02
                -0.881772430000000E+02       0.349917870000000E+02
                -0.881751840000000E+02       0.349895430000000E+02
END
    -99999
                -0.879105180000000E+02       0.348013330000000E+02
                -0.879102130000000E+02       0.348016990000000E+02
                -0.879132660000000E+02       0.348063490000000E+02
               
         2      -0.874385997915983E+02       0.347957138950617E+02
                -0.881816728501744E+02       0.350078088730874E+02
                -0.881819180000000E+02       0.349990240000000E+02
                -0.881772430000000E+02       0.349917870000000E+02
                -0.881751840000000E+02       0.349895430000000E+02
END
    -99999
                -0.879105180000000E+02       0.348013330000000E+02
                -0.879102130000000E+02       0.348016990000000E+02
                -0.879132660000000E+02       0.348063490000000E+02
××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××、
有一TXT文件
里面的数据都是上面的格式
有没高手能写个程序，可以将它们导入到SAS数据集里？

shiyiming

没注意，网页上可能不太清晰，可以复制到TXT里看下文件格式

shiyiming

infile导入不行吗?

shiyiming

data a;
missing;
infile "D:\xgg.txt";
input a:E32. @@;
format a E32.;
run;
data b;
set a(where=(a not in (.,-99999)));

run;
proc print data=b;
run;
data c;
delete;
run;

%macro sele;
data temp;
set b(obs=17);
run;
proc transpose data=temp out=temp;
var a;
run;
data c;
set c temp;
run;
data b;
set b(firstobs=18);
run;
%mend sele;
data _null_;
set b nobs=nobs;
call symput("n",INT(nobs/17));
run;
%put %eval(&n);
%macro sel2;
%do i=1 %to %eval(&n);
%sele;
%end;
%mend sel2;
%sel2;
%macro sele3;
data temp;
set b(obs=17);
run;
proc transpose data=temp out=temp;
var a;
run;
data c;
set c temp;
run;
data b;
set b;
run;
%mend sele3;
%sele3;
proc print data=c;
run;
把txt的文件名字路径换成vxgg.txt试一下，我理解的格式是每一个1，2，3，。。代表序号里面有十六个变量，不知道对不对。

shiyiming

data test;
informat a1-a10 e22.;
informat a12-a17 e22.;
input id a1 a2
/a3 a4
/a5 a6  
/a7 a8
/a9 a10
/s1 $
/a11
/a12 a13
/a14 a15
/a16 a17
;
format a1-a10 e22.;
format a12-a17 e22.;

cards;
1 -0.874385997915983E+02 0.347957138950617E+02
-0.881816728501744E+02 0.350078088730874E+02
-0.881819180000000E+02 0.349990240000000E+02
-0.881772430000000E+02 0.349917870000000E+02
-0.881751840000000E+02 0.349895430000000E+02
END
-99999
-0.879105180000000E+02 0.348013330000000E+02
-0.879102130000000E+02 0.348016990000000E+02
-0.879132660000000E+02 0.348063490000000E+02

2 -0.874385997915983E+02 0.347957138950617E+02
-0.881816728501744E+02 0.350078088730874E+02
-0.881819180000000E+02 0.349990240000000E+02
-0.881772430000000E+02 0.349917870000000E+02
-0.881751840000000E+02 0.349895430000000E+02
END
-99999
-0.879105180000000E+02 0.348013330000000E+02
-0.879102130000000E+02 0.348016990000000E+02
-0.879132660000000E+02 0.348063490000000E+02
;
run;

proc print data=test;
run;

shiyiming

比较喜欢xsmile的风格，简单易懂，可见功率之深，^_^

shiyiming

果然好，而且效率高。 <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D --> ，能请教一下，就是如果两个观测中无论空几行，都不影响数据的导入，这是为什么呀？

shiyiming

长度为0的recode会被跳过的

shiyiming

谢谢你的指教 <!-- s:) --><img src="{SMILIES_PATH}/icon_smile.gif" alt=":)" title="Smile" /><!-- s:) -->

shiyiming

太客气了,有问题的话也可以来我的论坛多交流，我也在学sas