Oracle字符串的拆分和拼接

最好用存储过程实现：
如下json字符串中的指定三个字段需要拼接成comicPkgList

原字符串：
{"IsSmsConfirm":false,"productID":"MDSP3331111","autoReceive":false,"supCycle":1}

期望转换后的：
{"comicPkgList":[{"IsSmsConfirm":false,"productID":"MDSP3331111","supCycle":1}],"autoReceive":false}

如果是固定的格式，那就好办，检测字段中的“，”分割成四段，然后按要求接起来。
使用函数好些，可以直接调用。
函数写好：已经测试过。
CREATE OR REPLACE FUNCTION json_montage (JSON IN VARCHAR2) RETURN VARCHAR2 IS
In_JSON  VARCHAr2(4096);
v_JSON  VARCHAr2(4096) DEFAULT '{"comicPkgList":[{J1,J2,J4}],J3}';
v_J1  VARCHAr2(4096);
v_J2  VARCHAr2(4096);
v_J3  VARCHAr2(4096);
v_J4  VARCHAr2(4096);
v_split VARCHAr2(10) DEFAULT ',';
len NUMBER(10) default 0;
place NUMBER(10) default 2;

BEGIN
 In_JSON :=JSON;

   In_JSON := RTRIm(LTRIm(In_JSON));
   place := INSTR(In_JSON,v_split,2,1);
   len := place -1 -1;
   v_J1 := SUBSTr(In_JSON,2,len);
   len := INSTR(In_JSON,v_split,2,2) - place -1-0;
   v_J2 := SUBSTr(In_JSON,place+1,len);
   place := INSTR(In_JSON,v_split,2,2);

   len := INSTR(In_JSON,v_split,2,3) - place -1-0;
   v_J3 := SUBSTr(In_JSON,place+1,len);
   place := INSTR(In_JSON,v_split,2,3);

   len := LENGTH(In_JSON) - place -1;
   v_J4 := SUBSTr(In_JSON,place+1,len);


   v_JSON := '{"comicPkgList":[{' || v_J1 || ',' || v_J2 || ',' || v_J4 || '}],' || v_J3 || '}';

   IF v_JSON = '{"comicPkgList":[{J1,J2,J4}],J3}' THEN
    v_JSON :='ERROR';
   END IF;
   RETURN v_JSON;
   EXCEPTION
     WHEN NO_DATA_FOUND THEN
       NULL;
     WHEN OTHERS THEN
       RAISE;
END json_montage;
/

这是json串，和数据库没有关系，如果纯粹的字符串拼接用 ||

Oracle支持java的存储过程，可以使用相关的json方法进行处理 Oracle解析复杂json的方法

这样不就行了吗 创建表 create table test (id varchar2(10), name varchar2(10)) insert into test values ('wq','王强'); insert into test values ('lm','李明'); insert into test values ('xh','小红');创建函数 create or replace function f_str (v_str varchar2) return varchar2 is result varchar2(100); begin  select wm_concat(name) into result from test  where id in  (select c from 　(with test as (select v_str c from dual) 　select substr(t.ca,instr(t.ca, ',', 1, c.lv) + 1,instr(t.ca, ',', 1, c.lv + 1) - (instr(t.ca, ',', 1, c.lv) + 1)) as c  from (select ',' || c || ',' as ca,length(c || ',') - nvl(length(replace(c, ',')),0) as cnt from test) t, 　(select level lv from dual connect by level <= 100) c where c.lv <= t.cnt)); return result; end;