Comment diviser séparées par des virgules chaîne à l'intérieur d'une procédure stockée?

Comment diviser séparées par des virgules chaîne de caractères dans les chaînes à l'intérieur de magasin de procédure et de les insérer dans un champ de table?

À L'Aide De Firebird 2.5

OriginalL'auteur Yordan Yanakiev | 2011-11-08

  1. 10

    Ici un exemple de la façon de diviser la chaîne et d'écrire les sous-chaînes dans un tableau:

    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
    cool. Je vous remercie beaucoup.
    Juste à noter: il ne retournera aucun résultat pour AINPUT comme ',1,2' mais il sera de retour en trois sous-chaînes pour AINPUT comme '1,2,'.

    OriginalL'auteur Michael

  2. 10

    Je suis annonce modifiée Michael version, il sera peut-être utile pour quelqu'un.

    Les modifications sont les suivantes:

    1. SPLIT_STRING est un choix de procédure.
    2. Séparateur personnalisé est possible.
    3. Il traite aussi des cas où le séparateur est un premier caractère de la 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 ; ^
    Excellent travail @MartjinPieters 🙂
    Merci @MartijnPieters.

    OriginalL'auteur Wodzu

  3. 4

    Utilisation
    POSITION
    http://www.firebirdsql.org/refdocs/langrefupd21-intfunc-position.html

    et

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

    fonctions dans TOUT énoncé

    Bienvenue à Débordement de Pile! Tandis que ceci peut théoriquement répondre à la question, il serait préférable pour inclure l'essentiel des éléments de réponse ici, et de fournir le lien de référence. Merci

    OriginalL'auteur rstrelba

  4. 3

    Il semble bien, sauf une chose, à mon serveur Firebird Varchar taille de la déclaration de 32000 cause "de la mise en Œuvre de la limite dépassée" l'exception", alors soyez prudent. Je suggère l'utilisation de BLOB SUB_TYPE TEXTE à la place 🙂

    OriginalL'auteur Maciej Wasiak

  5. 2

    Une solution similaire que j'utilise, publié il y a un moment par Jiri 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

    OriginalL'auteur user1300484