Oracle Êý¾ÝÀàÐÍ·ÖÏí

¸øÍŶÓÄÚ²¿×öµÄÒ»¸öOracle Êý¾ÝÀàÐÍ·ÖÏí£¬Ö÷ÒªÊǹØÓÚOracleÊý¾ÝÀàÐÍһЩÄÚ²¿´æ´¢½á¹¹¼°ÐÔÄܽéÉÜ¡£
 http://www.slideshare.net/yzsind/oracle-4317768
ÒÔÏÂÊÇPPTÖÐunDumpNumberº¯ÊýµÄÈ«²¿´úÂ룺
 
create or replace function unDumpNumber(iDumpStr varchar2) return number is
 
  TYPE ByteArray IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
  Bytes   ByteArray;
  Result  number;
  i       integer;
  pos1    integer;
  pos2    integer;
  pos3    integer;
  vlength integer;
begin
  result  := 0;
  pos1    := instr(iDumpStr, 'Len=') + 4;
  pos2    := instr(iDumpStr, ':');
  vlength := substr(iDumpStr, pos1, pos2 - pos1);--get length
  i       := 0;
  pos2    := pos2 + 1;
  --½«dumpµÄ×Ö·û´®Ìî³äµ½Êý×éÖÐ
  for i in 0..vlength-1
  loop
    pos3 := instr(iDumpStr, ',', pos2);
    if pos3>0 then
      Bytes(i) := trim(substr(iDumpStr, pos2, pos3 - pos2 ));
    else
      Bytes(i) := trim(substr(iDumpStr, pos2));--×îºó1×Ö½Ú
    end if;
    pos2 := pos3 + 1;
  end loop;
  --»¹Ô­NUMBER
  if Bytes(0) = 128 then --128±íʾ0
    result := 0;
  elsif Bytes(0) > 128 then --´óÓÚ128±íʾÕýÊý
    for i in 1 .. vlength - 1 loop
      result := result +
                (Bytes(i) - 1) * power(100, (Bytes(0) - 193) - i+1);
    end loop;
  else --СÓÚ128±íʾ¸ºÊý
    for i in 1 .. vlength - 2 loop
      result := result +
        &nb