lob to csv
发布时间:2020-12-11 23:13:50 所属栏目:MySql教程 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 function clob_to_csv (p_csv_clob in clob,p_separator in varchar2 := g_default_separator,p_skip_rows in number := 0) return t_csv_tab pipelin
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 function clob_to_csv (p_csv_clob in clob,p_separator in varchar2 := g_default_separator,p_skip_rows in number := 0) return t_csv_tab pipelined as l_line_separator varchar2(2) := chr(13) || chr(10);--行的 分割符号 rn l_last pls_integer;--上一次的扫描位置 l_current pls_integer;--这一次的扫描位置 l_line varchar2(32000); l_line_number pls_integer := 0; l_from_line pls_integer := p_skip_rows + 1; l_line_array t_str_array; l_row t_csv_line := t_csv_line (null,null,-- line number,line raw null,-- lines 1-10 null,null); -- lines 11-20 begin /* Purpose: convert clob to CSV Remarks: based on code from http://asktom.oracle.com/pls/asktom/f?p=100:11:0::::P11_QUESTION_ID:1352202934074 and http://asktom.oracle.com/pls/asktom/f?p=100:11:0::::P11_QUESTION_ID:744825627183 Who Date Description ------ ---------- -------------------------------- MBR 31.03.2010 Created fartpig 07.03.2011 noted */ -- If the file has a DOS newline (cr+lf),use that: 如果文件时DOS的格式就是用 rn -- If the file does not have a DOS newline,use a Unix newline (lf) 如果不是就采用 unix标准 n -- 通过检索 rn 是否存在 if (nvl(dbms_lob.instr(p_csv_clob,l_line_separator,1,1),0) = 0) then l_line_separator := chr(10); end if; l_last := 1;--设定上一次扫描位置为 1 loop --检索 当前分割符号的位置 --为了能够顺利的将文件读完 需要 将传入的 LOB结尾加上一个 分割符号 l_current := dbms_lob.instr (p_csv_clob || l_line_separator,l_last,1); --当 没有找到时候 退出 exit when (nvl(l_current,0) = 0); --递增 行号 l_line_number := l_line_number + 1; if l_from_line <= l_line_number then --通过 上一次的标记和这一次的标记 获得相应的 子值 --注意这里的参数 顺序和 instr不同 ,偏移量和长度 是反过来的 l_line := dbms_lob.substr(p_csv_clob || l_line_separator,l_current - l_last + 1,l_last); --l_line := replace(l_line,''); --将得到的 子值的 rn 替换掉 l_line := replace(l_line,chr(10),''); l_line := replace(l_line,chr(13),''); --调用相应的 csv to array API来处理 得到这个行 的结果数组 l_line_array := csv_to_array (l_line,p_separator); --将获得的值 进行那个封装到 记录中 通过pip row返回 l_row.line_number := l_line_number; l_row.line_raw := substr(l_line,4000); l_row.c001 := get_array_value (l_line_array,1); l_row.c002 := get_array_value (l_line_array,2); l_row.c003 := get_array_value (l_line_array,3); l_row.c004 := get_array_value (l_line_array,4); l_row.c005 := get_array_value (l_line_array,5); l_row.c006 := get_array_value (l_line_array,6); l_row.c007 := get_array_value (l_line_array,7); l_row.c008 := get_array_value (l_line_array,8); l_row.c009 := get_array_value (l_line_array,9); l_row.c010 := get_array_value (l_line_array,10); l_row.c011 := get_array_value (l_line_array,11); l_row.c012 := get_array_value (l_line_array,12); l_row.c013 := get_array_value (l_line_array,13); l_row.c014 := get_array_value (l_line_array,14); l_row.c015 := get_array_value (l_line_array,15); l_row.c016 := get_array_value (l_line_array,16); l_row.c017 := get_array_value (l_line_array,17); l_row.c018 := get_array_value (l_line_array,18); l_row.c019 := get_array_value (l_line_array,19); l_row.c020 := get_array_value (l_line_array,20); pipe row (l_row); end if; --将使用当前的扫描位置加上行的分割符号 来替换 上一次的扫描位置 l_last := l_current + length (l_line_separator); end loop; return; end clob_to_csv; 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |