Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 659
Nombre de snippets : 2085
Connexion

Compter le nombre d'occurences uniques dans un tableau trié ou non pouvant contenir des doublons

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 14/11/2006 03:55:18 et initié par PCPT [Liste]
Vue : 10027
Catégorie(s) : Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- Javascript
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 14/11/2006
Posté par PCPT [Liste]
Function CountArrayWithoutDouble(aArray() As  String) As  Long
    Dim aBuff() As String
    aBuff = aArray
    
    Dim i&, j&, sBuffer As String
    i = UBound(aBuff) - LBound(aBuff) + 1
    
    If i = 1 Then
        CountArrayWithoutDouble = 1
    ElseIf i = 2 Then
        CountArrayWithoutDouble = IIf(aBuff(LBound(aBuff)) = aBuff(LBound(aBuff) + 1), 1, 2)
    Else
        CountArrayWithoutDouble = 0
        For i = LBound(aBuff) To UBound(aBuff) - 1
            For j = i + 1 To UBound(aBuff)
                If (aBuff(i) = aBuff(j)) Then aBuff(j) =  vbNullChar
            Next j
        Next i
        For i = LBound(aBuff) To UBound(aBuff)
            If aBuff(i) <> vbNullChar Then  CountArrayWithoutDouble = CountArrayWithoutDouble +  1
        Next i
    End If
    
    Erase aBuff
End Function

'EXEMPLE  D'UTILISATION
Private Sub Form_Load()
    Dim sTableau(1 To 4) As String
    sTableau(1) = "proc1"
    sTableau(2) = "proc2"
    sTableau(3) = "proc1"
    sTableau(4) = "proc1"
    MsgBox CountArrayWithoutDouble(sTableau)
    Unload Me
End Sub
Langage : Javascript
Date ajout : 05/04/2007
Posté par stfou [Liste]
var tab=[0,5,6,9,4,8,7,3,2,6,2,5,5,8,9,4,4,4,4,4,4];
var différents=[];
var similar;
for(i=0;i<tab.length;i++)
{
 similar=false;
 for(j=0;j<différents.length;j++)
 {
  if(tab[i]==différents[j]){similar=true;break;}
 }
 if(!similar) différents.push(tab[i]);
}var nombre_de_caractères_différents=différents.length;

Snippets en rapport avec : Tableau, Unique, Trier, Compter, Doublon

19/01/2010 - Tableau de byte vers structure

08/09/2009 - Remplir une GRID depuis un tableau de string

04/06/2009 - Compter et lister les items sélectionnés d'une listbox

15/01/2009 - Structure vers tableau de byte

17/12/2008 - Compter chaque occurrence de caractères d'une chaîne

06/11/2008 - Compter le nombre de lignes d'un fichier

22/07/2008 - tri naturel d'un tableau de string

07/07/2008 - Supprimer les doublons d'un tableau de chaines

22/06/2008 - Convertir une chaine en un tableau de chaine (en tenant compte des retours chariot)

09/06/2008 - Générer un nom de fichier temporaire unique



Codes sources en rapport avec : Tableau, Unique, Trier, Compter, Doublon

{Visual Basic, VB6, VB.NET, VB 2005} COMPRESSION
Fonction pour comprimer un tableau de byte...

{Delphi} TRI D'UN TABLEAU
Ce programme tri un tableau de nombres aléatoire dans l'ordre croissant. ...

{Visual Basic, VB6, VB.NET, VB 2005} TRI PAR INSERTION
Les listes triées sont très pratiques pour des quantités de données limitées : une liste semble pouv...

{C / C++ / C++.NET} ALGORITHME DE TRI D'UN TABLEAU PAR ORDRE CROISSANT OU DÉCROISSANT.
Bonjour, Le code source que je vais présenter est simple mais on y pense pas tout le temps. Il cla...

{Visual Basic, VB6, VB.NET, VB 2005} SÉRIALISTION - DÉSERIALISATION DE TABLEAUX ET COLLECTIONS
Après la source pour la sérialisation - désérialisation d'une LameGrid (que j'ai amélioré d'ailleurs...

{Delphi} UTILISER LES COMPOSANTS PAR LEURS NUMÉROS
Le principe : 1. Parcourir tous les composants d'une forme. 2. Y choisir le composant voulu et l'i...

{Javascript / DHTML} MOOTABLEAU
Une classe mooTools qui transforme une balise table en un ensemble div/tables qui permet de visualis...

{Visual Basic, VB6, VB.NET, VB 2005} JEU DE PENDU (COUIC 1 DE +)
Lundi, 01 Février 2010 04:58 un petit jeu de pendu réalisé sous vb 2008 express But du jeu : ...

{PHP} EXÉCUTER DES REQUETE STYLE SQL SUR UN ARRAY
La classe myArray, pour l'instant en version "j'ai codé comme un cochon" permet l'exécution de requê...

{Javascript / DHTML} JEU DE COULEURS DANS UN TABLEAU À 3 DIMENSION
Un tableau à 3 dimensions(Plusieurs tableau de 2 dimensions) des couleurs existante sur un PC. Jusqu...