From b557efce4c980065ded54a57876d17a5a5206fc3 Mon Sep 17 00:00:00 2001 From: Morten Braten Date: Fri, 30 Oct 2015 14:24:15 +0100 Subject: [PATCH] Added add_token procedure --- ora/string_util_pkg.pkb | 27 +++++++++++++++++++++++++++ ora/string_util_pkg.pks | 9 +++++++-- 2 files changed, 34 insertions(+), 2 deletions(-) diff --git a/ora/string_util_pkg.pkb b/ora/string_util_pkg.pkb index b1b168b..3304d77 100755 --- a/ora/string_util_pkg.pkb +++ b/ora/string_util_pkg.pkb @@ -98,6 +98,33 @@ begin end get_str; +procedure add_token (p_text in out varchar2, + p_token in varchar2, + p_separator in varchar2 := g_default_separator) +as +begin + + /* + + Purpose: add token to string + + Remarks: + + Who Date Description + ------ ---------- ------------------------------------- + MBR 30.10.2015 Created + + */ + + if p_text is null then + p_text := p_token; + else + p_text := p_text || p_separator || p_token; + end if; + +end add_token; + + function get_nth_token(p_text in varchar2, p_num in number, p_separator in varchar2 := g_default_separator) return varchar2 diff --git a/ora/string_util_pkg.pks b/ora/string_util_pkg.pks index bf5667f..f901797 100755 --- a/ora/string_util_pkg.pks +++ b/ora/string_util_pkg.pks @@ -34,8 +34,8 @@ as g_tab constant varchar2(1) := chr(9); g_ampersand constant varchar2(1) := chr(38); - g_html_entity_carriage_return constant varchar2(5) := ' '; - g_html_nbsp constant varchar2(6) := ' '; + g_html_entity_carriage_return constant varchar2(5) := chr(38) || '#13;'; + g_html_nbsp constant varchar2(6) := chr(38) || 'nbsp;'; -- return string merged with substitution values function get_str (p_msg in varchar2, @@ -48,6 +48,11 @@ as p_value7 in varchar2 := null, p_value8 in varchar2 := null) return varchar2; + -- add token to string + procedure add_token (p_text in out varchar2, + p_token in varchar2, + p_separator in varchar2 := g_default_separator); + -- get the sub-string at the Nth position function get_nth_token(p_text in varchar2, p_num in number,