Discussion :

[sygale]

Bonjour,
j'ai une chaine de caratères ou champs
exemple 'A,F,C,H,P,Z,F,6,D,8'

et je souhaite la trier afin d'avoir : 'A,C,D,F,H,P,Z,6,8'.

Je pensais mettre cette chaine dans un tableau avec chaque ligne = 1 car et ensuite procédé à un tri dichotomique

Mais avant si une autre personne à une solution plus rapide je suis prenneur

[SheikYerbouti]

Vous pouvez vous baser sur le code ASCII des caractères:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Declare
  c varchar2(100) := 'A,F,C,H,P,Z,F,6,D,8' ;
  type typ_tab is table of varchar2(1) index by binary_integer ;
  tc typ_tab ;
Begin
  For i IN 1 .. length(c) loop
    tc(ascii(substr(c,i,1))) := substr(c,i,1) ;
  End loop ;
  For i IN tc.first .. tc.last Loop
    if tc.exists(i) Then
      dbms_output.put_line( tc(i) ) ;
    end if ;
  End loop ;
End;

[atruong]

ouchh, çà fait +15min que je cherche comment faire.
Super cette solution

Dans une autre de tes réponses, j'ai vu que tu parlais de passage de tableau dans un curseur lui-même trié.
Comment fait-on cela ???

[plaineR]

Ca c'est rusé !

[sygale]

J'ai eu une même sorte d'idée mais plus complexe en faite avec l'utilisation des collection indexé par charchar2

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
23
24
25
26

DECLARE
TYPE typ_var1 ISTABLEOFVARCHAR2(1)INDEXBYVARCHAR2(1);
wtab typ_var1;
wstr varchar2(50):='A,F,C,H,P,Z,F,6,D,8'||',';
wstr_temp varchar2(1);
wpos_prec pls_integer:=0;
wpos_suiv pls_integer:=1;
BEGIN
--SPLIT de la chaine en tableau indexé avec varchar2'
while instr(wstr,',',wpos_suiv+1)>0loop
wpos_suiv := instr(wstr,',',wpos_suiv+1);
wstr_temp := rtrim(ltrim(substr(wstr,wpos_prec,wpos_suiv-wpos_prec),','),',');
wtab(wstr_temp):= wstr_temp;
wpos_prec := wpos_suiv;
wpos_suiv := instr(wstr,',',wpos_prec);
endloop;
--Lecture du tableau '
wstr_temp := wtab.FIRST;
while wstr_temp isnotnullloop
dbms_output.put_line(wtab(wstr_temp));
wstr_temp := wtab.next(wstr_temp);
endloop;
END;
/

Bon c'est un premier jet mais cela fonctionne aussi.

Mais si tu permets je vais prendre ton code très cher SheikYerbouti

[sygale]

ATTENTION LES DEUX CODES PROPOSES SUPPRIME LES DOUBLONS

[SheikYerbouti]

ATTENTION LES DEUX CODES PROPOSES SUPPRIME LES DOUBLONS

Fallait bien qu'il y ait un hic !.....

[SheikYerbouti]

Voici une version qui corrige le bug:

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
Declare
  c varchar2(100) := 'A,F,C,H,P,Z,F,6,D,8,F' ;
  type typ_rec is record ( lettre Varchar2(10), nbre pls_integer ) ;
  type tab_rec is table of typ_rec index by binary_integer ;
  tabr tab_rec ;
  result Varchar2(100) ;
Begin
  For i IN 1 .. length(c) loop
    If substr(c,i,1) <> ',' Then
      tabr(ascii(substr(c,i,1))).lettre := substr(c,i,1) ;
      tabr(ascii(substr(c,i,1))).nbre := nvl(tabr(ascii(substr(c,i,1))).nbre,0) + 1 ;
    End if ;
  End loop ;
  For i IN tabr.first .. tabr.last Loop
    if tabr.exists(i) Then
      For j IN 1 .. tabr(i).nbre Loop
        result := result || tabr(i).lettre ;
      End loop ;
    end if ;
  End loop ;
  dbms_output.put_line( result ) ;
End;