Comptabiliser les doublons d'un tableau

Question

Bonjour,

Je souhaiterai comptabiliser les doublons d'un tableau et récupérer sa valeur !

Exemple :

sTableau = "100,101,102,100,103,100,104,102,104,103,100,105,106,107,101"

Résultat :
100 = 4
101 = 2
102 = 2
103 = 2
104 = 2
105 = 1
106 = 1
107 = 1

Merci d'avance pour votre aide.

:::Fabiano13:::

crilun · Answer

crilun
à mon avis le plsu rapide est de faire un quicksort puis de parcourir le tableau dans l'ordre, tu peut alors comptabiliser sans pb puisque les memes elements se suivent.

cs_fabiano13 · Answer

Je suis débutant, peux -tu m'aider sur ce script ?

D'avance merci.
Fabiano13

crilun · Answer

crilun
pour le quickSort il s'agit d'une methode de tri tres rapide en recursif, je vais pas m'etendre dessus c'est expliqué
ici
pour ce qui est de ton tableau apparement tu utilises une chaine de caractere (sTableau) et non pas un  tableau,
il faut donc que tu la decoupes:
dim sTemp as string()=sTableau.split(",") 'Pour decouper la chaine dans un tableau avec comme caractere separateur ","

tu peut obtenir la longeur de ton tableau grace a sTemp.length

voila tu as tout les elements pour le faire maintenant

cs_fabiano13 · Answer

J'ai bien compris le sens du déroulement, mais comment tu compares et comptabilises ?

<%
sTableau = "100,101,102,100,103,100,104,102,104,103,100,105,106,107,101"

Dim sTemp as string() = sTableau.split(",")
Dim Icount
Dim LnTamp = sTemp.length

for each Icount in LnTamp
???
next

%>

crilun · Answer

crilun
ok, je te fais un exemple ce midi la je suis au boulot

crilun · Answer

crilun comme promis voici le petit exemple avec tri et parcours du tableau Private Sub QTri_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sTableau As String = "100,101,102,100,103,100,104,102,104,103,100,105,106,107,101" Dim sTemp As String() = sTableau.Split(",") QuickSort(sTemp, 0, sTemp.Length - 1) Dim sParcours As String Dim sPrec As String = "" Dim sResult As String Dim iNbr As Integer = 0 For Each sParcours In sTemp 'Parcours et comptage des elements du tableau If sParcours = sPrec Then iNbr += 1 Else If iNbr > 0 Then sResult += sPrec & "=" & iNbr & vbCrLf End If iNbr = 1 End If sPrec = sParcours Next 'Ajout du dernier resultat If iNbr <> 0 Then sResult += sPrec & "=" & iNbr & vbCrLf End If 'MsgBox(sResult) 'Affichage du resultat si VB.net response.write("") 'Affichage du reseultat si ASP.NET End Sub 'Tri du tableau Private Sub QuickSort(ByRef sTab As String(), ByVal iDebut As Integer, ByVal iFin As Integer) Dim sCellule As String Dim iPivot As Integer = iDebut Dim iDroite As Integer = iFin Dim iGauche As Integer = iDebut While iGauche <> iDroite 'tant que l'on a pas parcourus tout les elements du debut a la fin If sTab(iGauche) > sTab(iDroite) Then 'alors on inverse les 2 cellules sCellule = sTab(iGauche) sTab(iGauche) = sTab(iDroite) sTab(iDroite) = sCellule iPivot = iGauche + iDroite - iPivot End If If iPivot = iGauche Then iDroite -= 1 Else iGauche += 1 End If End While If iDebut < iGauche - 1 Then QuickSort(sTab, iDebut, iGauche - 1) 'appel recursif sur la partie droite If iFin > iDroite + 1 Then QuickSort(sTab, iDroite + 1, iFin) 'appel récursif sur la partie gauche End Sub

cs_fabiano13 · Answer

Merci beaucoup !

Comptabiliser les doublons d'un tableau

7 réponses

Votre réponse

Discussions similaires