Ce tutoriel montrera comment utiliser la fonction Len VBA pour obtenir la longueur d'une chaîne.
Fonction Len
La fonction VBA Len renvoie la longueur d'une chaîne spécifiée.
VBA Len Count Caractères
La fonction VBA Len compte les caractères d'une chaîne.
| 1234567891011121314151617 | Sous-LenExample_1()MsgBox Len("12345") 'Le résultat est : 5MsgBox Len("12") 'Le résultat est : 2MsgBox Len("1") 'Le résultat est : 1MsgBox Len(" ") 'Le résultat est : 1«Il y a un caractère espace là-dedans.MsgBox Len("") 'Le résultat est : 0MsgBox Len("AB Cd") 'Le résultat est : 5Fin du sous-marin |
VBA Len Strings ou variantes
La fonction VBA Len peut compter le nombre de caractères dans les variables déclarées sous forme de chaînes ou de variantes. En fait, VBA Len traitera une variante comme une chaîne. Si VBA Len est utilisé avec un entier, long, simple ou double, alors VBA Len comptera le nombre d'octets nécessaires pour stocker la variable.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2()Dim VarEx1 en tant que chaîneVarEx1 = 12345MsgBox Len(VarEx1) 'Le résultat est : 5'Len compte le nombre de caractères dans la variableDim VarEx2 comme varianteVarEx2 = 12345MsgBox Len(VarEx2) 'Le résultat est : 5'Len compte le nombre de caractères dans la variableDim VarEx3 en tant qu'entierVarEx3 = 12345MsgBox Len(VarEx3) 'Le résultat est : 2'Len compte le nombre d'octets utilisés pour stocker la variableDim VarEx4 aussi longtempsVarEx4 = 12345MsgBox Len(VarEx4) 'Le résultat est : 2'Len compte le nombre d'octets utilisés pour stocker la variableDim VarEx5 en tant que singleVarEx5 = 12345MsgBox Len(VarEx5) 'Le résultat est : 2'Len compte le nombre d'octets utilisés pour stocker la variableDim VarEx6 en tant que doubleVarEx6 = 12345MsgBox Len(VarEx6) 'Le résultat est : 2'Len compte le nombre d'octets utilisés pour stocker la variableFin du sous-marin |
VBA Len Count Occurrences d'un personnage
La fonction VBA Len peut être utilisée avec la fonction VBA Replace pour compter combien de fois un caractère est trouvé dans une chaîne.
La fonction de remplacement VBA peut remplacer une sous-chaîne par une autre sous-chaîne dans un texte :
| 1 | MsgBox Replace("XBCX", "X", "7") 'Le résultat est : "7BC7" |
Nous pouvons utiliser Remplacer pour supprimer les caractères que nous voulons compter avec "" puis trouver la différence de longueur avant et après le remplacement.
| 1234567891011121314 | Sub LenExample_3()Dim StrEx As String 'Définir une variable de chaîneStrEx = "Jack, John, Jim, Jordan"MsgBox Len(StrEx) - Len(Replace(StrEx, ",", "")) 'Le résultat est : 3'Décomposer le code ci-dessusMsgBox Len(StrEx) 'Le résultat est : 20MsgBox Replace(StrEx, ",", "") 'Le résultat est : "JackJohnJimJordan"MsgBox Len(Replace(StrEx, ",", "")) 'Le résultat est : 17MsgBox Len(StrEx) - Len(Replace(StrEx, ",", "")) 'Le résultat est : 20-17=3Fin du sous-marin |
VBA Len Count Occurrences d'une sous-chaîne
La fonction VBA Len peut être utilisée avec la fonction VBA Replace pour compter combien de fois une sous-chaîne est trouvée dans une chaîne.
La fonction de remplacement VBA peut remplacer une sous-chaîne par une autre sous-chaîne dans un texte :
| 1 | MsgBox Replace("XB cX", "X", "7") 'Le résultat est : "7B c7" |
Nous pouvons utiliser Remplacer pour supprimer les sous-chaînes que nous voulons compter avec "" et ensuite trouver la différence de longueur avant et après le remplacement. Enfin, nous devons diviser la différence avec la longueur de la sous-chaîne que nous avons remplacée.
| 12345678910111213141516171819 | Sub LenExample_4()Dim StrEx As String 'Définir une variable de chaîneStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Définir une variable de sous-chaîneSousStr = ", "'Nous allons trouver combien de fois SubStr est trouvé dans StrExMsgBox (Len(StrEx) - Len(Replace(StrEx, SubStr, ""))) / Len(SubStr) 'Le résultat est : 3'Décomposer le code ci-dessusMsgBox Len(StrEx) 'Le résultat est : 23MsgBox Replace(StrEx, SubStr, "") 'Le résultat est : "JackJohnJimJordan"MsgBox Len(Replace(StrEx, SubStr, "")) 'Le résultat est : 17MsgBox Len(StrEx) - Len(Replace(StrEx, SubStr, "")) 'Le résultat est : 23-17=6MsgBox (Len(StrEx) - Len(Remplacer(StrEx, SubStr, ""))) / Len(SubStr)'Le résultat est : (23-17)/2=3Fin du sous-marin |
