iCAx开思网

标题: 怎样修改GPP后处理,使每隔10行或20行出现一个N [打印本页]

作者: wylxl2001 时间: 2006-1-6 12:51
标题: 怎样修改GPP后处理,使每隔10行或20行出现一个N
怎样修改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 ;

作者: sjhxs 时间: 2006-1-6 13:15
https://www.icax.org/viewthread. ... page%3D3#pid4048922

见7楼

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

作者: 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
      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 ;

作者: darkbit 时间: 2006-1-6 13:21
哦！我发晚了
算法和sjhxs兄一样！

作者: wylxl2001 时间: 2006-1-8 08:28

原帖由 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
   ...

谢谢

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

作者: wylxl2001 时间: 2006-1-8 08:33
怎么提示有非法字符

作者: darkbit 时间: 2006-1-8 10:01
wylxl2001兄，看附件吧，含源代码，我是通过编译的，细节处若不合你的用法，你要自己改了

作者: wylxl2001 时间: 2006-1-8 10:03
非法字符是因为我屏蔽别的代码时*没有放到整句的最前面引起的

但始终会出现
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 ;

与这些代码发生冲突！

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

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

欢迎光临 iCAx开思网 (https://www.icax.org/)