Compter chaque occurrence de caractères d'une chaîne


Commenter

Contenu du snippet 

Function GetCharsCount(ByVal sText As String, Optional ByVal bUcase As Boolean = False)  As Long()
    Dim alRet(0 To 255) As Long, i As Long,  b As Integer
    If bUcase Then sText = UCase$(sText)
    For i = 1 To Len(sText)
        b = Asc(Mid$(sText, i, 1))
        alRet(b) = alRet(b) + 1
    Next i
    GetCharsCount = alRet
    Erase alRet
End Function

'=====================
'EXEMPLE  D'UTILISATION
'=====================
Private Sub Command1_Click()
    Dim alChars() As Long, i As Integer
    
    List1.Clear
    alChars = GetCharsCount(Text1.Text)
    For i = 0 To 255
        If alChars(i) > 0 Then List1.AddItem Chr$(i) & "          " & CStr(alChars(i))
    Next i
End Sub

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)