在做项目时，经常要读取txt记录文件数据，并要求按照固定格式进行拆分，所以编写了如下的存储过程：

点击(此处)折叠或打开

PROCEDURE Str_To_Arr(p_Source_Str IN VARCHAR2,
p_Split_Str IN VARCHAR2,
Errbuf OUT VARCHAR2,
Retcode OUT VARCHAR2,
p_Dens_Array OUT Type_Tab_Arr) IS
v_Source_Str VARCHAR2(1000);
v_Split_Str VARCHAR2(8);
v_Count NUMBER; ----分割的个数
v_Split_Local NUMBER; ----分割符出现的位置
v_Pos_Local NUMBER; ----分割起始位置
v_Tab_Arr Xxt_Gl_Load_Vat_Pkg.Type_Tab_Arr;
BEGIN
Retcode := 0;
v_Pos_Local := 1;
v_Count := 1;
v_Source_Str := p_Source_Str;
v_Split_Str := p_Split_Str;
IF Length(v_Source_Str) = 0 THEN
Log('判断1');
Errbuf := '要分割的字符串为空，请输入要分割的字符串！';
Retcode := '2';
RETURN;
END IF;
IF Length(v_Split_Str) = 0 THEN
Log('判断2');
Errbuf := '请输入要分割的界定符！';
Retcode := '2';
RETURN;
END IF;
---取出字符串的个数
SELECT Length(v_Source_Str) -
Length(REPLACE(Translate(v_Source_Str, v_Split_Str, ' '),
' ',
'')) / Length(v_Split_Str)
INTO v_Count
FROM Dual;
FOR i IN 1 .. v_Count LOOP
SELECT Instr(v_Source_Str, v_Split_Str, v_Pos_Local + 1, 1)
INTO v_Split_Local
FROM Dual;
IF v_Split_Local = 0 THEN
v_Tab_Arr(i) := v_Source_Str;
dbms_output.put_line(v_tab_arr(i));
EXIT;
ELSE
IF i = 1 THEN
v_Tab_Arr(i) := Substr(v_Source_Str,
v_Pos_Local,
v_Split_Local - v_Pos_Local);
v_Pos_Local := v_Split_Local;
Dbms_Output.Put_Line(v_Tab_Arr(i));
ELSE
v_Tab_Arr(i) := Substr(v_Source_Str,
v_Pos_Local + Length(v_Split_Str),
v_Split_Local -
(v_Pos_Local + Length(v_Split_Str)));
v_Pos_Local := v_Split_Local;
--Dbms_Output.Put_Line(v_Tab_Arr(i));
END IF;
END IF;
END LOOP;
p_Dens_Array := v_Tab_Arr;
END Str_To_Arr;

ITPub博客

以固定分隔符拆分字符串

最新文章