Tips & Trucs

Leesbaarheid van string bepalen

Met het volgende script kunt u vaststellen of een string uitsluitend leesbare karakters bevat, of niet.

  CREATE OR REPLACE function IsLegible
     (ASTRING varchar2)
     RETURN number deterministic
  IS
     RETURN_VALUE number := 0;
     LENGTH_ASTRING number := 0; 
     ASCII_VALUE number := 0;
  BEGIN
     LENGTH_ASTRING
          := length(ltrim(rtrim(ASTRING)));
     if (LENGTH_ASTRING != 0)
     then
         for i in 1..length(ASTRING)
         loop
          ASCII_VALUE :=
              ascii(substr(ASTRING,
              i,(length(ASTRING)-i+1)));
              
          if (ASCII_VALUE >= 32
          and ASCII_VALUE <= 126 )
          then 
              RETURN_VALUE := 1; 
          else
              RETURN_VALUE := 888;
              return RETURN_VALUE;
          end if;
         end loop;
  else
      RETURN_VALUE := 0;
  end if;
  
  return RETURN_VALUE;
  
  exception 
      when VALUE_ERROR then return 999;
  end;