Цей підручник покаже, як використовувати функцію Len VBA для отримання довжини рядка.
Функція Лен
Функція VBA Len повертає довжину вказаного рядка.
Персонажі графа VBA Len
Функція 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, щоб підрахувати, скільки разів у рядку зустрічається символ.
Функція заміни VBA може замінити підрядок іншою підрядком у тексті:
1 | MsgBox Replace ("XBCX", "X", "7") "Результат:" 7BC7 " |
Ми можемо використати Замінити, щоб видалити символи, які ми хочемо порахувати за допомогою “”, а потім знайти різницю в довжині до і після заміни.
1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Визначте рядкову зміннуStrEx = "Джек, Джон, Джим, Джордан"MsgBox Len (StrEx) - Len (Замінити (StrEx, ",", "")) 'Результат: 3"Порушення коду вищеMsgBox Len (StrEx) 'Результат: 20MsgBox Replace (StrEx, ",", "") 'Результат: "JackJohnJimJordan"MsgBox Len (Замінити (StrEx, ",", "")) 'Результат: 17MsgBox Len (StrEx) - Len (Замінити (StrEx, ",", "")) 'Результат: 20-17 = 3End Sub |
VBA Len Count Події підрядка
Функцію VBA Len можна використовувати з функцією VBA Replace, щоб підрахувати, скільки разів підрядок виявляється у рядку.
Функція заміни VBA може замінити підрядок іншою підрядком у тексті:
1 | MsgBox Replace ("XB cX", "X", "7") "Результат:" 7B c7 " |
Ми можемо використати Замінити, щоб видалити підрядки, які ми хочемо порахувати за допомогою “”, а потім знайти різницю в довжині до і після заміни. Нарешті, нам потрібно розділити різницю на довжину підрядка, який ми замінили.
12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Визначте рядкову зміннуStrEx = "Джек, Джон, Джим, Джордан"Dim SubStr As String 'Визначте змінну підрядкаSubStr = ","«Ми дізнаємося, скільки разів SubStr зустрічається всередині StrExMsgBox (Len (StrEx) - Len (Замінити (StrEx, SubStr, "")))) / Len (SubStr) "Результат: 3"Порушення коду вищеMsgBox Len (StrEx) 'Результат: 23MsgBox Replace (StrEx, SubStr, "") 'Результат: "JackJohnJimJordan"MsgBox Len (Замінити (StrEx, SubStr, "")) 'Результат: 17MsgBox Len (StrEx) - Len (Замінити (StrEx, SubStr, "")) 'Результат: 23-17 = 6MsgBox (Len (StrEx) - Len (Замінити (StrEx, SubStr, ""))) / Len (SubStr)Результат: (23-17)/2 = 3End Sub |