Discussion :

[benji71]

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 :

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
 
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

[omen999]

bonjour,

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

Code :

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

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 on partagera la note ?

[hackoofr]

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

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
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"