ORACLE获取表中JSON字段中的VALUE值⾃定义函数
CREATE OR REPLACE function get_json( v_table varchar2,v_field varchar2,v_key varchar2)-- 1：表，2：json所在字段，3：期望获取value的key值return varchar2
as
v_res varchar2(100); --返回值
v_json varchar2(4000); --json
v_sql varchar2(1000); -- ⾃定义SQL语句
v_qswz number; -- value值起始位置
v_jswz number; -- value值结束位置
-- regexp_instr（值，要匹配的格式，从第⼏位开始(缺省时为从第⼀位开始)），如：select regexp_instr（‘{"id":"1234"}’,'id'） from dual; 结果为：3 begin
v_sql := 'select '||v_field|| ' from ' || v_table;
execute immediate v_sql into v_json;
--起始位置：满⾜key字符串的位置+key长度+2；
select regexp_instr(v_json,  v_key)+ 2 +length(v_key) into v_qswz from dual;
if  regexp_instr(v_json, v_key)-2 != 1 then
v_qswz :=v_qswz +1;
end if ;
--结束位置：起始位置到下⼀个‘，’（或}）的位置；
select regexp_instr(v_json, ',',v_qswz) into v_jswz from dual;
if  regexp_instr(v_json, v_key)-2 != 1  and v_jswz !=0 then
v_jswz :=v_jswz-1;
end if;
if v_jswz = 0 then
js获取json的key和value
v_jswz := length(v_json)-1;
end if;
select substr(v_json, v_qswz, v_jswz-v_qswz) into v_res from dual;
select replace(v_res,'"','') into v_res  from dual;
return v_res;
end;
以下为进阶版：
1.创建数据对象，⽤于保存结果集中的结果。
2.创建类表对象，⽤于保存要返回的结果。
3.创建函数。整体代码如下：
create or replace type ecs_json_type as object
(
json_value VARCHAR2(100)
);
create or replace type ecs_json_value is table of ecs_json_type;
CREATE OR REPLACE function ecs_get_json_values(v_table varchar2, v_field varchar2, v_key varchar2, v_condition varchar2,
v_conditionValue varchar2)
return ecs_json_value
as
v_res varchar2(100); --返回值
v_json varchar2(4000); --json
v_sql varchar2(1000); -- ⾃定义SQL语句
v_qswz number; -- value值起始位置
v_jswz number; -- value值结束位置
rs ecs_json_value := ecs_json_value();
type ref_cursor is ref cursor;
v_cursor ref_cursor;
-- regexp_instr（值，要匹配的格式，从第⼏位开始(缺省时为从第⼀位开始)），如：select regexp_instr（‘{"id":"1234"}’,'id'） from dual; 结果为：3 begin
v_sql := 'select ' || v_field || ' from ' || v_table || ' where ' || v_condition || '=''' || v_conditionValue ||
'''';
open v_cursor for v_sql;
loop
fetch v_cursor into v_json;
exit when v_cursor%notfound;
--起始位置：满⾜key字符串的位置+key长度+2；
select regexp_instr(v_json, v_key) + 2 + length(v_key) into v_qswz from dual;
if regexp_instr(v_json, v_key) - 2 != 1 then
v_qswz := v_qswz + 1;
end if;
--结束位置：起始位置到下⼀个‘，’（或}）的位置；
select regexp_instr(v_json, ',', v_qswz) into v_jswz from dual;
if regexp_instr(v_json, v_key) - 2 != 1 and v_jswz != 0 then
v_jswz := v_jswz - 1;
end if;
if v_jswz = 0 then
v_jswz := length(v_json) - 1;
end if;
select substr(v_json, v_qswz, v_jswz - v_qswz) into v_res from dual;
select replace(v_res, '"', '') into v_res from dual;
unt) := ecs_json_type(v_res);
end loop;
close v_cursor;
return rs;
end;
运⾏⽅式为：
select * from table(ecs_get_json_values('v_table','v_field','v_key','v_condition','v_conditionValue'));
其中：1：表，2：json所在字段，3：期望获取value的key值 4：条件字段 5：条件字段值
例：test表中，a字段为json格式，{“fwbh”:123,"fwdz":"伦敦"}，共10⾏数据，
1.如需获取前5⾏数据，需要更改函数中where ' || v_condition || '=''' || v_conditionValue ||部分，将=换为< ，并需要利⽤rownum；语句：select * from table(ecs_get_json_values('test','a','fwdz','rownum','5'));
2.如需查询全表，则将函数后两位参数写为1；即select * from table where 1 = 1;
语句：select * from table(ecs_get_json_values('test','a','fwdz','1','1'));
在此感谢MannixFan的⽀持

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。