Code snippets | spali.ch

Because I usually use en-US installations on servers but won’t miss my input to be local Swiss German, I have to change this also for the Logon screen.

Windows 2012 seems to be a buggy here, because during an installation, I set this already to be Swiss German.

But after successfully installation, on the login screen the input is always set to en-US. Even I login and copy my settings with intl.cpl to the login screen, I didn’t had success.

I found a useful post about this on Thorsten’s blog
The following worked for me:

Set-WinDefaultInputMethodOverride "0807:00000807"

1	Set-WinDefaultInputMethodOverride "0807:00000807"

and used regedit to set in the key HKCU\Keyboard Layout\Preload the value 1 to 00000807 and deleted all other values there.

create or replace package regexp# is
  type t_char_tab             is table of varchar2(32767);

  function regexp_split(
    i_string                 varchar2
   ,i_regexp                 varchar2
   ,i_mode                   varchar2        := ''
  ) return t_char_tab;

end regexp#;
/

create or replace package body regexp# is

  function regexp_split(
    i_string                 varchar2
   ,i_regexp                 varchar2
   ,i_mode                   varchar2        := ''
  ) return t_char_tab
  is
    l_arr                    t_char_tab     := t_char_tab();
    l_occurrence             pls_integer;
    l_pos_start              pls_integer    := 1;
    l_pos_end                pls_integer    := 1;
  begin
    l_occurrence := nvl(regexp_count(i_string, i_regexp, 1, i_mode),0)+1;
    l_arr.extend(l_occurrence);
    for i in 1..l_occurrence loop
      if i = l_occurrence then
        l_pos_end := length(i_string)+1;
      else
        l_pos_end := regexp_instr(i_string, i_regexp, 1, i, 0, i_mode);
      end if;
      l_arr(i) := substr(i_string, l_pos_start, l_pos_end - l_pos_start);
      l_pos_start := regexp_instr(i_string, i_regexp, 1, i, 1, i_mode);
    end loop;
    return l_arr;
  end regexp_split;

end regexp#;
/

-- example usage
declare
  l_arr  regexp#.t_char_tab;
begin
  l_arr := regexp#.regexp_split('test1 test2  test3',' +');
  for i in 1..l_arr.count loop
    dbms_output.put_line('>' || l_arr(i) || '<');
  end loop;
end;
/

create or replace package regexp# is

type t_char_tab is table of varchar2(32767);

function regexp_split(

i_string varchar2

,i_regexp varchar2

,i_mode varchar2 := ''

) return t_char_tab;

end regexp#;

create or replace package body regexp# is

function regexp_split(

i_string varchar2

,i_regexp varchar2

,i_mode varchar2 := ''

) return t_char_tab

l_arr t_char_tab := t_char_tab();

l_occurrence pls_integer;

l_pos_start pls_integer := 1;

l_pos_end pls_integer := 1;

begin

l_occurrence := nvl(regexp_count(i_string, i_regexp, 1, i_mode),0)+1;

l_arr.extend(l_occurrence);

for i in 1..l_occurrence loop

if i = l_occurrence then

l_pos_end := length(i_string)+1;

else

l_pos_end := regexp_instr(i_string, i_regexp, 1, i, 0, i_mode);

end if;

l_arr(i) := substr(i_string, l_pos_start, l_pos_end - l_pos_start);

l_pos_start := regexp_instr(i_string, i_regexp, 1, i, 1, i_mode);

end loop;

return l_arr;

end regexp_split;

end regexp#;

-- example usage

declare

l_arr regexp#.t_char_tab;

begin

l_arr := regexp#.regexp_split('test1 test2 test3',' +');

for i in 1..l_arr.count loop

dbms_output.put_line('>' || l_arr(i) || '<');

end loop;

end;

Username
Password
Connect with:
	Remember Me Lost your password?

spali.ch

Category Archives: Code snippets

Managing drives and volumes in Windows Server 2012 Core

PL/SQL split function with regulary expression support