Accueil > Forum > > > Comptabiliser les doublons d'un tableau
Comptabiliser les doublons d'un tableau
lundi 25 septembre 2006 à 16:47:21 |
Comptabiliser les doublons d'un tableau

fabiano13
|
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:::
|
|
lundi 25 septembre 2006 à 18:49:23 |
Re : Comptabiliser les doublons d'un tableau

crilun
|
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.
|
|
lundi 25 septembre 2006 à 19:45:22 |
Re : Comptabiliser les doublons d'un tableau

fabiano13
|
Je suis débutant, peux -tu m'aider sur ce script ?
D'avance merci. Fabiano13
|
|
lundi 25 septembre 2006 à 21:53:40 |
Re : Comptabiliser les doublons d'un tableau

crilun
|
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é icipour 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
|
|
lundi 25 septembre 2006 à 22:31:32 |
Re : Comptabiliser les doublons d'un tableau

fabiano13
|
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
%>
|
|
mardi 26 septembre 2006 à 09:51:31 |
Re : Comptabiliser les doublons d'un tableau

crilun
|
crilun ok, je te fais un exemple ce midi la je suis au boulot
|
|
mardi 26 septembre 2006 à 13:28:13 |
Re : Comptabiliser les doublons d'un tableau

crilun
|
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("<script>alert('sResult')</script>") '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
|
|
mardi 26 septembre 2006 à 14:07:19 |
Re : Comptabiliser les doublons d'un tableau
|
Cette discussion est classée dans : tableau, doublons, comptabiliser
Répondre à ce message
Sujets en rapport avec ce message
Suppression de doublons dans un tableau [ par splash68 ]
Bonjour,j'aimerai supprimer les doublons que j'ai dans un tableau à 2 dimensions, quelque chos du genre : [CODE]dim table_Liaison(<span s
Ajouter des colonnes dans un tableau avec un repeater [ par kr1 ]
Bonjour, Je suis en ce moment en stage et je travaille sur un projet qui manipule l'asp.net et le vb.net.J'ai construit un gridview pour pouvoir affic
tableau récapitulatif [ par tihnah ]
bjr, je suis assistante de direction au service du personnel et mon patron a instauré un système de cantique. Le repas journalier est de 1000 frcs et
transformer une image en un tableau de byte dans Compact framework [ par dourida ]
Salut je veux transformer une image chargée dans pictureBox en un tableau de byte mais dans Compact framework parcq j'utilise un émulateur, mais par
Type Tableau Croisé [ par onha ]
Bonjour a vous tous, voilà j'ai une base access hrsrdv,daterdv,nom,...... Je souhaiterais avoir comme tableau de résultat pour un mois donné ce résu
Affichage d'un tableau dans grid view [ par hamidou1631 ]
salut est ce que il est possible d'afficher un tableau de string dans un grid view? merci d'avance
Lire tableau HTML [ par Mike490 ]
Bonjour à tous. Je récupere des données d'un fichier Excel dans 1 tableau HTML (en javascript). Je souhaiterai parcourir ce tableau HTML afin d'en
Mettre un contentplaceholder dans un tableau [ par touffik37 ]
Bonjour, Je suis en étudiant de BTS IRIS et je suis en plein projet de fin d'année. Pour ce projet je dois réaliser un site web en ASP.NET. Donc pour
[html/css] impression de tableau page web avec fichier.css [ par simbabou ]
Bonjour Voila, j'ai un fichier .jsp avec un tableau definit dedans en html. Ce tableau est sur deux colonne. Le souci qui ce pose c'est que lors de l
Livres en rapport
|
Derniers Blogs
L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
UTILISATEURUTILISATEUR par zaydounhlel
Cliquez pour lire la suite par zaydounhlel RE : VIRUSRE : VIRUS par ghuysmans99
Cliquez pour lire la suite par ghuysmans99
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|