一个字符串分割处理的过程演示

-- Created on 2008-11-25 by SEG
declare
  -- Local variables here
  i integer;
  s varchar2(600);
  T varchar2(600);
begin
    T := '1000,1;1001,2;1002,3;1003,4;';
    IF (T IS NOT NULL) AND (LENGTH(T) > 0) THEN
      WHILE LENGTH(T) > 0 LOOP
        S := TRIM(SUBSTR(T, 1, INSTR(T, ';') - 1));
        IF LENGTH(S) > 0 THEN
          DBMS_OUTPUT.PUT_LINE('S:' || S);
          DBMS_OUTPUT.PUT_LINE('V_ROADSEG_ID:' ||SUBSTR(S, 1, INSTR(S, ',', 1, 1) - 1));
          DBMS_OUTPUT.PUT_LINE('V_ROADSEG_INDEX:' ||SUBSTR(S, INSTR(S, ',', 1, 1) + 1));
          --INSERT INTO T_DRIVEROAD_ROADSEG
          --  (DRIVEROAD_ID, ROADSEG_ID, ROADSEG_INDEX)
          --VALUES
          --  (V_DRIVEROAD_ID,
          --   SUBSTR(S, 1, INSTR(S, ',', 1, 1) - 1),
          --   SUBSTR(S, INSTR(S, ',', 1, 1) + 1));
        END IF;
        T := SUBSTR(T, INSTR(T, ';') + 1);
      END LOOP;
    END IF;
 
end;