Discussion :

[themis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

2) ensuite, j'alimente mon tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

uneVariable := monTableau(1);

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

Merci

[SheikYerbouti]

Voici une fonction qui fait le boulot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ;