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


 

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

4gl的编译命令

用下面两条命令都可以:PsnDrawReback.4gl 是4gl的文件名称,Reback是编译后的可执行文件c4gl PsnDrawReback.4gl -o Reback  PsnDrawReba...
  • lpioneer
  • lpioneer
  • 2008年03月25日 11:24
  • 2844

TIPTOP——4GL颜色相关设置

使用测试系统TIPTOP GP3.0 颜色的设置分为单身颜色和单头颜色的设置: 一、单身颜色: 1.首先MAIN函数之前定义一个数组 例如: DEFINE ga_color DYNA...
  • fmx121586
  • fmx121586
  • 2012年09月18日 14:05
  • 4161

5-7 英文单词排序 (25分)

5-7 英文单词排序   (25分) 本题要求编写程序,输入若干英文单词,对这些单词按长度从小到大排序后输出。如果长度相同,按照输入的顺序不变。 输入格式: 输入为若干英文单词,每行一个,以#...
  • shi201619616
  • shi201619616
  • 2017年07月10日 18:47
  • 1748

listbox控件有个 很奇怪的一点,就是用addstring插入的顺序和显示的顺序不一样

右键Listbox Control控件 ,点击属性 sort选项设置为FALSE
  • Rbaggio92
  • Rbaggio92
  • 2017年03月16日 21:37
  • 374

Windows 中"另存为" 浏览时,文件夹中 默认的排序为倒序(逆序,顺序都反过来了)

http://topic.csdn.net/t/20030124/21/1391152.html这个帖子提出的问题跟我一样,但其中没有找到答案. 是个很久以前的帖子了,我没找到方法回帖,就发一篇blo...
  • tomclarence
  • tomclarence
  • 2007年09月15日 11:56
  • 2088

给大家展示一下自己开发的4gl编辑器

从事4gl开发5年了,一直没有合适的编辑器,所以干脆就自己开发一个,有需要的小伙伴来索取试用版。 编辑器开发内置语法解析器,将在代码编辑过程中实时提示代码错误,不再需要频繁上传服务器了哦 本人才疏学浅...
  • sychou
  • sychou
  • 2017年10月12日 21:10
  • 329

数据机构(10)--顺序循环队列的实现及相关操作

1.顺序队列 顺序队列的类型定义如下: #define  maxsize 100/*队列的最大容量*/ typedef char QElemtype; struct  Queue  {   QElem...
  • u010366748
  • u010366748
  • 2016年02月21日 14:56
  • 953

利用递归函数调用方式,将所输入的5个字符,以相反顺序打印出来。

 利用递归函数调用方式,将所输入的5个字符,以相反顺序打印出来。1.程序分析:2.程序源代码:#include "stdio.h"#include "conio.h"main(){  int i=5;...
  • xxyakoo
  • xxyakoo
  • 2008年11月13日 21:46
  • 4890

现在输入n个数字,以逗号,分开;然后可选择升或者降序排序;按提交键就在另一页面显示按什么排序,结果为,提供reset

现在输入n个数字,以逗号,分开;然后可选择升或者降序排序;按提交键就在另一页面显示按什么排序,结果为,提供reset package test; import java.io.Bu...
  • qq_37905269
  • qq_37905269
  • 2017年08月20日 17:34
  • 406

九度OJ 题目1054:字符串内排序

来源:2010年哈尔滨工业大学计算机研究生机试真题 题目描述:输入一个字符串,长度小于等于200,然后将输出按字符顺序升序排序后的字符串。 输入:测试数据有多组,输入字符串。 输出:对于每组输入,输出...
  • Shirly0902
  • Shirly0902
  • 2017年03月01日 18:00
  • 325
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:4GL以输入的顺序排序显示
举报原因:
原因补充:

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