Timesten内存数据库支持json格式的包讲义.doc

近期公司用到了Timesten内存数据库，但是Timesten暂不支持json，所以自己写了个包，用户数据库与json的数据转换，没什么高深的，但是要在Timesten里写也需要时间，所以分享下。 主要包括几个方面的： 1. 根据key获取json的值； 2. 根据index获取Array的值； 3. 根据sys_cursor等生成json数据； 4. 验证是否json格式等 备注：数据格式只支持字符串的形式，不支持数字，不然数据会有误。 下面是pl\sql里写的包，弄了一个星期，测试通过，可以放心使用。有问题可以找qq：313892960。 CREATE OR REPLACE packAge PK_TT_JSON AS --timesten数据库，结果集转json格式 --从clob（json）获取值 /*[ {channel_fzs:fzs,app_id_xy:1001,rewa_type:PCA,reward_fee:10.01,reward_date:yyyy-mm-dd,idfa:idfa} ]*/ type type_array IS TABLE OF varchar2(256) INDEX BY PLS_INTEGER; function fisJsonObject(jsonclob clob) return number; --{}转[{}] function fJsonListToArray(jsonclob clob) return clob; --构造Array函数 function jsonArray return clob; function jsonObject return clob; procedure pJsonObjectPut(psjsonclob in out clob, psparam varchar2, psvalue varchar2 ); procedure pJsonObjectPutClob(psjsonclob in out clob, psparam varchar2, psvalue clob ); procedure pJsonArrayPut(psjsonclob in out clob, psvalue clob ); function getArrayCount(fclobArray clob) return number; function getArrayValueCom(fclobArray clob,--列表 findex number:=1) return clob; FUNCTION getJsonValueCom(pjclob clob, param varchar2 ) return varchar2; /* --返回指定参数的值 FUNCTION get(jclob clob, param varchar2 ) return varchar2; --返回第i个参数的参数值 FUNCTION getparam(jclob clob, i number ) return varchar2; --返回第i个参数的域值 FUNCTION getvalue(jclob clob, i number ) return varchar2; --返回json值个数 FUNCTION getcount(jclob clob ) return number; --将结果集转成json格式 function fSelectToJson(pcSelect varchar2,psColumnName varchar2) return clob; --绑定变量查询，