Deze tutorial laat zien hoe je de Len VBA-functie gebruikt om de lengte van een string te krijgen.
Len-functie
De functie VBA Len retourneert de lengte van een opgegeven tekenreeks.
VBA Len Count-tekens
De VBA Len-functie telt de tekens in een string.
| 1234567891011121314151617 | Sub LenVoorbeeld_1()MsgBox Len("12345") 'Resultaat is: 5MsgBox Len("12") 'Resultaat is: 2MsgBox Len("1") 'Resultaat is: 1MsgBox Len(" ") 'Resultaat is: 1'Er zit een ruimtekarakter in.MsgBox Len("") 'Resultaat is: 0MsgBox Len ("AB Cd") 'Resultaat is: 5Einde sub |
VBA Len-snaren of varianten
VBA Len-functie kan het aantal tekens tellen in variabelen die zijn gedeclareerd als tekenreeksen of varianten. Eigenlijk behandelt VBA Len een variant als een string. Als VBA Len wordt gebruikt met een geheel getal, lang, enkel of dubbel, dan gaat VBA Len het aantal bytes tellen dat nodig is om de variabele op te slaan.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenVoorbeeld_2()Dim VarEx1 als stringVarEx1 = 12345MsgBox Len(VarEx1) 'Resultaat is: 5'Len telt het aantal karakters in variabele'Dim VarEx2 als variantVarEx2 = 12345MsgBox Len(VarEx2) 'Resultaat is: 5'Len telt het aantal karakters in variabele'Dim VarEx3 als geheel getalVarEx3 = 12345MsgBox Len(VarEx3) 'Resultaat is: 2'Len telt het aantal bytes dat wordt gebruikt om de variabele op te slaan'Dim VarEx4 zo langVarEx4 = 12345MsgBox Len(VarEx4) 'Resultaat is: 2'Len telt het aantal bytes dat is gebruikt om de variabele op te slaan'Dim VarEx5 Als SingleVarEx5 = 12345MsgBox Len(VarEx5) 'Resultaat is: 2'Len telt het aantal bytes dat wordt gebruikt om de variabele op te slaan'Dim VarEx6 als dubbelVarEx6 = 12345MsgBox Len(VarEx6) 'Resultaat is: 2'Len telt het aantal bytes dat is gebruikt om de variabele op te slaan'Einde sub |
VBA Len Count Voorvallen van een personage
De VBA Len-functie kan worden gebruikt met de VBA Replace-functie om te tellen hoe vaak een teken in een string wordt gevonden.
VBA Replace Function kan een substring vervangen door een andere substring in een tekst:
| 1 | MsgBox Replace("XBCX", "X", "7") 'Resultaat is: "7BC7" |
We kunnen Vervangen gebruiken om de tekens die we willen tellen met "" te verwijderen en vervolgens het verschil in lengte voor en na de vervanging te vinden.
| 1234567891011121314 | Sub LenVoorbeeld_3()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "Jack, John, Jim, Jordanië"MsgBox Len(StrEx) - Len(Replace(StrEx, ",", "")) 'Resultaat is: 3'Bovenstaande code opsplitsen'MsgBox Len(StrEx) 'Resultaat is: 20MsgBox Replace(StrEx, ",", "") 'Resultaat is: "JackJohnJimJordan"MsgBox Len(Replace(StrEx, ",", "")) 'Resultaat is: 17MsgBox Len(StrEx) - Len(Replace(StrEx, ",", "")) 'Resultaat is: 20-17=3Einde sub |
VBA Len Count Voorvallen van een substring
De VBA Len-functie kan worden gebruikt met de VBA Replace-functie om te tellen hoe vaak een substring in een string wordt gevonden.
VBA Replace Function kan een substring vervangen door een andere substring in een tekst:
| 1 | MsgBox Replace("XB cX", "X", "7") 'Resultaat is: "7B c7" |
We kunnen Vervangen gebruiken om de substrings die we willen tellen met "" te verwijderen en dan het verschil in lengte voor en na de vervanging te vinden. Ten slotte moeten we het verschil delen met de lengte van de substring die we hebben vervangen.
| 12345678910111213141516171819 | Sub LenVoorbeeld_4()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "Jack, John, Jim, Jordanië"Dim SubStr As String 'Definieer een substringvariabele'SubStr = ", "'We zullen zien hoe vaak SubStr wordt gevonden in StrExMsgBox (Len(StrEx) - Len(Replace(StrEx, SubStr, ""))) / Len(SubStr) 'Resultaat is: 3'Bovenstaande code opsplitsen'MsgBox Len(StrEx) 'Resultaat is: 23MsgBox Replace(StrEx, SubStr, "") 'Resultaat is: "JackJohnJimJordan"MsgBox Len(Replace(StrEx, SubStr, "")) 'Resultaat is: 17MsgBox Len(StrEx) - Len(Replace(StrEx, SubStr, "")) 'Resultaat is: 23-17=6MsgBox (Len(StrEx) - Len(Vervangen(StrEx, SubStr, ""))) / Len(SubStr)'Resultaat is: (23-17)/2=3Einde sub |
