Index du Forum




 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Compter le nombre d'occurences dans une chaîne de caractères

 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code
Sujet précédent :: Sujet suivant  
Auteur Message
Dayvid
Administrateur

Hors ligne

Inscrit le: 24 Oct 2012
Messages: 89
Localisation: Vienne - Poitiers (86000)
Masculin Lion (24juil-23aoû)
Point(s): 107
Moyenne de points: 1,20

MessagePosté le: Lun 11 Nov 2013 - 17:11    Sujet du message: Compter le nombre d'occurences dans une chaîne de caractères Répondre en citant

Salut,

Un petit code pour savoir combien de fois apparait par exemple un mot dans une chaîne de caractères.
Voici la fonction:

Code:
Function CountString(Chaine As String, ChaineChercher As String, Optional RespecterCase As Boolean = False) As Long
        If ChaineChercher > "" Then
            If RespecterCase = True Then
                Return CLng((Len(Chaine) - Len(Replace(Chaine, ChaineChercher, "", , , CompareMethod.Binary))) / Len(ChaineChercher))
            Else
                Return CLng((Len(Chaine) - Len(Replace(Chaine, ChaineChercher, "", , , CompareMethod.Text))) / Len(ChaineChercher))
            End If
        Else
            Return 0
        End If
End Function



Et voici un exemple:

Code:
Module Module1

    Function CountString(Chaine As String, ChaineChercher As String, Optional RespecterCase As Boolean = False) As Long
        If ChaineChercher > "" Then
            If RespecterCase = True Then
                Return CLng((Len(Chaine) - Len(Replace(Chaine, ChaineChercher, "", , , CompareMethod.Binary))) / Len(ChaineChercher))
            Else
                Return CLng((Len(Chaine) - Len(Replace(Chaine, ChaineChercher, "", , , CompareMethod.Text))) / Len(ChaineChercher))
            End If
        Else
            Return 0
        End If
    End Function

    'Exemple d'utilisation:
    Dim Chaine As String = " Abc def abc Ghi Def abc jkl ghi abc Mno Jkl "
    Dim ChaineChercher As String = "abc"

    Sub Main()

        Console.Write(CountString(Chaine, ChaineChercher, False))
        Console.ReadLine()

    End Sub

End Module



N'hésitez pas à donner vos avis Clin d'œil / Conseil
_________________
Le respect n'est pas en option, mais une obligation !
Je serai intransigeant sur ce point-ci !

Veuillez s'il vous plait, aider les membres du mieux que vous le pouvez,
mais ne faites pas tout à leur place non plus, car ce n'est pas les aider !
La programmation est déjà assez difficile comme ça !


Revenir en haut
Publicité






MessagePosté le: Lun 11 Nov 2013 - 17:11    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com