CREATE OR REPLACE TYPE numtabletype AS TABLE OF NUMBER;

CREATE OR REPLACE TYPE vartabletype AS TABLE OF VARCHAR2 (1000);

-- 解析字符串

CREATE OR REPLACE FUNCTION str2numlist (p_string IN VARCHAR2)

RETURN numtabletype

AS

v_str    LONG         DEFAULT p_string ',';

v_n      NUMBER;

v_data   numtabletype := numtabletype ();

BEGIN

LOOP

v_n := TO_NUMBER (INSTR (v_str, ','));

EXIT WHEN (NVL (v_n, 0) = 0);

v_data.EXTEND;

v_data (v_data.COUNT) := LTRIM (RTRIM (SUBSTR (v_str, 1, v_n - 1)));

v_str := SUBSTR (v_str, v_n + 1);

END LOOP;

RETURN v_data;

END;

CREATE OR REPLACE FUNCTION str2varlist (p_string IN VARCHAR2)

RETURN vartabletype

AS

v_str    LONG            DEFAULT p_string || ',';

v_n      VARCHAR2 (2000);

v_data   vartabletype    := vartabletype ();

BEGIN

LOOP

v_n := INSTR (v_str, ',');

EXIT WHEN (NVL (v_n, 0) = 0);

v_data.EXTEND;

v_data (v_data.COUNT) := LTRIM (RTRIM (SUBSTR (v_str, 1, v_n - 1)));

v_str := SUBSTR (v_str, v_n + 1);

END LOOP;

RETURN v_data;

END;

-- 绑定查询

SELECT /*+ ordered use_nl(a,u) */

ID, NAME, nick

FROM TABLE (str2numlist (:bind0)) a, users u

WHERE u.ID = a.COLUMN_VALUE;

SELECT /*+ leading(a) */

ID, NAME, nick

FROM users u

WHERE ID IN (SELECT *

FROM TABLE (str2numlist (:bind0)) a);

SELECT /*+ index(u ind_users_id) */

ID, NAME, nick

FROM users u

WHERE ID IN (SELECT *

FROM THE (SELECT CAST (str2numlist (:bind0) AS numtabletype)

FROM DUAL)

WHERE ROWNUM < 1000);