Tento tutoriál ukáže, ako použiť funkciu Len VBA na získanie dĺžky reťazca.
Len funkcia
Funkcia VBA Len vracia dĺžku zadaného reťazca.
Počet znakov VBA Len
Funkcia VBA Len počíta znaky v reťazci.
1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Výsledok je: 5MsgBox Len ("12") 'Výsledok je: 2MsgBox Len ("1") 'Výsledok je: 1Výsledok MsgBox Len ("") je: 1„Je tam vesmírna postava.Výsledok MsgBox Len ("") je: 0MsgBox Len („AB Cd“) 'Výsledok je: 5Koniec pod |
Struny alebo varianty VBA Len
Funkcia VBA Len môže počítať počet znakov v premenných deklarovaných ako reťazce alebo varianty. VBA Len bude v skutočnosti považovať variant za reťazec. Ak sa VBA Len používa s celým číslom, dlhým, jednoduchým alebo dvojitým, potom VBA Len bude počítať počet bajtov potrebných na uloženie premennej.
123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 ako reťazecVarEx1 = 12345MsgBox Len (VarEx1) 'Výsledok je: 5„Len počíta počet znakov v premennejDim VarEx2 ako variantVarEx2 = 12345MsgBox Len (VarEx2) 'Výsledok je: 5„Len počíta počet znakov v premennejDim VarEx3 ako celé čísloVarEx3 = 12345MsgBox Len (VarEx3) 'Výsledok je: 2„Len počíta počet bytov použitých na uloženie premennejDim VarEx4 ako dlhýVarEx4 = 12345MsgBox Len (VarEx4) 'Výsledok je: 2„Len počíta počet bytov použitých na uloženie premennejDim VarEx5 ako jedenVarEx5 = 12345MsgBox Len (VarEx5) 'Výsledok je: 2„Len počíta počet bytov použitých na uloženie premennejDim VarEx6 ako dvojitýVarEx6 = 12345MsgBox Len (VarEx6) 'Výsledok je: 2„Len počíta počet bytov použitých na uloženie premennejKoniec pod |
VBA Len Count Výskyty postavy
Funkciu VBA Len je možné použiť s funkciou VBA Nahradiť a spočítať, koľkokrát sa znak nachádza v reťazci.
Funkcia nahradenia VBA môže nahradiť podreťazec iným podreťazcom v texte:
1 | MsgBox Nahradiť („XBCX“, „X“, „7“) 'Výsledok je: „7BC7“ |
Na nahradenie znakov, ktoré chceme počítať s „“, môžeme použiť Nahradiť a potom nájsť rozdiel v dĺžke pred a po výmene.
1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Definujte premennú reťazcaStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Nahradiť (StrEx, ",", "")) 'Výsledok je: 3„Rozpis vyššie uvedeného kóduMsgBox Len (StrEx) 'Výsledok je: 20MsgBox Replace (StrEx, ",", "" ") 'Výsledok je:" JackJohnJimJordan "MsgBox Len (Nahradiť (StrEx, ",", "")) 'Výsledok je: 17MsgBox Len (StrEx) - Len (Nahradiť (StrEx, ",", ""))) 'Výsledok je: 20-17 = 3Koniec pod |
VBA Len Počet výskytov podreťazca
Funkciu VBA Len je možné použiť s funkciou VBA Nahradiť na spočítanie, koľkokrát sa podreťazec nachádza v reťazci.
Funkcia nahradenia VBA môže nahradiť podreťazec iným podreťazcom v texte:
1 | MsgBox Replace ("XB cX", "X", "7") 'Výsledok je: "7B c7" |
Na nahradenie podreťazcov, ktoré chceme počítať s „“, môžeme použiť Nahradiť a potom nájsť rozdiel v dĺžke pred a po výmene. Nakoniec musíme rozdeliť rozdiel na dĺžku podreťazca, ktorý sme nahradili.
12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Definujte premennú reťazcaStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Definujte premennú podreťazcaSubStr = ","„Zistíme, koľkokrát sa SubStr nachádza vo vnútri StrExMsgBox (Len (StrEx) - Len (Replace (StrEx, SubStr, ""))) / Len (SubStr) Výsledok je: 3„Rozpis vyššie uvedeného kóduMsgBox Len (StrEx) 'Výsledok je: 23MsgBox Replace (StrEx, SubStr, "") 'Výsledok je: "JackJohnJimJordan"MsgBox Len (Nahradiť (StrEx, SubStr, "")) "Výsledok je: 17MsgBox Len (StrEx) - Len (Nahradiť (StrEx, SubStr, "")) 'Výsledok je: 23-17 = 6MsgBox (Len (StrEx) - Len (Nahradiť (StrEx, SubStr, ""))) / Len (SubStr)„Výsledok je: (23-17)/2 = 3Koniec pod |