循环截取字符串
我的成果啊，记一下。create or replace procedure kmms.p_test_wy(i_caption_accounts in char, o_return_code out number) isv_caption_account varchar2(400);v_index int;v_count int;v_c_a varchar2(10);v_index_last int;v_num int default 0;beginv_caption_account := replace(i_caption_accounts, '，', ',');if v_caption_account is not null then if instr(v_caption_account, ',', -1, 1) < length(v_caption_account) then v_caption_account := v_caption_account || ','; end if; v_index := instr(v_caption_account, ','); v_index_last := 1; while v_index >0 loop v_c_a := substr(v_caption_account, v_index_last, v_index - v_index_last); v_index_last := v_index + 1; v_index := instr(v_caption_account, ',', v_index_last, 1); -- 业务处理 v_num := v_num +1; end loop;end if;o_return_code := v_num;EXCEPTIONwhen others then o_return_code := -1 * SQLCODE; rollback;end;
页:
[1]