كود عكس النص (FUNCTION)

CREATE OR REPLACE function ERP.reverse_string_seg(p_string varchar2) return varchar2 is
    v_string_parameter  varchar2(4000) := p_string;
    v_string_1          varchar2(4000);
    v_string_2          varchar2(4000);
    v_symbole           varchar2(4000);
    v_last_string       varchar2(4000);
    v_index             number;
begin
    dbms_output.put_line('v_string_parameter='||v_string_parameter);
    
    select  regexp_instr(v_string_parameter, '\D')
    into    v_index
    from    dual;
    
    dbms_output.put_line('v_index='||v_index);
    v_string_1  := substr(v_string_parameter, v_index + 1 );
    dbms_output.put_line('v_string_1='||v_string_1);
    v_string_2  := substr(v_string_parameter, 1, v_index - 1 );
    dbms_output.put_line('v_string_2='||v_string_2);
    
    select  regexp_replace(v_string_parameter, '\d')
    into    v_symbole
    from    dual;
        
    v_last_string   := v_string_1 ||v_symbole|| v_string_2;
    return (v_last_string);
end;