Този урок ще покаже как да използвате функцията Len VBA, за да получите дължината на низ.
Лен функция
Функцията VBA Len връща дължината на определен низ.
VBA Len Count Characters
Функцията VBA Len брои знаците в низ.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Резултатът е: 5MsgBox Len ("12") 'Резултатът е: 2MsgBox Len ("1") 'Резултатът е: 1MsgBox Len ("") 'Резултатът е: 1- Там има интервал.MsgBox Len ("") 'Резултатът е: 0MsgBox Len ("AB Cd") 'Резултатът е: 5End Sub |
Струни или варианти на VBA Len
Функцията VBA Len може да преброи броя знаци в променливите, декларирани като низове или варианти. Всъщност VBA Len ще третира вариант като низ. Ако VBA Len се използва с цяло число, дълго, единично или двойно, тогава VBA Len ще преброи броя на байтовете, необходими за съхраняване на променливата.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 като низVarEx1 = 12345MsgBox Len (VarEx1) 'Резултатът е: 5„Лен брои броя знаци в променливатаDim VarEx2 като вариантVarEx2 = 12345MsgBox Len (VarEx2) 'Резултатът е: 5„Лен брои броя знаци в променливатаDim VarEx3 като цяло числоVarEx3 = 12345MsgBox Len (VarEx3) 'Резултатът е: 2„Лен брои броя байтове, използвани за съхраняване на променливатаDim VarEx4 толкова дългоVarEx4 = 12345MsgBox Len (VarEx4) 'Резултатът е: 2„Лен брои броя байтове, използвани за съхраняване на променливатаDim VarEx5 като единиченVarEx5 = 12345MsgBox Len (VarEx5) 'Резултатът е: 2„Лен брои броя байтове, използвани за съхраняване на променливатаDim VarEx6 като двоенVarEx6 = 12345MsgBox Len (VarEx6) 'Резултатът е: 2„Лен брои броя байтове, използвани за съхраняване на променливатаEnd Sub |
VBA Len Count Появи на герой
Функцията VBA Len може да се използва с функцията VBA Replace, за да преброи колко пъти се намира знак в низ.
Функцията за замяна на VBA може да замени подниза с друга подниза в текст:
| 1 | MsgBox Replace ("XBCX", "X", "7") "Резултатът е:" 7BC7 " |
Можем да използваме Replace, за да премахнем знаците, които искаме да преброим с „” и след това да намерим разликата в дължината преди и след подмяната.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Определете низова променливаStrEx = "Джак, Джон, Джим, Джордан"MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'Резултатът е: 3„Разбиване на кода по -гореMsgBox Len (StrEx) 'Резултатът е: 20MsgBox Replace (StrEx, ",", "") 'Резултатът е: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, ",", "")) 'Резултатът е: 17MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'Резултатът е: 20-17 = 3End Sub |
VBA Len Count Появи на подниза
Функцията VBA Len може да се използва с функцията VBA Replace, за да преброи колко пъти се намира подниза в низ.
Функцията за замяна на VBA може да замени подниза с друга подниза в текст:
| 1 | MsgBox Replace ("XB cX", "X", "7") "Резултатът е:" 7B c7 " |
Можем да използваме Replace, за да премахнем поднизовете, които искаме да преброим с „” и след това да намерим разликата в дължината преди и след подмяната. И накрая, трябва да разделим разликата с дължината на поднизата, която сме заменили.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Определете низова променливаStrEx = "Джак, Джон, Джим, Джордан"Dim SubStr As String 'Определете променлива на поднизаSubStr = ","„Ще открием колко пъти SubStr се намира в StrExMsgBox (Len (StrEx) - Len (Replace (StrEx, SubStr, "")))) / Len (SubStr) "Резултатът е: 3„Разбиване на кода по -гореMsgBox Len (StrEx) 'Резултатът е: 23MsgBox Replace (StrEx, SubStr, "") 'Резултатът е: "JackJohnJimJordan"MsgBox Len (Замяна (StrEx, SubStr, "")) 'Резултатът е: 17MsgBox Len (StrEx) - Len (Replace (StrEx, SubStr, "")) 'Резултатът е: 23-17 = 6MsgBox (Len (StrEx) - Len (Замяна (StrEx, SubStr, ""))) / Len (SubStr)'Резултатът е: (23-17)/2 = 3End Sub |
