如何在oracle 9i中最好地分割csvstring

我希望能够在Oracle 9i中分割csvstring

我读过以下文章http://www.oappssurd.com/2009/03/string-split-in-oracle.html

但我不明白如何使这项工作。 这里有一些与我有关的问题

  1. 这将在Oracle 9i中工作,如果没有,为什么不呢?
  2. 有没有更好的方法去分裂csvstring,然后提出上面的解决scheme?
  3. 我需要创build一个新的types? 如果是这样,我需要特定privilages呢?
  4. 我可以在函数中声明types吗?

这是一个Oracle的string标记器,比这个页面更简单一些,但是不知道它是否一样快:

create or replace function splitter_count(str in varchar2, delim in char) return int as val int; begin val := length(replace(str, delim, delim || ' ')); return val - length(str); end; create type token_list is varray(100) of varchar2(200); CREATE or replace function tokenize (str varchar2, delim char) return token_list as ret token_list; target int; i int; this_delim int; last_delim int; BEGIN ret := token_list(); i := 1; last_delim := 0; target := splitter_count(str, delim); while i <= target loop ret.extend(); this_delim := instr(str, delim, 1, i); ret(i):= substr(str, last_delim + 1, this_delim - last_delim -1); i := i + 1; last_delim := this_delim; end loop; ret.extend(); ret(i):= substr(str, last_delim + 1); return ret; end; 

你可以像这样使用它:

 select tokenize('hi you person', ' ') from dual; VARCHAR(hi,you,person) 

乔伊斯,

这里有三个例子:

1)使用dbms_utility.comma_to_table。 这不是一个通用的例程,因为这些元素应该是有效的标识符。 用一些肮脏的技巧,我们可以使其工作更普遍:

 SQL> declare 2 cn_non_occuring_prefix constant varchar2(4) := 'zzzz'; 3 mystring varchar2(2000):='a:sd:dfg:31456:dasd: :sdfsdf'; -- just an example 4 l_tablen binary_integer; 5 l_tab dbms_utility.uncl_array; 6 begin 7 dbms_utility.comma_to_table 8 ( list => cn_non_occuring_prefix || replace(mystring,':',','||cn_non_occuring_prefix) 9 , tablen => l_tablen 10 , tab => l_tab 11 ); 12 for i in 1..l_tablen 13 loop 14 dbms_output.put_line(substr(l_tab(i),1+length(cn_non_occuring_prefix))); 15 end loop; 16 end; 17 / a sd dfg 31456 dasd sdfsdf PL/SQL-procedure is geslaagd. 

2)使用SQL的级别连接。 如果你在10g或更高,你可以使用连接级别的方法结合正则expression式,如下所示:

 SQL> declare 2 mystring varchar2(2000):='a:sd:dfg:31456:dasd: :sdfsdf'; -- just an example 3 begin 4 for r in 5 ( select regexp_substr(mystring,'[^:]+',1,level) element 6 from dual 7 connect by level <= length(regexp_replace(mystring,'[^:]+')) + 1 8 ) 9 loop 10 dbms_output.put_line(r.element); 11 end loop; 12 end; 13 / a sd dfg 31456 dasd sdfsdf PL/SQL-procedure is geslaagd. 

3)再次使用SQL的级别连接,但现在结合良好的旧SUBSTR / INSTR的情况下,你是在版本9,就像你是:

  SQL> declare 2 mystring varchar2(2000):='a:sd:dfg:31456:dasd: :sdfsdf'; -- just an example 3 begin 4 for r in 5 ( select substr 6 ( str 7 , instr(str,':',1,level) + 1 8 , instr(str,':',1,level+1) - instr(str,':',1,level) - 1 9 ) element 10 from (select ':' || mystring || ':' str from dual) 11 connect by level <= length(str) - length(replace(str,':')) - 1 12 ) 13 loop 14 dbms_output.put_line(r.element); 15 end loop; 16 end; 17 / a sd dfg 31456 dasd sdfsdf PL/SQL-procedure is geslaagd. 

你可以在这篇博文中看到更多这样的技术: http: //rwijk.blogspot.com/2007/11/interval-based-row-generation.html

希望这可以帮助。

关心,罗布。


为了解决您的意见:

将分离值插入标准化表格的示例。

首先创build表格:

 SQL> create table csv_table (col) 2 as 3 select 'a,sd,dfg,31456,dasd,,sdfsdf' from dual union all 4 select 'a,bb,ccc,dddd' from dual union all 5 select 'zz,yy,' from dual 6 / Table created. SQL> create table normalized_table (value varchar2(10)) 2 / Table created. 

因为您对dbms_utility.comma_to_table方法感兴趣,所以我在这里提到它。 但是,我当然不推荐这个变体,因为标识符怪癖和缓慢的逐行处理。

 SQL> declare 2 cn_non_occuring_prefix constant varchar2(4) := 'zzzz'; 3 l_tablen binary_integer; 4 l_tab dbms_utility.uncl_array; 5 begin 6 for r in (select col from csv_table) 7 loop 8 dbms_utility.comma_to_table 9 ( list => cn_non_occuring_prefix || replace(r.col,',',','||cn_non_occuring_prefix) 10 , tablen => l_tablen 11 , tab => l_tab 12 ); 13 forall i in 1..l_tablen 14 insert into normalized_table (value) 15 values (substr(l_tab(i),length(cn_non_occuring_prefix)+1)) 16 ; 17 end loop; 18 end; 19 / PL/SQL procedure successfully completed. SQL> select * from normalized_table 2 / VALUE ---------- a sd dfg 31456 dasd sdfsdf a bb ccc dddd zz yy 14 rows selected. 

我build议这个单一的SQL变体:

 SQL> truncate table normalized_table 2 / Table truncated. SQL> insert into normalized_table (value) 2 select substr 3 ( col 4 , instr(col,',',1,l) + 1 5 , instr(col,',',1,l+1) - instr(col,',',1,l) - 1 6 ) 7 from ( select ',' || col || ',' col from csv_table ) 8 , ( select level l from dual connect by level <= 100 ) 9 where l <= length(col) - length(replace(col,',')) - 1 10 / 14 rows created. SQL> select * from normalized_table 2 / VALUE ---------- a a zz sd bb yy dfg ccc 31456 dddd dasd sdfsdf 14 rows selected. 

关心,罗布。

你可能想要更清楚你想做什么,然后我们可以给你一个具体的答案。 显示你的一些代码总是有帮助:)

如果使用的是参数,要分割一串csv数字(例如:1,2,3,4),那么在IN语句中使用它可以查看问题670922中的函数str2tbl() 。 通过一些更改,您可以将其更改为VARCHAR2或任何您需要的内容。

在下面你可以设置:sMyCatagories等于'1,2,3,4'

 create or replace type myTableType as table of number; create or replace function str2tbl( p_str in varchar2 ) return myTableType as l_str long default p_str || ','; l_n number; l_data myTableType := myTabletype(); begin loop l_n := instr( l_str, ',' ); exit when (nvl(l_n,0) = 0); l_data.extend; l_data( l_data.count ) := ltrim(rtrim(substr(l_str,1,l_n-1))); l_str := substr( l_str, l_n+1 ); end loop; return l_data; end; 

并使用它在select声明….

 SELECT * FROM atable a WHERE a.category in ( select * from INLIST ( select cast(str2tbl(:sMyCatagories) as mytableType) from dual ) ); 

这实际上只有在使用参数时才有用。 如果在应用程序中一起使用SQL,那么只需使用正常的IN语句即可。

 SELECT * FROM atable a WHERE a.category in (1,2,3,4); 

我最终使用了这个

 create or replace function split ( p_list varchar2 ) return sys.dbms_debug_vc2coll pipelined is l_idx pls_integer; l_list varchar2(32767) := p_list; l_value varchar2(32767); begin loop l_idx := instr(l_list,','); if l_idx > 0 then pipe row(substr(l_list,1,l_idx-1)); l_list := substr(l_list,l_idx+length(',')); else pipe row(l_list); exit; end if; end loop; return; end split; 

 declare CURSOR c IS select occurrence_num, graphics from supp where graphics is not null and graphics not like ' %'; begin FOR r IN c LOOP insert into image (photo_id,report_id, filename) select image_key_seq.nextval photo_id, r.occurrence_num report_id, t.column_value filename from table(split(cast(r.graphics as varchar2(1000)))) t where t.column_value is not null; END LOOP; end ; 

这听起来像你不想添加架构(types,function)。 parsing分隔文本的一种方法是用instr和substr调用“疯狂”。

  DECLARE V_CSV_STRING VARCHAR2(100); BEGIN --Create a test delimited list of first_name, last_name, middle_init V_CSV_STRING := 'Brian,Hart,M'; select substr( V_CSV_STRING||',', 1, instr(V_CSV_STRING,',')-1 ) FIRST_NAME, substr( V_CSV_STRING||',,', instr( V_CSV_STRING||',,', ',') +1, instr( V_CSV_STRING||',,', ',', 1, 2 )-instr(V_CSV_STRING||',,',',')-1 ) LAST_NAME, rtrim(substr( V_CSV_STRING||',,', instr( V_CSV_STRING||',,',',',1,2)+1),',') MIDDLE_INIT from dual; END; 

如果你正在寻找一个结构并添加适当的应用程序代码(函数,视图,types等等),我会看看Tom Kyte关于这个主题的文章 。

  • 使用C#读取CSV文件
  • 在存储过程中截断表
  • 你能用Oracle使用Microsoft Entity Framework吗?
  • HTMLinput=“文件”接受属性文件types(CSV)
  • 如何在Oracle中插入时间戳?
  • 在Oracle中查找string的最后一个索引
  • Python DictWriter编写UTF-8编码的CSV文件
  • 如何拆分列可能包含的csv,
  • 在JSON转换为CSV期间保持JSON密钥的顺序
  • 在read.csv中指定colClasses
  • 如何导入一个CSV文件使用Python与标题完好无损,其中第一列是一个非数字