4GL以输入的顺序排序显示

原创 2017年01月03日 14:22:09
#以输入的顺序排序显示(输入什么顺序就显示什么顺序)
LET l_wc=tm.wc
  
SELECT instr(l_wc,'sfb01 in',1,1) INTO l_have FROM dual 
  
IF l_have <> 0 THEN
     
    SELECT instr(l_wc,'sfb01 in',1,1) INTO l_n1 FROM dual        
    
    SELECT instr(l_wc,'(',l_n1,1) INTO l_n2 FROM dual
    
    SELECT instr(l_wc,')',l_n2,1) INTO l_n3 FROM dual   
    
    LET j=1
    
    LET k=1
    
    LET l_orderby=" order by case sfb01"
    
    FOR i=l_n2 TO l_n3 
    
      IF l_n4 < l_n3 THEN
      
         SELECT instr(l_wc,'\'',l_n2,j) INTO l_n4 FROM dual
      
         SELECT instr(l_wc,'\'',l_n2,j+1) INTO l_n5 FROM dual
        
       IF l_n4 > 0 AND l_n5 > 0 THEN       
           
          LET l_orderby=l_orderby," when '",l_wc[l_n4+1,l_n5-1],"' then ",k CLIPPED," "
           
          LET k=k+1
           
          LET j=j+2
        
       ELSE
           
          EXIT FOR
        
       END IF
    
      ELSE
    	  
       EXIT FOR
    
      END IF
    
   END FOR
        
   LET l_orderby=l_orderby," end "
    
   LET l_sql=l_sql CLIPPED,l_orderby CLIPPED
  
END IF


 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

[南阳OJ-No.4]ASCII码排序|输入三个字符(可以重复)后,按各字符的ASCII码从小到大的顺序输出这三个字符。

南阳OJ-No.4时间限制3000ms,内存限制65535kb描述输入三个字符(可以重复)后,按各字符的ASCII码从小到大的顺序输出这三个字符。输入第一行输入一个数N,表示有N组测试数据。后面的N行...
  • dj741
  • dj741
  • 2017年01月31日 15:09
  • 988

TIPTOP 4GL——自定义按钮前加图标

对于TIPTOP系统,标准的按钮都有相对应的小图标,如下图: 但是对于自己添加的按钮,很少有小图标的; 那下面我就分析一下怎么让自己加的按钮也有小图标:看效果(右边按钮): 【当然我这个...

4GL算法【列举法-百钱买百鸡,递归法-小猴吃枣】

1. 滴水不漏——列举法破解难题 示例:百钱买百鸡 公鸡3元每只,母鸡5元每只,小鸡1元3只,一百元钱买一百只鸡。请求出公鸡,母鸡和小鸡的数目? 编程简析: 我们做最极端的假设,公鸡可能是0-...

TIPTOP——4GL颜色相关设置

使用测试系统TIPTOP GP3.0 颜色的设置分为单身颜色和单头颜色的设置: 一、单身颜色: 1.首先MAIN函数之前定义一个数组 例如: DEFINE ga_color DYNA...

Atitit.常见的4gl 第四代编程语言  与 dsl

Atitit.常见的4gl 第四代编程语言  与 dsl   1. 4gl dsl发展历史1 2. 4gl dsl的特点1 3. 常见的4gl 第四代编程语言 dsl2 4. 未来趋势与标准...
  • attilax
  • attilax
  • 2016年02月22日 00:12
  • 909

排序(4) 快速排序与顺序统计值

快速排序极其改进优化,顺序统计值,实例

4GL是什么?计算机辅助软件工程CASE是什么?

4GL作者: ,  出处:searchsmb, 责任编辑: , 2005-05-16 13:27  Programming   在计算机行业中,通常有几代语言来表示语言的发展。 1GL或第一代语...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:4GL以输入的顺序排序显示
举报原因:
原因补充:

(最多只允许输入30个字)