정선생의 블로그

/***************************

태그 묶음 펑션

2009.02.26 V001 @정민철

****************************/

BEGIN

             DECLARE curTag CURSOR FOR

             SELECT TAG_NAME FROM TB_TAG WHERE BOARD_ID = @pkey

             OPEN curTag

             DECLARE @tagnames varchar(1000)

             DECLARE @tagname varchar(20)

             SET @tagnames = ''

             FETCH NEXT FROM curTag INTO @tagname

             WHILE @@FETCH_STATUS = 0

             BEGIN

               IF @tagnames = ''

                            BEGIN

                                       SET @tagnames = @tagname

                            END

               ELSE

                            BEGIN

                                       SET @tagnames = @tagnames + ',' + @tagname

                            END

               FETCH NEXT FROM curTag INTO @tagname

             END

             CLOSE curTag

             DEALLOCATE curTag

             return @tagnames

END

만약 해당 데이터가 없다면 null
@make by 정민철
****************************************/
temp_idxst INTEGER; --시작
temp_idxed INTEGER; --끝
temp_leng INTEGER;  --길이
temp_limit INTEGER;
cnt INTEGER;
codersb VARCHAR2(100);
BEGIN
  codersb := '';
  temp_limit := length(str);
  cnt := 0;
  temp_idxst := 1;
  temp_idxed := 1;
 
  for cnt IN 1..idx loop
      temp_idxed := instr(str, del, temp_idxst);
     
      -- 구분자를 찾을수 없을때(마지막데이터임)
      if temp_idxed = 0  then 
        temp_idxed := temp_limit + 1;
      end if;
      temp_leng  := temp_idxed - temp_idxst;
     
      -- 해당 index라면 codersb값을 세팅해줌
      if cnt = idx then
        codersb := substr(str,temp_idxst, temp_leng);
      end if;
     
      -- 시작 index를 갱신
      temp_idxst := temp_idxed + 1;
  end loop;

 
  RETURN codersb;
END FN_JMC_SPLIT;