又遇到难题了,请高手们支招啊

shiyiming

有一些文件,里面的数据如下面形式
aa[color=#FF0000:jpe4ge3i]1[/color:jpe4ge3i]bbcc[color=#FF0000:jpe4ge3i]2[/color:jpe4ge3i]ddeeffgghh
aa[color=#FF0000:jpe4ge3i]2[/color:jpe4ge3i]bbccmmnn[color=#FF0000:jpe4ge3i]3[/color:jpe4ge3i]ddeeffggiijjhh
....
....
....
....

第一个field 是固定为aa,但是有几个field (暂时取名为name , team, score,no) 需要根据它前面那个变量的值(F2 and F4)来决定重复读取几次,读取长度都是2(如上面数据红色的field,2 就表示重复读取2次,取名为name_1&team_1,name_2&team_2...),最后一个field 固定为hh

结果应该如下:
[code:jpe4ge3i]F1     F2     name_1   team_1   name_2   team_2   F4    score_1  no_1   score_2   no_2    score_3   no_3  text
aa     1      bb       cc                         2     dd       ee     ff        gg                       hh
aa     2      bb       cc       mm       nn       3     dd       ee     ff        gg      ii        jj     hh[/code:jpe4ge3i]
我说清楚了吗?这个问题我觉得挺难的,请问有什么比较好的做法吗?谢谢各位

shiyiming

先瞎写一个,变量名就凑合那样吧
[code:3k7gfkfy]filename benzon 'c:\benzon.txt';
data _null_;
        infile benzon end=last;
        input;
        max_f2=max(max_f2,length(scan(_infile_,2,'0123456789')));
        max_f4=max(max_f4,length(scan(_infile_,3,'0123456789')));
        if last then do;
                call symputx('max_f2',max_f2/2);
                call symputx('max_f4',max_f4/2-1);
        end;
run;
data raw;
        infile benzon;
        input @;
        _infile_='aa'||put(length(scan(_infile_,2,'0123456789'))/2,2.)||
                        put(scan(_infile_,2,'0123456789'),$%eval(&max_f2*2).)||
                        put(length(scan(_infile_,3,'0123456789'))/2-1,2.)||
                        put(substr(scan(_infile_,3,'0123456789'),1,length(scan(_infile_,3,'0123456789'))-2),$%eval(&max_f4*2).)||
                        'hh';
        input F1 $2. F2 2. (X_1-X_&max_f2) ($2.) F4 2. (Y_1-Y_&max_f4) ($2.) Text $2.;
run;[/code:3k7gfkfy]

shiyiming

谢谢hopewell啊，其实我的重复次数可以是超过10次的，而且其中有些field也是数字型，我只列了部分字符型的出来，这可怎么办呢？我觉得是不是用DO循环来做比较方便点呢？

shiyiming

我把我自己写的程序贴上来,大家帮我找找问题啊

但是在do循环里面,变量i,j 可以自增,但是不能创建变量F6_1,F7_1,F6_2,F7_2,到底哪里有问题啊?疯了我

shiyiming

做为do loop计数变量的data set variable i和macro variable i是相互独立的,不是同一个东西. 通过input当前obsversation获得f2和f4值的时候已经是执行阶段了,而在此前的编译阶段,宏变量i和j的值就已经被确定下来了.
[code:1ylqnnv4]filename benzon 'c:\benzon.txt';
%macro varlist(type,value);
        %let input=;
        %do i=1 %to &value;
                %if &type=f2 %then %let input=&input Name_&i $2. Team_&i $2.;
                %else %let input=&input Score_&i $2. No_&i $2.;
        %end;
        &input
%mend;
data _null_;
   infile benzon end=last;
   input @3 F2 1. +(f2*4) f4 1.;
   if _n_=1 then call execute('data raw; infile benzon;');
   call execute('input #'||strip(_n_)||' F1 $2. F2 1.');
   call execute('%varlist(f2,'||f2||')');
   call execute('F4 1.');
   call execute('%varlist(f4,'||f4||')');
   call execute('Text $2.;output;call missing(of _all_);');
   if last then call execute('run;');
run;[/code:1ylqnnv4]

shiyiming

谢谢hopewell,我现在知道自己程序为什么有问题了,虽然还没找到怎么解决.

另外我也大致看懂了你的程序,根据我给的那两行数据测试是达到了目的, 但我试了一下4行的数据,特别是后面行的重复次数比上面行少的时候,就出现问题了, 好像是继承了上一行多出来那些变量,象下面

数据
aa3ddeezzyybbcc2ddeeffgghh
aa3ddeezzyybbdd2ddeeffgghh
aa2bbccmmnn3ddeeffggiijjhh
aa2bbccmmnn2ddeeffgghh

结果
  
[code:1il588vq]F1 F2 Name_1 Team_1 Name_2 Team_2 Name_3 Team_3 F4 Score_1 No_1 Score_2 No_2 Text Score_3 No_3
aa 3  dd     ee     zz     yy     bb     cc     2  dd      ee   ff      gg   hh     
aa 3  dd     ee     zz     yy     bb     dd     2  dd      ee   ff      gg   hh     
aa 2  bb     cc     mm     nn     bb     dd     3  dd      ee   ff      gg   hh   ii      jj
aa 2  bb     cc     mm     nn     bb     dd     2  dd      ee   ff      gg   hh   ii      jj[/code:1il588vq]

本来第3/4行是没有Name_3和Team_3的嘛,第4行是没有Score_3和No_3的嘛, 看半天没搞懂为什么...再请教..

shiyiming

改过了

shiyiming

哈哈, 这里高手真多,差点没看懂,好奇多问一句, 如果数据不分行的呢(好象叫什么edsdic代码),应该怎么处理呢?
这是我正遇到的问题...