好的,我查询到下面代码可以读取HTML,请问如何解读这段代码?
data temp(keep=table row col value);
infile myfile recfm=f lrecl=&filesize. column=c eof=abc;
length which $8;
no_more_tables = 0;
do while(1);
which = 'TABLE';
table+1;
input @ '
if no_more_tables then leave;
start_table = c;
input @ '
' @;end_table = c;
input @start_table @;
row=0;
do while(1);
row+1;
which = 'TR';
input @ '
' @;if c >= end_table then do;
input @end_table @;
leave;
end;
start_row = c;
input @ '
' @;end_row = c;
input @start_row @;
col=0;
which = 'TD';
do while(1);
col+1;
input @ '
' @;if c >= end_row then do;
input @end_row @;
leave;
end;
start_col = c;
input @ '
' @;l = c-6-start_col+1;
input @start_col valuec $varying20. l @;
value=input(valuec,best20.);
output;
end;
end;
end;
return;
abc:;
if which = 'TABLE'
then no_more_tables = 1;
else if which = 'TR'
then input @end_table @;
else if which = 'TD'
then input @end_row @;
return;
run;