create or replace procedure Test
is
tempValue varchar(2000);
AID varchar2(32);
begin
begin
tempValue:='ABCD:BDF:CD:DDF:EDF:F:G:H:I:J:K:';
while(instr(tempValue,':')>0) loop
if INSTR(tempValue,':' ) > 0 then
AID := SUBSTR(tempValue ,1,INSTR(tempValue,':') - 1 );
DBMS_OUTPUT.put_line(AID);
DBMS_OUTPUT.put_line(tempValue);
DBMS_OUTPUT.put_line(INSTR(tempValue,':') + 1);
DBMS_OUTPUT.put_line(LENGTH(tempValue));
DBMS_OUTPUT.put_line(INSTR(tempValue,':'));
DBMS_OUTPUT.put_line(LENGTH(tempValue)-INSTR(tempValue,':'));
tempValue := SUBSTR(tempValue,INSTR(tempValue,':') + 1 , LENGTH(tempValue) - INSTR(tempValue,':'));
else
AID := tempValue;
tempValue := '';
end if;
end loop;
end;
end;
is
tempValue varchar(2000);
AID varchar2(32);
begin
begin
tempValue:='ABCD:BDF:CD:DDF:EDF:F:G:H:I:J:K:';
while(instr(tempValue,':')>0) loop
if INSTR(tempValue,':' ) > 0 then
AID := SUBSTR(tempValue ,1,INSTR(tempValue,':') - 1 );
DBMS_OUTPUT.put_line(AID);
DBMS_OUTPUT.put_line(tempValue);
DBMS_OUTPUT.put_line(INSTR(tempValue,':') + 1);
DBMS_OUTPUT.put_line(LENGTH(tempValue));
DBMS_OUTPUT.put_line(INSTR(tempValue,':'));
DBMS_OUTPUT.put_line(LENGTH(tempValue)-INSTR(tempValue,':'));
tempValue := SUBSTR(tempValue,INSTR(tempValue,':') + 1 , LENGTH(tempValue) - INSTR(tempValue,':'));
else
AID := tempValue;
tempValue := '';
end if;
end loop;
end;
end;