多行编辑

多行编辑 这里是一个多行删除

create or replace procedure f_delete_user (
resultStr out char,
v_MultiRows in VARCHAR2
) is
v_r char(20);
v_m number;
v_n number;
Begin
--请自行编辑存储过程函数体
select length(trim(v_MultiRows)) -
length(replace(trim(v_MultiRows), ‘;‘, ‘‘))
into v_n from dual;
FOR v_m IN 1 .. (v_n + 1) LOOP
v_r := regexp_substr(trim(v_MultiRows), ‘[^;]+‘, 1, v_m);
delete from l_jdc where trim(l_no) = trim(v_r);
END LOOP;
resultStr := ‘success: 删除成功.‘;
End;