怎样修改GPP后处理,使每隔10行或20行出现一个N

只看该作者 · 发表于 2006-1-6 12:51:37

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

怎样修改GPP后处理,使每隔10行或20行出现一个N

应该是改这一段程序，不知道怎么弄！

NEW_LINE_IS $ ;
   IF_SET (FlagSeq _EQ_ NO)
   OUTPUT \J ;
   ELSE
   IF_SET (FlagSub _EQ_ NO)
      OUTPUT \J "N" Seq ;
      Seq = Seq + SeqIncr ;
   ELSE
      OUTPUT \J "N" SubSeq ;
      SubSeq = SubSeq + SeqIncr ;
   END_IF ;
   END_IF ;

只看该作者 · 发表于 2006-1-6 13:15:21

https://www.icax.org/viewthread. ... page%3D3#pid4048922

见7楼

[ 本帖最后由 sjhxs 于 2006-1-6 13:17 编辑 ]

只看该作者 · 发表于 2006-1-6 13:20:10

FORMAT (SEQUENCING)  sector ;

BEGINNING OF TLPATH:

sector = 0;

NEW_LINE_IS $ ;

   sector = sector + 1 ;
   IF_SET (FlagSeq _EQ_ NO)
      OUTPUT \J ;
   ELSE
      IF_SET (FlagSub _EQ_ NO)
         if_set(sector _EQ_ 10)
            sector = 0;
            OUTPUT \J "N" Seq ;
            Seq = Seq + SeqIncr ;
         end_if;
      ELSE
         if_set(sector _EQ_ 10)
            sector = 0;
            OUTPUT \J "N" SubSeq ;
         SubSeq = SubSeq + SeqIncr ;
         end_if;
      END_IF ;
   END_IF ;

只看该作者 · 发表于 2006-1-6 13:21:30

哦！我发晚了
算法和sjhxs兄一样！

只看该作者 · 发表于 2006-1-8 08:28:49

原帖由 darkbit 于 2006-1-6 13:20 发表
FORMAT (SEQUENCING)  sector ;

BEGINNING OF TLPATH:

sector = 0;

NEW_LINE_IS $ ;

   sector = sector + 1 ;
   IF_SET (FlagSeq _EQ_ NO)
      OUTPUT \J ;
   ELSE
   ...

谢谢

但编译的时候出现如图的问题

只看该作者 · 发表于 2006-1-8 08:33:12

怎么提示有非法字符

只看该作者 · 发表于 2006-1-8 10:01:44

wylxl2001兄，看附件吧，含源代码，我是通过编译的，细节处若不合你的用法，你要自己改了

只看该作者 · 发表于 2006-1-8 10:03:59

非法字符是因为我屏蔽别的代码时*没有放到整句的最前面引起的

但始终会出现
IF_SET(Firset _EQ_ 0)

语法错误，可能是

BEGINNING OF TLPATH:

sector = 0;

NEW_LINE_IS $ ;

   sector = sector + 1 ;
   IF_SET (FlagSeq _EQ_ NO)
      OUTPUT \J ;
   ELSE
      IF_SET (FlagSub _EQ_ NO)
         if_set(sector _EQ_ 10)
            sector = 0;
            OUTPUT \J "N" Seq ;
            Seq = Seq + SeqIncr ;
         end_if;
      ELSE
         if_set(sector _EQ_ 10)
            sector = 0;
            OUTPUT \J "N" SubSeq ;
         SubSeq = SubSeq + SeqIncr ;
         end_if;
      END_IF ;
   END_IF ;

与这些代码发生冲突！

只看该作者 · 发表于 2006-1-8 11:15:41

IF_SET(Firset _EQ_ 0)与上面这些代码无关，可能Firset这一变量前面没有定义吧,或者是有条件（如果Firset=0，那么..）没结果的原因

[ 本帖最后由 sjhxs 于 2006-1-8 12:08 编辑 ]

怎样修改GPP后处理,使每隔10行或20行出现一个N

马上注册，结交更多同行朋友，交流，分享，学习。

本帖子中包含更多资源

本帖子中包含更多资源