Denne vejledning viser, hvordan du bruger Len VBA -funktionen til at få længden af en streng.
Len funktion
VBA Len -funktionen returnerer længden af en specificeret streng.
VBA Len Count -tegn
VBA Len -funktionen tæller tegnene i en streng.
1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Resultat er: 5MsgBox Len ("12") 'Resultat er: 2MsgBox Len ("1") 'Resultat er: 1MsgBox Len ("") 'Resultat er: 1'Der er en rumkarakter derinde.MsgBox Len ("") 'Resultat er: 0MsgBox Len ("AB Cd") 'Resultat er: 5Afslut Sub |
VBA Len -strenge eller varianter
VBA Len -funktion kan tælle antallet af tegn i variabler, der er deklareret som strenge eller varianter. Faktisk vil VBA Len behandle en variant som en streng. Hvis VBA Len bruges med et helt tal, langt, enkelt eller dobbelt, vil VBA Len tælle det antal bytes, der er nødvendigt for at gemme variablen.
123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 som strengVarEx1 = 12345MsgBox Len (VarEx1) 'Resultat er: 5'Len tæller antallet af tegn i variabelDim VarEx2 som variantVarEx2 = 12345MsgBox Len (VarEx2) 'Resultat er: 5'Len tæller antallet af tegn i variabelDim VarEx3 som heltalVarEx3 = 12345MsgBox Len (VarEx3) 'Resultat er: 2'Len tæller antallet af bytes, der bruges til at gemme variablenDim VarEx4 så længeVarEx4 = 12345MsgBox Len (VarEx4) 'Resultat er: 2'Len tæller antallet af bytes, der bruges til at gemme variablenDim VarEx5 Som SingleVarEx5 = 12345MsgBox Len (VarEx5) 'Resultat er: 2'Len tæller antallet af bytes, der bruges til at gemme variablenDim VarEx6 som dobbeltVarEx6 = 12345MsgBox Len (VarEx6) 'Resultat er: 2'Len tæller antallet af bytes, der bruges til at gemme variablenAfslut Sub |
VBA Len Count Forekomster af en karakter
VBA Len -funktion kan bruges med VBA Replace -funktion til at tælle, hvor mange gange et tegn findes i en streng.
VBA Replace Function kan erstatte en substring med en anden substring i en tekst:
1 | MsgBox Erstat ("XBCX", "X", "7") 'Resultat er: "7BC7" |
Vi kan bruge Erstat til at fjerne de tegn, vi vil tælle med “” og derefter finde forskellen i længden før og efter udskiftningen.
1234567891011121314 | Sub LenExample_3 ()Dim StrEx som streng 'Definer en strengvariabelStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Erstat (StrEx, ",", "")) 'Resultat er: 3'Nedbrydning af koden ovenforMsgBox Len (StrEx) 'Resultat er: 20MsgBox Erstat (StrEx, ",", "") 'Resultat er: "JackJohnJimJordan"MsgBox Len (Erstat (StrEx, ",", "")) 'Resultat er: 17MsgBox Len (StrEx) - Len (Erstat (StrEx, ",", "")) 'Resultat er: 20-17 = 3Afslut Sub |
VBA Len Count Forekomster af en understreng
VBA Len -funktion kan bruges med VBA Replace -funktion til at tælle, hvor mange gange en substring findes i en streng.
VBA Replace Function kan erstatte en substring med en anden substring i en tekst:
1 | MsgBox Erstat ("XB cX", "X", "7") 'Resultat er: "7B c7" |
Vi kan bruge Erstat til at fjerne de underlag, vi vil tælle med “” og derefter finde forskellen i længden før og efter udskiftningen. Endelig skal vi opdele forskellen med længden af den delstreng, vi udskiftede.
12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx som streng 'Definer en strengvariabelStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Definer en understrengsvariabelSubStr = ","'Vi finder ud af, hvor mange gange SubStr findes i StrExMsgBox (Len (StrEx) - Len (Erstat (StrEx, SubStr, ""))) / Len (SubStr) 'Resultat er: 3'Nedbrydning af koden ovenforMsgBox Len (StrEx) 'Resultat er: 23MsgBox Erstat (StrEx, SubStr, "") 'Resultat er: "JackJohnJimJordan"MsgBox Len (Erstat (StrEx, SubStr, "")) 'Resultat er: 17MsgBox Len (StrEx) - Len (Erstat (StrEx, SubStr, "")) 'Resultat er: 23-17 = 6MsgBox (Len (StrEx) - Len (Erstat (StrEx, SubStr, ""))) / Len (SubStr)'Resultatet er: (23-17)/2 = 3Afslut Sub |