自定义函数

CREATE OR REPLACE FUNCTION REPLACESTRING(S_IN VARCHAR2)
RETURN VARCHAR2
IS
SINGLECHAR CHAR(1);
TRANSLACTESTRING VARCHAR2(200);
BEGIN
IF LENGTH(S_IN) >0 THEN
FOR I  IN 1.. LENGTH(S_IN) LOOP
SINGLECHAR:=SUBSTR(S_IN,I,1);
        IF SINGLECHAR='1' THEN
           TRANSLACTESTRING:=TRANSLACTESTRING||(I)||',';
        ELSE
        TRANSLACTESTRING:=TRANSLACTESTRING;
        END IF;
END LOOP;
END IF;
RETURN TRANSLACTESTRING;
END;