try this, it works at least, don't know if speed is ok for large data sets.

filename myfile 'D:\test.txt';
data test(drop=temp col);
        infile myfile;
        retain year id;
        input year id temp $ @;
        if index(temp, 'row')>0 then do;
                input col $ @;
                do row=1 to 2;
                        input x1 x2 x3;
                        output;
                end;
        end;
run;

试了下你的 data，发现都是 row=36, column=72
所以我就直接用36和72写程序了，能读入你的数据，不过程序不够general
如果要想更加通用，可以读入 nrow, ncolumn， 控制读入row,column的size，不过这个改一下也不难
还有一个，就是 missing value, 因为每个的 missing value的label都一样是：1E-30，所以也很容易用data step控制，把这些值设成 missing .

程序如下，数据不大，几秒钟就读完了

data a;
infile 'c:\hadcrut3.dat' LRECL=1000;
input year id;
row=0;
do i=1 to 36;
        row+1;
        input x1-x72;
        output;
end;
run;

filename myfile 'D:\hadcrut3.dat';
data test2(drop=nouse maxrow rows maxcol cols missing);
        infile myfile lrecl=32767;
        retain year id;
        input year id nouse maxrow rows $ maxcol cols $ missing $18. @;
        if rows='rows' then do;
                missing=input(substr(missing, 9), 15.);
                do row=1 to 36;
                        input x1-x72;
                        output;
                end;
        end;
run;

my final version including:
1) read numbers of rows/columns for each data block (dynamic instead of hard coded input of 36/72)
2) read/change for missing values for each data block


filename myfile 'D:\hadcrut3.dat';

data _null_;
        infile myfile end=last;
        input year $ @;
        if length(year)=4 then do;
                block+1;
                input id nouse maxrow rows $ maxcol cols $ missing $18. ;
                call symput(compress(left(trim('missing_value'||put(block,4.)))),
                                input(substr(missing, 9), 15.));
                call symput(compress(left(trim('maxrow'||put(block,4.)))), maxrow);
                call symput(compress(left(trim('maxcol'||put(block,4.)))), maxcol);
        end;
        if last then do;
                call symput('countblock', put(block,4.));
        end;
run;
%macro read;
data test2(drop=nouse maxrow rows maxcol cols missing);
        infile myfile lrecl=32767;
        %do i=1 %to &countblock;
                %let x_maxcol=&&maxcol&i;
                retain year id;
                input year id nouse maxrow rows $ maxcol cols $ missing $18. @;
                if rows='rows' then do;
                        do row=1 to maxrow;
                                input x1-x&x_maxcol;
                               
                                %do j=1 %to &x_maxcol;
                                        if x&j =&&missing_value&i then x&j=.;
                                %end;
                               
                                output;
                        end;
                end;
        %end;
run;
%mend read;
%read

谢谢大家。

SAS真是不错啊。
羡慕你们这么厉害啊

这次自己学了不少东西