Cómo dividir separados por comas string dentro del procedimiento almacenado?

No dejes de compartir nuestros tutoriales y códigos en tus redes, apóyanos para ampliar esta comunidad.

Solución:

Aquí un ejemplo de cómo dividir el string y escribe las subcadenas en una tabla:

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

Estoy publicando la versión modificada de Michael, tal vez sea útil para alguien.

Los cambios son:

1. SPLIT_STRING es un procedimiento seleccionable.
2. El delimitador personalizado es posible.
3. También analiza los casos en los que el delimitador es un primer carácter en 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 ; ^

Use POSICIÓN http://www.firebirdsql.org/refdocs/langrefupd21-intfunc-position.html

y

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

funciones en la instrucción WHILE DO

Si para ti ha sido de provecho este post, nos gustaría que lo compartas con más programadores de este modo nos ayudas a difundir este contenido.

---

---

Utiliza Nuestro Buscador