拆字串迴圈 關鍵字:substr/instr/逗號

i := 1;
loop
  exit when instr(v_tbnm,',',1,i) = 0;

  if i= 1 then
  t_1 := substr(v_tbnm, 0, instr(v_tbnm, ',', 1, i)-1);
  else
     t_1 := substr(v_tbnm, instr(v_tbnm, ',', 1, i-1)+1, instr(v_tbnm, ',', 1, i)
            - instr(v_tbnm, ',', 1, i-1)-1);
  end if;
  i := i+1;
end loop;