[ORALCE] instr, substr

에구~ oracle은 어렵다 ㅠ.ㅠ

이번엔 DB에서 파일명이 저장된 레코드를 가져와 파일명과 확장자를 구분해야 했다.

다음과 같이 작성했다.
이게 효율적인 면에선 잘 모르겠다. 그냥했다.. 더 좋은 방법이 있나?

DECLARE
  F_NAME VARCHAR(255);
  F_SIZE VARCHAR(255);
  L_LIST VARCHAR(255);
  L_IDX NUMBER;
  F_NM VARCHAR(255);
  F_EXT VARCHAR(255);

  begin
  F_NAME  := 'jquery-1.3.2-release.zip';


  dbms_output.put_line ('file name : ' || F_NAME);

  L_LIST := F_NAME;
  L_IDX := INSTR(L_LIST,'.');
  F_NM := SubStr(L_LIST, 1, L_IDX-1);
  F_EXT := SubStr(L_LIST, L_IDX+1, Length(F_NAME));

 
  WHILE InStr(F_EXT ,'.') > 0 LOOP
      L_LIST := F_EXT;
      L_IDX := INSTR(L_LIST,'.');
      F_NM := SubStr(L_LIST, 1, L_IDX-1);
      F_EXT := SubStr(L_LIST, L_IDX+1, Length(L_LIST)-1);
  END LOOP;

  Dbms_Output.put_line ('EXT : ' || f_ext);

 
  END  ;

좋은 하루 되세요^^