Trier des caractères dans une chaine bonjour --> bjnooru

Version imprimable

Bonjour.
Je suis en train de faire un programme qui reprend l'algorithme de Hoffman et pour cela, il faudrait que je compte le nombre de caractères dans une chaine.
Avant de compter le nombre de caractères similaires, j'aimerai trier les caractères de ma chaine par ordre alphabétique avec l'aide d'un tri à bulles.
Code:

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 str="bouche" a=mid(str,i,1) b=mid(str,i+1,1) i=1 endesordre=true do while endesordre=true endesordre=false For i = 1 to len(str) if a> b then tmp=b b=a a=tmp endesordre=true end if next loop
Ça compile (il me semble) mais str n'a pas mélangé.
Comment passer de bonjour à bjnooru pour pouvoir compter les occurrences facilement?

Merci d'avance

13/01/2014, 16h39
omen999
bonjour,

sachant qu'une chaine peut être transformée en tableau
ex :
Code:

1 2 3 4 5 6 7 8 9 10 Dim i Dim iLen Dim aChars() iLen = Len(inputString)-1 ReDim aChars(iLen) For i = 0 to iLen aChars(i) = Mid(inputString, i + 1,1) Next
le tri peut se faire de multiples façons :

http://www.developpez.net/forums/d35...pt-sort-array/

si tu lis l'anglais, un thread où des forumeurs ont trippé sur le sujet :mrgreen: on partagera la note ?

:salut:
Bubble Sort ou tri à bulle :
Cet algorithme de tri de tableau est probablement le plus connu à défaut d'être le plus efficace :king:

Code:

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
27
28
29
30
31
32
33
34
35
Function BubbleSort(arrInt)
for i = UBound(arrInt) - 1 To 0 Step -1
 for j= 0 to i
  if arrInt(j)>arrInt(j+1) then
            temp = arrInt(j+1)
            arrInt(j+1) = arrInt(j)
            arrInt(j) = temp
        end if
    next
next 
BubbleSort = arrInt
End Function
 
Dim arrValue 
arrValue = Array(12,24,51,24,15,35,1000,15,65,418,0,-5,842,-540,-65,75)
MsgBox Join(BubbleSort(arrValue),","),64,"Tri à bulle"
 
Dim iLen
Dim aChars()
Dim inputString : inputString = "poiuytrezamlkjhgfdsqnbvcxw"
iLen = Len(inputString)-1
ReDim aChars(iLen)
 
For i = 0 to iLen
  aChars(i) = Mid(inputString, i + 1,1)
Next
MsgBox Join(BubbleSort(aChars),","),64,"Tri à bulle"
 
inputstring = "Bonjour"
iLen = Len(inputString)-1
ReDim aChars(iLen)
For i = 0 to iLen
  aChars(i) = Mid(inputString, i + 1,1)
Next
MsgBox Join(BubbleSort(aChars),""),64,"Tri à bulle"