zoukankan      html  css  js  c++  java
  • http请求之of_ordering_getmiditem

    //Public function of_ordering_getmiditem (string as_instr,string as_key) returns string
    //string as_instr
    //string as_key
    long ll_pos
    long ll_find
    string ls_pos
    string ls_midright
    string ls_item
    string ls_col
    string ls_temp
    string ls_ret
    datastore lds_unicode


    ls_pos = "~"" + as_key + "~"" + ":"
    ll_pos = pos(as_instr,ls_pos)
    IF ll_pos > 0 THEN
    ls_midright = mid(as_instr,ll_pos + len(ls_pos))
    IF mid(ls_midright,2,1) = "[" THEN
    ll_pos = pos(ls_midright,"]")
    ELSE
    ll_pos = pos(ls_midright,",")
    IF ll_pos > 0 THEN
    ELSE
    ll_pos = pos(ls_midright,"}")
    END IF
    END IF
    IF ll_pos > 0 THEN
    ls_temp = left(ls_midright,ll_pos - 1)
    IF left(ls_temp,1) = "~"" THEN
    ls_temp = mid(ls_temp,2)
    END IF
    IF right(ls_temp,1) = "~"" THEN
    ls_temp = left(ls_temp,len(ls_temp) - 1)
    END IF
    ls_ret = ls_temp
    ELSE
    IF left(ls_midright,1) = "~"" THEN
    ls_midright = mid(ls_midright,2)
    END IF
    IF right(ls_midright,1) = "~"" THEN
    ls_midright = left(ls_midright,len(ls_midright) - 1)
    END IF
    ls_ret = ls_midright
    END IF
    ELSE
    ls_ret = ""
    END IF
    ll_pos = pos(lower(ls_ret),"u")
    IF ll_pos > 0 THEN
    lds_unicode = CREATE datastore
    lds_unicode.dataobject = "dw_unicode"
    DO WHILE ll_pos > 0
    ls_temp = upper(mid(ls_ret,ll_pos + 2,4))
    ll_find = lds_unicode.find("Left(unicode_no,3) = '" + left(ls_temp,3) + "'",1,lds_unicode.rowcount())
    IF ll_find > 0 THEN
    ls_item = lds_unicode.object.unicode_item[ll_find]
    ls_col = upper(right(ls_temp,1))
    CHOOSE CASE ls_col
    CASE "A","B","C","D","E","F"
    ls_item = mid(ls_item,(asc(ls_col) * 2 - 110) + 1,2)
    CASE ELSE
    ls_item = mid(ls_item,(long(ls_col) * 2) + 1,2)
    END CHOOSE
    ls_ret = replace(ls_ret,ll_pos,6,ls_item)
    END IF
    ll_pos = pos(lower(ls_ret),"u")
    LOOP
    DESTROY lds_unicode
    END IF
    RETURN ls_ret

  • 相关阅读:
    PL/SQL会遇到中文插入乱码问题、数据显示不全
    PL/SQL数据生成器
    编程小案例
    MySql案例收集
    关于PL/SQL的安装配置
    Android 歌词桌面同步显示
    DataGridView控件使用大全
    flex java 交互
    Android Launcher 全面剖析
    Android adb 命令
  • 原文地址:https://www.cnblogs.com/nickflyrong/p/4744843.html
Copyright © 2011-2022 走看看