Wie teilt man durch Komma getrennte Zeichenfolge innerhalb der gespeicherten Prozedur?

Wie split-Komma-separierten string in Zeichenfolgen, die in der Prozedur speichern und legen Sie Sie in ein Feld einer Tabelle?

Verwendung Von Firebird 2.5

InformationsquelleAutor Yordan Yanakiev | 2011-11-08
  1. 10

    Hier ein Beispiel, wie die split die Zeichenfolge und schreiben der sub-strings in eine Tabelle:

    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. Ich danke Ihnen sehr.
    • Nur der Hinweis: es wird nicht wieder jede Folge für AINPUT wie ',1,2' aber wird es wieder drei Teilzeichenfolgen für AINPUT wie '1,2,'.
    InformationsquelleAutor Michael
  2. 10

    Ich bin Entsendung geändert Michaels version, vielleicht wird es nützlich sein für jemanden.

    Die änderungen sind:

    1. SPLIT_STRING ist eine wählbare Verfahren.
    2. Benutzerdefinierte Trennzeichen möglich ist.
    3. Es analysiert auch die Fälle, wenn die Trennzeichen ist ein erstes Zeichen in der 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 ; ^
    • Tolle Arbeit @MartjinPieters 🙂
    • Danke @MartijnPieters.
    InformationsquelleAutor Wodzu
Schreibe einen Kommentar