Discussion :

[mlaiti]

Bonjour,
Dans un champ de type varchar2(4000) ( ou bien LONG je n'ai pas encore décidé), je souhaite lire le contenu mot par mot.


Comment faire ?
Si le SQL ou le PLSQL ne le permet pas, comment pourrais-je procéder toujous à l'intérieur d'Oracle ?


Merci beaucoup d'avance

[SheikYerbouti]

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
17
18
19
20
21
22
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;
/

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
17
18
19
20
SQL> set serveroutput on
SQL> DECLARE
  2    phrase VARCHAR2(1000):= 'un deux trois' ;
  3    mot VARCHAR2(1000);
  4    i   PLS_INTEGER := 1 ;
  5  BEGIN
  6    LOOP
  7      mot := SPLIT( phrase, i, ' ' );
  8   EXIT WHEN mot IS NULL;
  9   DBMS_OUTPUT.PUT_LINE(mot);
 10   i := i + 1 ; 
 11    END LOOP;
 12  END;
 13     
 14  /
un
deux
trois
 
Procédure PL/SQL terminée avec succès.

[McM]

En SQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
WITH t AS (
  SELECT 'Un, Trois, Cinq, Six' c FROM dual 
   )
  SELECT extractvalue(COLUMN_VALUE,'/x')
  FROM t,
 TABLE(xmlsequence(EXTRACT(XMLTYPE('<list><x>'||REPLACE(c,', ','</x><x>')||'</x></list>'),
      '/list/x')))
 
EXTRACTVALUE(COLUMN_VALUE,'/X')
Un
Trois
Cinq
Six

[mnitu]

En Sql sans Xml

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
17
18
19
20
 
With data As
(Select 'Un, Trois, Cinq, Six' as txt from dual
),
parse as
(  select trim( substr (txt,instr (txt, ',', 1, level  ) + 1,
                instr (txt, ',', 1, level+1)
                - instr (txt, ',', 1, level) -1 ) )
                as token    
    from (select ','||(Select txt from Data)||',' txt
            from dual)
          connect by level <= length((Select txt from Data))-length(replace((Select txt from Data),',',''))+1
)
select * from parse;
TOKEN
----------------------
Un
Trois
Cinq
Six

[mlaiti]

Merci beaucoup.