如何在存儲過程中拆分逗號分隔的字符串？

Question

如何將逗號分隔的字符串拆分爲存儲過程中的字符串並將它們插入到表字段中？

使用火鳥2.5

Answer 1

這裏的樣本如何分割字符串，並WRI將子字符串轉換爲表格：

create procedure SPLIT_STRING (
    AINPUT varchar(8192)) 
as 
declare variable LASTPOS integer; 
declare variable NEXTPOS integer; 
declare variable TEMPSTR varchar(8192); 
begin 
    AINPUT = :AINPUT || ','; 
    LASTPOS = 1; 
    NEXTPOS = position(',', :AINPUT, LASTPOS); 
    while (:NEXTPOS > 1) do 
    begin 
    TEMPSTR = substring(:AINPUT from :LASTPOS for :NEXTPOS - :LASTPOS); 
    insert into new_table("VALUE") values(:TEMPSTR); 
    LASTPOS = :NEXTPOS + 1; 
    NEXTPOS = position(',', :AINPUT, LASTPOS); 
    end 
    suspend; 
end 

Answer 2

使用 位置 http://www.firebirdsql.org/refdocs/langrefupd21-intfunc-position.html

和

SUSTRING http://www.firebirdsql.org/refdocs/langrefupd21-intfunc-substring.html

在WHILE功能DO語句

Answer 3

我發佈了修改後的邁克爾版本，也許它會對某人有用。

的變化是：

1. SPLIT_STRING是可選步驟。
2. 自定義分隔符是可能的。
3. 它還分析了分隔符是P_STRING中第一個字符的情況。

set term^; 
create procedure split_string (
    p_string varchar(32000), 
    p_splitter char(1)) 
returns (
    part varchar(32000) 
) 
as 
    declare variable lastpos integer; 
    declare variable nextpos integer; 
begin 
    p_string = :p_string || :p_splitter; 
    lastpos = 1; 
    nextpos = position(:p_splitter, :p_string, lastpos); 
    if (lastpos = nextpos) then 
     begin 
      part = substring(:p_string from :lastpos for :nextpos - :lastpos); 
      suspend; 
      lastpos = :nextpos + 1; 
      nextpos = position(:p_splitter, :p_string, lastpos); 
     end 
    while (:nextpos > 1) do 
     begin 
      part = substring(:p_string from :lastpos for :nextpos - :lastpos); 
      lastpos = :nextpos + 1; 
      nextpos = position(:p_splitter, :p_string, lastpos); 
      suspend; 
     end 
end^ 
set term ;^

Answer 4

它看起來只是有一點好，我的火鳥服務器的Varchar大小申報32000事業「實施超限」的例外，所以要小心。我建議使用BLOB SUB_TYPE文本而不是:)

Answer 5

類似的解決方案，我用，在以前發表的由吉日Cincura http://blog.cincura.net/232347-tokenize-string-in-sql-firebird-syntax/

recreate procedure Tokenize(input varchar(1024), token char(1)) 
returns (result varchar(255)) 
as 
declare newpos int; 
declare oldpos int; 
begin 
    oldpos = 1; 
    newpos = 1; 
    while (1 = 1) do 
    begin 
    newpos = position(token, input, oldpos); 
    if (newpos > 0) then 
    begin 
     result = substring(input from oldpos for newpos - oldpos); 
     suspend; 
     oldpos = newpos + 1; 
    end 
    else if (oldpos - 1 < char_length(input)) then 
    begin 
     result = substring(input from oldpos); 
     suspend; 
     break; 
    end 
    else 
    begin 
     break; 
    end 
    end 
end