一句经典的传入字符串在存储过程中的处理办法

-- Created on 2011/12/10 by WSQ

declare

    T            VARCHAR2(8000);

    S            VARCHAR2(8000);

begin

  -- Test statements here

      T := '1.08998,1.23432;2.456,2.1;3.34543,3.678979;4.099,4.567567;';

      IF (T IS NOT NULL) AND (LENGTH(T) > 0) THEN

        WHILE INSTR(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_ROADSEG_POINTS

              (ROADSEG_POINTS_ID, ROADSEG_ID, LON, LAT)

            VALUES

              (SNT_ROADSEG_POINTS.NEXTVAL,

               V_ROADSEG_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;