求一存储过程 谢谢了～～

Question

参考：
select to_number(substr(a,4)) from test;  --从第4个位置取

Answer 1

CREATE OR REPLACE PROCEDURE adddata (a VARCHAR2, b VARCHAR2)
AS
   i   INTEGER;
   j   INTEGER;
   m   INTEGER;
   n   INTEGER;
BEGIN
   i :=
      TO_NUMBER (REPLACE (TRANSLATE (UPPER (a),
                                     'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
                                     '                          '
                                    ),
                          ' ',
                          ''
                         )
                );
   j :=
      TO_NUMBER (REPLACE (TRANSLATE (UPPER (b),
                                     'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
                                     '                          '
                                    ),
                          ' ',
                          ''
                         )
                );   IF i > j
   THEN
      m := j;
      n := i;
   ELSE
      m := i;
      n := j;
   END IF;   WHILE m <= n
   LOOP
      INSERT INTO tablename(colA,colB)
           VALUES (m, n);      m := m + 1;
   END LOOP;
END;