semoga ini sesuai dengan yg diharapkan.
DECLARE
VDATA VARCHAR2(100);
V NUMBER;
VN1 NUMBER;
VN2 NUMBER;
VN3 NUMBER:=1;
VN4 NUMBER:=1;
VAL VARCHAR2(100);
VAL2 VARCHAR2(100);
BEGIN
VDATA :=
'100ý200ý300ý400ý500ý600ý700ý800ý900ý1000ý1100ý1200ý1300ý1400ý1500ý1600ý1700ý1800ý1900ý2000';
SELECT FLOOR(INSTR(VDATA,'ý',-1)/INSTR(VDATA,'ý',1)) INTO V FROM dual;
FOR CUR IN 1..V
LOOP
VN1 :=NVL(VN1,0)+1;
SELECT TO_NUMBER(INSTR(VDATA,'ý',1,VN1)) INTO VN2 FROM DUAL;
VN3 := (VN2-NVL(VN4,1));
SELECT SUBSTR(VDATA,VN4,VN3) INTO VAL FROM DUAL;
VN4 := VN2+1;
IF VAL IS NOT NULL THEN
DBMS_OUTPUT.PUT_LINE(VAL);
END IF;
END LOOP;
SELECT SUBSTR(VDATA,INSTR(VDATA,'ý',-1)+1) INTO VAL2 FROM DUAL;
DBMS_OUTPUT.PUT_LINE(VAL2);
END;
________________________________
From: ETDWI HERU <[email protected]>
To: [email protected]
Sent: Mon, May 10, 2010 2:30:14 PM
Subject: [indo-oracle] tanya PLSQL
kepada mas2 dan mbak2....
saya mengalami kesulitan menconvert 1 field bernilai (100ý200ý300ý400ý 500)
yang akan saya rubah ke dalam bentuk
data :
100
200
300
400
500
terima kasih atas bantuan mas2 dan mbak2 sebelumnya.. .. :D
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
