Trigger on a tbl w/horizontal col delimted, need to upd/ins/del a vert tbl

Question

I have a Table_A with 3 colon delimited columns with different fixed lengths. When an update, Insert or delete happens, To keep it simple, updates and inserts are treated the same, I need to Insert or delete a verticle table (Table_B) with the data. The data is loaded to Table_A as delimited
Table_A
columns apples will have 9 quantities, oranges will have 5 and pears 3
company     apples          oranges          pears
ABC     1:2:3:4:5:6:7:8:9     1:2:3:4:5          1:2:3
Table_B
company     qy_tp     qy
ABC     apples     1
ABC     apples     2
ABC     apples     3
ABC     .
ABC     .
.     apples 9
.     oranges     1
.     oranges     2
.     oranges     3
.     .     4
.     .     5
.     pears     1
.     pears     2
ABC     pears     3
Thanks in advance
Steve

Answer 1

SQL> create table table_a(company varchar2(10), apples varchar2(100));
Table created.
SQL> create table table_b(company varchar2(10), qy_tp varchar2(10), qy int);
Table created.
SQL> create trigger table_a$trg
SQL>   after insert or update or delete on table_a for each row
SQL> begin
SQL>   if :new.apples || ':' <> :old.apples || ':' then
SQL>     delete table_b where (company, qy_tp, qy) in
SQL>       ( select nvl(:old.company, :new.company), 'apples',
SQL>             to_number(substr(s, instr(s, ':', 1, level) + 1, instr(s, ':', 1, level + 1) - instr(s, ':', 1, level) - 1))
SQL>           from (select '::' || :old.apples || ':' as s from dual)
SQL>           where level > 1
SQL>           connect by level < length(s) - length(replace(s, ':'))
SQL>       );
SQL>     insert into table_b(company, qy_tp, qy)
SQL>       ( select nvl(:old.company, :new.company), 'apples',
SQL>             to_number(substr(s, instr(s, ':', 1, level) + 1, instr(s, ':', 1, level + 1) - instr(s, ':', 1, level) - 1))
SQL>           from (select '::' || :new.apples || ':' as s from dual)
SQL>           where level > 1
SQL>           connect by level < length(s) - length(replace(s, ':'))
SQL>       );
SQL>   end if;
SQL> end;
SQL> /
Trigger created.
SQL> insert into table_a values('ABC', '1:2:3:4:5:6:7:8:9');
1 row created.
SQL> select * from table_b;
COMPANY    QY_TP                 QY
ABC        apples                 1
ABC        apples                 2
ABC        apples                 3
ABC        apples                 4
ABC        apples                 5
ABC        apples                 6
ABC        apples                 7
ABC        apples                 8
ABC        apples                 9
9 rows selected.
SQL> update table_a set apples = '1:2:3:10:13';
1 row updated.
SQL> select * from table_b;
COMPANY    QY_TP                 QY
ABC        apples                 1
ABC        apples                 2
ABC        apples                 3
ABC        apples                10
ABC        apples                13
5 rows selected.
SQL> delete table_a;
1 row deleted.
SQL> select * from table_b;
no rows selected
SQL>