CREATE FUNCTION sp_sys_Translate_Log_RemoveOper (
  IN @Script long varchar
)
RETURNS long varchar
BEGIN
  DECLARE @Pos unsigned int;
  DECLARE @BeginPos unsigned int;
  DECLARE @Str long varchar;
  DECLARE @Oper char( 30 );

  SET @Script = Char( 13 ) || Char( 10 ) || @Script || Char( 13 ) || Char( 10 );

  SET @Pos = Locate(@Script, Char( 13 ) || Char( 10 ) || '--',  1 );
  WHILE @Pos >  0 
  LOOP
    // Получаем строку точки сохранения
    SET @Str = SubStr(@Script, @Pos +  2 , Locate(@Script, Char( 13 ) || Char( 10 ), @Pos +  2 ) - @Pos -  2 );

    // Обрабатываем, если строка является точкой сохранения
    IF PatIndex('--%-%-%', @Str) =  1 
    THEN
      IF @BeginPos IS NOT NULL
      THEN
        SET @Script = Stuff(@Script, @BeginPos, @Pos - @BeginPos, NULL);
        SET @Pos = @BeginPos;
        SET @BeginPos = NULL;
      END IF;

      SET @Oper = SubStr(@Str,  3 , Locate(@Str, '-',  3 ) -  3 );
      IF EXISTS(SELECT * FROM #Exclude_Opers WHERE Oper = @Oper)
      THEN
        SET @BeginPos = @Pos;
      END IF;
      SET @Pos = @Pos +  2 ;
    ELSE
      SET @Pos = @Pos +  2 ;
    END IF;

    SET @Pos = Locate(@Script, Char( 13 ) || Char( 10 ) || '--', @Pos);
  END LOOP;

  IF @BeginPos IS NOT NULL
  THEN
    SET @Script = SubStr(@Script,  1 , @BeginPos -  1 );
  END IF;

  RETURN Trim(@Script);
END;
COMMENT ON PROCEDURE sp_sys_Translate_Log_RemoveOper IS 'Убрать из скрипта лог-файла ненужные операторы';

CREATE PROCEDURE sp_sys_Translate_Log (
  IN @FileName char( 2000 ),
  IN @StartTime timestamp DEFAULT NULL,
  IN @EndTime timestamp DEFAULT NULL,
  IN @AllowCheckPoint bit DEFAULT  1 ,
  IN @AllowConnect bit DEFAULT  1 ,
  IN @AllowDDL bit DEFAULT  1 ,
  IN @AllowDML bit DEFAULT  1 
)
RESULT (
  Num unsigned int,
  OffSet char( 10 ),
  CheckpointTime timestamp,
  Script long varchar
)
BEGIN
  DECLARE @Data long varchar;
  DECLARE @Pos unsigned int;
  DECLARE @Str long varchar;
  DECLARE @Script long varchar;
  DECLARE @ProcessScript bit;

  DECLARE @CurrentTime timestamp;
  DECLARE @BeginTime timestamp;
  DECLARE @BeginPos unsigned int;
  DECLARE @Offs char( 10 );
  DECLARE @ScriptLen unsigned int;

  // Исключаемые операторы
  DECLARE LOCAL TEMPORARY TABLE #Exclude_Opers (
    Oper char( 30 ) NOT NULL PRIMARY KEY,
    PCTFREE  0 
  ) NOT TRANSACTIONAL;

  // Точки сохранения
  DECLARE LOCAL TEMPORARY TABLE #Result (
    Num unsigned int NOT NULL DEFAULT AUTOINCREMENT NOT NULL,
    Offs char( 10 ) NULL,
    CheckpointTime timestamp NULL,
    Script long varchar NOT NULL,
    PCTFREE  0 
  ) NOT TRANSACTIONAL;

  // Считываем транслированный скрипт лог-файла
  SET @Data = Char( 13 ) || Char( 10 ) || xp_read_File(@FileName);
  IF @Data IS NULL
  THEN
    RAISERROR  20000  'Файл "' || @SQLFileName || '" не обнаружен';
    RETURN;
  END IF;

  SET @ProcessScript =  0 ;

  IF @AllowCheckPoint =  0 
  THEN
    INSERT INTO #Exclude_Opers (Oper)
      SELECT 'CHECKPOINT';

    SET @ProcessScript =  1 ;
  END IF;

  IF @AllowConnect =  0 
  THEN
    INSERT INTO #Exclude_Opers (Oper)
      SELECT 'CONNECT';

    SET @ProcessScript =  1 ;
  END IF;

  IF @AllowDML =  0 
  THEN
    INSERT INTO #Exclude_Opers (Oper)
      SELECT 'BEGIN TRANSACTION'
      UNION ALL
      SELECT 'INSERT'
      UNION ALL
      SELECT 'UPDATE'
      UNION ALL
      SELECT 'DELETE'
      UNION ALL
      SELECT 'COMMIT'
      UNION ALL
      SELECT 'ROLLBACK';

    SET @ProcessScript =  1 ;
  END IF;

  IF @AllowDDL =  0 
  THEN
    INSERT INTO #Exclude_Opers (Oper)
      SELECT 'SQL';

    SET @ProcessScript =  1 ;
  END IF;

  // Ищем первую точку сохранения
  SET @Pos = Locate(@Data, Char( 13 ) || Char( 10 ) || '--CHECKPOINT-',  1 );
  SET @BeginPos =  1 ;

  WHILE @Pos >  0 
  LOOP
    // Получаем строку точки сохранения
    SET @Str = SubStr(@Data, @Pos +  2 , Locate(@Data, Char( 13 ) || Char( 10 ), @Pos +  2 ) - @Pos -  2 );
    // Обрабатываем, если строка является точкой сохранения
    IF PatIndex('--CHECKPOINT-____-__________-____-__-__ __:__', @Str) =  1 
    THEN
      // Обрабатываем предыдущую точку сохранения
      SET @ScriptLen = @Pos - @BeginPos;
      SET @Script = Trim(SubStr(@Data, @BeginPos, @ScriptLen));

      // Записываем скрипт, если в точке сохранения он присутствует
      IF @Script <> ''
      THEN
        IF (@StartTime IS NULL OR @StartTime <= @BeginTime) AND (@EndTime IS NULL OR @EndTime >= @BeginTime)
        THEN
          MESSAGE 'Proccessing chekpoin on ' || @BeginTime TO CLIENT;

          IF @ProcessScript =  1 
          THEN
            SET @Script = sp_sys_Translate_Log_RemoveOper(@Script);
          END IF;

          IF @Script <> ''
          THEN
            INSERT INTO #Result (Offs, CheckPointTime, Script)
            VALUES(@Offs, @BeginTime, @Script);
          END IF;
        END IF;
      END IF;

      // Получаем данные точки сохранения
      SET @BeginTime = CONVERT(timestamp, SubStr(@Str,  30 ,  16 ));
      SET @Offs = SubStr(@Str,  19 ,  10 );
      SET @BeginPos = @Pos +  2 ;
      SET @Pos = @BeginPos;
    ELSE
      SET @Pos = @Pos +  15 ;
    END IF;
    // Ищем следующую точку сохранения
    SET @Pos = Locate(@Data, Char( 13 ) || Char( 10 ) || '--CHECKPOINT-', @Pos);
  END LOOP;

  IF @BeginPos IS NOT NULL
  THEN
    SET @Pos = Length(@Data) +  1 ;
    SET @ScriptLen = @Pos - @BeginPos;
    SET @Script = Trim(SubStr(@Data, @BeginPos, @ScriptLen));

    IF @Script <> ''
    THEN
      IF (@StartTime IS NULL OR @StartTime <= @BeginTime) AND (@EndTime IS NULL OR @EndTime >= @BeginTime)
      THEN
        MESSAGE 'Proccessing chekpoin on ' || @BeginTime TO CLIENT;

        IF @ProcessScript =  1 
        THEN
          SET @Script = sp_sys_Translate_Log_RemoveOper(@Script);
        END IF;

        IF @Script <> ''
        THEN
          INSERT INTO #Result (Offs, CheckPointTime, Script)
          VALUES(@Offs, @BeginTime, @Script);
        END IF;
      END IF;
    END IF;
  END IF;

  // Выводим результат
  SELECT Num, Offs, CheckPointTime, Script
  FROM #Result;
END;
COMMENT ON PROCEDURE sp_sys_Translate_Log IS 'Обработать скрипты лог-файла';

SELECT Num, Offs, CheckPointTime, Script
FROM .sp_sys_Translate_Log (
  @FileName = 'D:\\BACKUP\\Test\log.sql', 
  @StartTime = '2006-02-09 00:00',
  @EndTime = '2006-02-09 23:59',
  @AllowCheckPoint =  0 ,
  @AllowConnect =  0 ,
  @AllowDML =  0 , 
  @AllowDDL =  1 
)
ORDER BY Num;