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 : 472
Nombre de snippets : 1507
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 : 5372
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

03/05/2008 - Découper un tableau (extension & générique)

28/02/2008 - Remplir un tableau avec des nombres aléatoires distincts

27/02/2008 - Remplire un tableau

04/12/2007 - Récupérer le contenu d'un fichier sous forme d'un tableau multidimensionnel d'après des colonnes structurées

31/10/2007 - Tri d'un tableau de TPoint selon la valeur croissante des angles entre eux

30/10/2007 - Tri d'un nuage de points selon leurs coordonnées croissantes en X et Y

25/09/2007 - Transformer un tableau de boolean en un tableau de byte

12/08/2007 - Choisir un élément au hasard parmi plusieurs

04/06/2007 - Compter le nombre de sous-chaîne

20/04/2007 - Unique instance de programme Java sans socket



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} GESTION DE STOCK
Bonjour à tous! Voici un petit prog pour gérer un stock d'article, avec une recherche par référence...

{PHP} COMPTER LE NOMBRE DE FICHIERS DANS UN DOSSIER
Après pas mal de recherche, je n'ai pas réellement trouvé un code qui me convenait. J'ai donc trouvé...

{SQL} TROUVER LES PROCHAINS ANNIVERSAIRES
Je poste cette source car impossible d'en trouver une qui marche correctement. Cette source perme...

{C# / C#.NET} INSTANCE UNIQUE + COMMUNICATION DE MESSAGES (COMPATIBLE 32 ET 64 BIT)
Cette DLL permet d'avoir une instance unique d'un programme en plus de permettre: 1. La communicat...

{JAVA / J2EE} APPLICATION D'APPRENTISSAGE DES TABLES DE MULTIPLICATIONS
Cette application permet aux petits comme aux grands d'apprendre ces tables de multiplication et de...

{Delphi} FONCTION SPLIT
Du fait que les fonctions Split que j'ai trouvé sur le web ne marchait pas correctement, j'ai décidé...

{Visual Basic, VB6, VB.NET, VB 2005} HAPPY MEMORY
C’est un jeu pour améliorer la capacité de la mémoire humaine … Le principe est simple: lancez une ...

{SQL} MYSQL : CRÉATION D'UN GUID
Ceux qui fonctionnent avec des technologies Microsoft savent ce qu'est un Guid. C'est un code unique...