转载:http://www.verydemo.com/demo_c158_i8749.html
IS_NUMBER(IN_DATA , I , J )
V_NUMBER ;
V_XIAOSHU ();
(INSTR(IN_DATA, , , ) )
;
;
J
V_XIAOSHU : ;
ELSIF J
V_XIAOSHU : ;
V_XIAOSHU : TRIM(LPAD(, J , ));
;
V_NUMBER : TO_NUMBER(IN_DATA,
TRIM(LPAD(, I , )) V_XIAOSHU);
1;
EXCEPTION
OTHERS
0;
IS_NUMBER;
V_NUMBER ;
V_XIAOSHU ();
(INSTR(IN_DATA, , , ) )
;
;
J
V_XIAOSHU : ;
ELSIF J
V_XIAOSHU : ;
V_XIAOSHU : TRIM(LPAD(, J , ));
;
V_NUMBER : TO_NUMBER(IN_DATA,
TRIM(LPAD(, I , )) V_XIAOSHU);
1;
EXCEPTION
OTHERS
0;
IS_NUMBER;