diff --git a/ora/string_util_pkg.pkb b/ora/string_util_pkg.pkb index de009e6..8c70058 100755 --- a/ora/string_util_pkg.pkb +++ b/ora/string_util_pkg.pkb @@ -487,6 +487,28 @@ begin end remove_non_alpha_chars; +function is_str_alphanumeric (p_str in varchar2) return boolean +as + l_returnvalue boolean; +begin + + /* + + Purpose: returns true if string is alphanumeric + + Who Date Description + ------ ---------- ------------------------------------- + MJH 12.05.2015 Created + + */ + + l_returnvalue := regexp_instr(p_str, '[^a-z|A-Z|0-9]') = 0; + + return l_returnvalue; + +end is_str_alphanumeric; + + function is_str_empty (p_str in varchar2) return boolean as l_returnvalue boolean; diff --git a/ora/string_util_pkg.pks b/ora/string_util_pkg.pks index 3fbc4db..a665e5d 100755 --- a/ora/string_util_pkg.pks +++ b/ora/string_util_pkg.pks @@ -92,6 +92,9 @@ as -- remove all non-alpha characters (A-Z) from string function remove_non_alpha_chars (p_str in varchar2) return varchar2; + -- returns true if string is alphanumeric + function is_str_alphanumeric (p_str in varchar2) return boolean; + -- returns true if string is "empty" (contains only whitespace characters) function is_str_empty (p_str in varchar2) return boolean;