证券市场中股市文本挖掘里的一个未解决疑惑

shiyiming

本人对文本挖掘方面也有点兴趣，想摸清透这个过程中的具体情况，所以对这方面也有点接触，但是我在其中遇到了一个让我困惑已久，未想明白的问题。所以，今天也是终于鼓起勇气，把它提出来，希望论坛里边的朋友也可以帮小弟我参考参考，解疑一下！！（我将给出一段测试代码及测试文本文件）

刚开始，在整段程序代码中有比较多的问题，我花了较长时间解决后，程序代码终于可以进行挖掘操作。但遗憾的是，也是我需要弄明白的地方，就是下边我给出的整段程序中的一段宏代码中，必须把input语句中注释与未注释部分分开，这样分两次进行数据信息挖掘是没问题；但是把注释去掉，想一次完成所有数据信息的挖掘，sas会报错。

这也是我经过反复运行测试后发现的结果，就好像注释内的（每股资本公积 到 证券代码）是一类数据信息，而剩下的又是一类一样，如果把注释内的任何一条数据信息（如：证券代码）放到未注释部分进行测试，就会出错；反过来把未注释部分的数据信息放到注释部分一起进行测试，也会出错！！  这也是我目前都还没弄明白的地方，希望论坛里面的师兄师姐们，高手们帮忙找下问题的原因，谢谢各位了！！！

下面只是其中的一段宏程序：如果有可能会帮上忙的，需要测试运行程序的，留个你们的邮箱，我把测试代码及一些测试文本文件发到你们邮箱里！！


%macro mac;
%do np=1 %to 5;  
%let lj=F:\sas\我的sas资料\文本挖掘;
%if &np<3 %then %do; %let mz=00000; %end;
%else %if (&np>=10) and (&np<100)   %then %do;  %let mz=0000; %end;
%else  %if (&np>=100) and (&np<1000)   %then %do; %let mz=000; %end;
%else  %if (&np>=1000) and (&np<10000)   %then %do; %let mz=00; %end;
%else  %if (&np>=10000) and (&np<100000)   %then %do; %let mz=0; %end;
%else  %if &np>=100000   %then %do; %let mz=; %end;
%let kk="&lj\&mz&np..Txt";  /*定义宏文件名*/
%let fd=mz&np;
data &fd;
infile &kk;
input @'｜★最新主要指标★  ｜' rq1 yymmdd8.  +2 rq2 yymmdd8.  +2 rq3 yymmdd8. +2 rq4 yymmdd8. +2 rq5 yymmdd8.
       @'每股收益(元)      ｜' MGSR1  6.4 +4 MGSR2  6.4 +4 MGSR3  6.4 +4 MGSR4  6.4 +4 MGSR5  6.4
       @'每股净资产(元)    ｜' mgjzc1 6.4 +4 mgjzc2 6.4 +4 mgjzc3 6.4 +4 mgjzc4 6.4 +4 mgjzc5 6.4
       @'净资产收益率(％)  ｜' jzcsy1 6.4 @'｜' jzcsy2 6.4 @'｜' jzcsy3 6.4 @'｜' jzcsy4 6.4 @'｜' jzcsy5 6.4
       @'总股本(亿股)      ｜' zgb1 6.4  @'｜' zgb2 6.4 @'｜' zgb3 6.4  @'｜'zgb4 6.4  @'｜' zgb5 6.4
       @'实际流通A股(亿股) ｜' sjltg1 6.4  @'｜' sjltg2 6.4  @'｜' sjltg3 6.4  @'｜' sjltg4 6.4  @'｜' sjltg5 6.4
           @'｜限售流通A股(亿股) ｜' xsltg1 6.4  +4 xsltg2 6.4  +4 xsltg3 6.4  +4 xsltg4 6.4  +4 xsltg5 6.4
       @ '｜行业类别｜' HYLB :$50.;
   注释部分：
  /*  @ '每股资本公积: ' MGGJJ 5.3
       @ '主营收入(万元):' XYSR 10.2
           @ '每股未分利润:' MGWFLR 5.3
           @ '净利润(万元):' JLR 10.2
       @'｜公司名称｜' gsmc  :$50.
       @'｜证券简称｜' zqjc  :$10.
       @'｜证券代码｜' zqdm  :$8. ;*/
           informat rq1--rq5 yymmdd10.;
           format rq1--rq5 yymmdd10.;
  run;
%end;
%let setstm=set;
%do np=1 %to 5;
%let fd=mz&np;
%let  setstm=&setstm &fd;
%end;
%put setstm;
data mxk.mk;
&setstm ;
run;
%mend mac;

shiyiming

如果有不方便留你们邮箱的，可以发条短消息到我qq邮箱里面，我再把测试代码及一些测试文本文件发给你们测试运行！！
<!-- e --><a href="mailto:823980727@qq.com">823980727@qq.com</a><!-- e --> 这是我的qq邮箱！！   由于那些测试文本文件无法传上来，所以感觉这样确实有点麻烦，也只能这样了！！

shiyiming

了解这方面的朋友些，都站出来拉人家一下吗！，不能老是让疑惑的人停留在疑惑当中啊！！！

shiyiming

有没有人肯站出来下啊，我都等了好久了！！呜呜！！！！！！

shiyiming

小弟菜鸟，只能帮顶一下，牛牛们可能都比较忙吧

shiyiming

[quote=&quot;hssnow&quot;:3oz1hnwg]小弟菜鸟，只能帮顶一下，牛牛们可能都比较忙吧[/quote:3oz1hnwg]

终于在贴子里能够看见除了我以外的脚印了！ 首先还是谢谢这位叫hssnow的朋友，在没弄明白之前，我还是会接着等下去的.....ing..呜！！！！

shiyiming

此问题已经在tianye大侠的帮助下解决了，谢谢每一位关注此贴的朋友们！！！