Tips & Trucs

Weg met dubbele spaties

Het leuke van functies is dat ze zichzelf kunnen aanroepen. We noemen dit ook wel een zogenaamde 'recursive function'. Altijd leuk om een oneindige loop mee te veroorzaken... Hieronder volgt een script om dubbele spaties in een string te vervangen door enkele:

CREATE OR REPLACE FUNCTION single_space (p_data VARCHAR2)
RETURN VARCHAR2
IS

  v_data VARCHAR2 (2000) :=
         REPLACE (LTRIM (RTRIM (p_data)), ' ', ' '); 

BEGIN

  IF INSTR (v_data, ' ') > 0
  THEN
     RETURN single_space (v_data);
  ELSE
     RETURN (v_data);
  END IF;

END single_space;