thanks for your input!

I need my f_split versions for selects like:

SELECT * FROM TABLE(f_split('eins@@zwei@@drei'));

That is i can use it as join table in arbitrary selects.

Have a great day,
Michael.

The difference is the f_split will do everything for you (it will parse the whole string) whereas this one will only fecth one at a time. Might be useful for some

This is the procedure:

create or replace procedure tokenizer(iStart   IN NUMBER,
                                      sPattern in VARCHAR2,
                                      sBuffer  in VARCHAR2,
                                      sResult  OUT VARCHAR2,
                                      iNextPos OUT NUMBER) AS
  nPos1 number;
  nPos2 number;
BEGIN
  nPos1 := Instr(sBuffer, sPattern, iStart);
  IF nPos1 = 0 then
    sResult := NULL;
  ELSE
    nPos2 := Instr(sBuffer, sPattern, nPos1 + 1);
    IF nPos2 = 0 then
      sResult  := Rtrim(Ltrim(Substr(sBuffer, nPos1 + 1)));
      iNextPos := nPos2;
    else
      sResult  := Substr(sBuffer, nPos1 + 1, nPos2 - nPos1 - 1);
      iNextPos := nPos2;
    END IF;
  END IF;
END tokenizer;

--This is to test it.
create or replace procedure sp_test_tokenizer as
  sepr   varchar2(1);
  sbuf   varchar2(200);
  sres   varchar2(200);
  pos    number;
  istart number;
begin

  sbuf   := '@0@11@222@3333@44444@555555@6666666@77777777@888888888';
  sepr   := '@';
  istart := 1;
  tokenizer(istart, sepr, sbuf, sres, pos);
  if (pos  0) then
    dbms_output.put_line(sres);
  end if;
  while (pos  0) loop
    istart := pos;
    tokenizer(istart, sepr, sbuf, sres, pos);
    dbms_output.put_line(sres);
  end loop;
END sp_test_tokenizer;