create or alter procedure SPLIT (
    SOURCE varchar(32000),
    DELIMITER varchar(256),
    WITH_EMPTY smallint = 1)
returns (
    NN integer,
    WORD varchar(4096))
AS
declare variable I integer;
declare variable START_FROM integer;
declare variable ELEMENT varchar(1024);
declare variable SOURCE_LENGTH integer;
declare variable DELIMITER_LENGTH integer;
begin
/*==============================================================================
  Режет текст по разделителю
  Auhor: Alex Bekhtin
  Date: XX.6-7.2008
  GROUP: Утилитарные
---
  with_empty - флаг указывается для сохранения пустых элементов, например

select * from split('aaa;;;bbb;ccc;', ';', 1)
----------
NN    WORD
1    aaa
2    
3    
4    bbb
5    ccc
6

select * from split('aaa;;;bbb;ccc', ';', 0)
----------
NN    WORD
1    aaa
2    bbb
3    ccc
==============================================================================*/
  if (:delimiter is null) then
  begin
    exception dev_error 'Не задан разделитель!';
  end
  nn = 1;
  i = 1;
  start_from = 1;
  source_length = character_length(:source);
  delimiter_length = character_length(:delimiter);
  while ( i <= (source_length - delimiter_length + 1) ) do
  begin
    element = substring(source from i for delimiter_length);
    if ( element = delimiter ) then
    begin
      if ( i = start_from ) then
      begin
        if ( with_empty = 1 ) then
        begin
          word = '';
          suspend;
          NN = NN + 1;
        end
      end
      else /* i <> start_from */
      begin
        word = substring(source from :start_from for :i - :start_from);
        suspend;
        NN = NN + 1;
      end

      if ( (i + delimiter_length = source_length + 1) and (with_empty = 1) ) then
      begin
        word = '';
        suspend;
        exit;
      end

      start_from = i + delimiter_length;
      i = start_from;
    end
    else
    begin
      i = i + 1;
    end
  end

  if ( start_from <= character_length(source) ) then
  begin
    word = substring(source from start_from);
    suspend;
  end
end