В этом руководстве будет показано, как использовать функцию Len VBA для получения длины строки.
Функция Len
Функция VBA Len возвращает длину указанной строки.
Персонажи VBA Len Count
Функция VBA Len подсчитывает символы в строке.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Результат: 5MsgBox Len ("12") 'Результат: 2MsgBox Len ("1") 'Результат: 1MsgBox Len ("") 'Результат: 1«Там есть пробел.MsgBox Len ("") 'Результат: 0MsgBox Len ("AB Cd") 'Результат: 5Конец подписки |
Строки или варианты 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'Len считает количество байтов, используемых для хранения переменнойDim VarEx4 ПокаVarEx4 = 12345MsgBox Len (VarEx4) 'Результат: 2'Len считает количество байтов, используемых для хранения переменнойDim VarEx5 как одиночныйVarEx5 = 12345MsgBox Len (VarEx5) 'Результат: 2'Len считает количество байтов, используемых для хранения переменнойDim VarEx6 как двойнойVarEx6 = 12345MsgBox Len (VarEx6) 'Результат: 2'Len считает количество байтов, используемых для хранения переменнойКонец подписки |
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 = 3Конец подписки |
VBA Len Счетчик вхождений подстроки
Функцию 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 (Replace (StrEx, SubStr, "")) 'Результат: 17MsgBox Len (StrEx) - Len (Replace (StrEx, SubStr, "")) 'Результат: 23-17 = 6MsgBox (Len (StrEx) - Len (Заменить (StrEx, SubStr, ""))) / Len (SubStr)Результат: (23-17) / 2 = 3Конец подписки |
