Problème pour lire dans un tableau ...

Bonjour,

Je cherche à parser une chaine de caractères, contenant des valeurs séparées par des ';' et alimenter un tableau de chaines :

1) ma variable "tableau" est déclarée comme suit :

Code:

---

TYPE tabVarchar IS TABLE OF VARCHAR2(20) INDEX BY BINARY_INTEGER;

---

2) ensuite, j'alimente mon tableau :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

nRng := 1; nPos := INSTR(maChaine, ';'); WHILE nPos > 0 LOOP monTableau(nRng) := SUBSTR(maChaine, 0, nPos-1); maChaine := SUBSTR(maChaine, nPos+1); nPos := INSTR(maChaine, ';'); nRng := nRng + 1; END LOOP; IF maChaine <> '' THEN nRng := nRng + 1; monTableau(nRng) := maChaine; END IF;

---

Mais quand je veux récupérer des valeurs stockées dans le tableau, ça ne fait rien !!!
Je fais par exemple :

Code:

---

uneVariable := monTableau(1);

---

Quelqu'un sait-il où est le problème ???

Merci

Voici une fonction qui fait le boulot

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

create or replace FUNCTION Split ( PC$Chaine IN VARCHAR2, PN$Pos IN PLS_INTEGER, PC$Sep IN VARCHAR2 DEFAULT ',' ) RETURN VARCHAR2 IS LC$Chaine VARCHAR2(32767) := PC$Sep || PC$Chaine ; LI$I PLS_INTEGER ; LI$I2 PLS_INTEGER ; BEGIN LI$I := INSTR( LC$Chaine, PC$Sep, 1, PN$Pos ) ; IF LI$I > 0 THEN LI$I2 := INSTR( LC$Chaine, PC$Sep, 1, PN$Pos + 1) ; IF LI$I2 = 0 THEN LI$I2 := LENGTH( LC$Chaine ) + 1 ; END IF ; RETURN( SUBSTR( LC$Chaine, LI$I+1, LI$I2 - LI$I-1 ) ) ; ELSE RETURN NULL ; END IF ; END;

---

vous pouvez alors boucler sur votre chaine

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Declare LC$Token Varchar2(256) ; i pls_integer := 1 ; Begin LOOP LC$Token := Split( 'la_chaine', i , ',') ; EXIT WHEN LC$Token IS NULL ; Dbms_Output.put_line(LC$Token) ; i := i + 1 ; END LOOP ; End ;

---