Este tutorial demostrará cómo usar la función Len VBA para obtener la longitud de una cadena.
Función Len
La función VBA Len devuelve la longitud de una cadena especificada.
Personajes de VBA Len Count
La función VBA Len cuenta los caracteres en una cadena.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'El resultado es: 5MsgBox Len ("12") 'El resultado es: 2MsgBox Len ("1") 'El resultado es: 1MsgBox Len ("") 'El resultado es: 1Hay un personaje espacial ahí.MsgBox Len ("") 'El resultado es: 0MsgBox Len ("AB Cd") 'El resultado es: 5End Sub |
VBA Len cadenas o variantes
La función VBA Len puede contar el número de caracteres en variables declaradas como cadenas o variantes. En realidad, VBA Len tratará una variante como una cadena. Si VBA Len se usa con un número entero, largo, simple o doble, VBA Len contará la cantidad de bytes necesarios para almacenar la variable.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 como cadenaVarEx1 = 12345MsgBox Len (VarEx1) 'El resultado es: 5'Len está contando el número de caracteres en variableDim VarEx2 como varianteVarEx2 = 12345MsgBox Len (VarEx2) 'El resultado es: 5'Len está contando el número de caracteres en variableDim VarEx3 como enteroVarEx3 = 12345MsgBox Len (VarEx3) 'El resultado es: 2'Len está contando el número de bytes usados para almacenar la variableDim VarEx4 tan largoVarEx4 = 12345MsgBox Len (VarEx4) 'El resultado es: 2'Len está contando el número de bytes usados para almacenar la variableDim VarEx5 como únicoVarEx5 = 12345MsgBox Len (VarEx5) 'El resultado es: 2'Len está contando el número de bytes usados para almacenar la variableDim VarEx6 como dobleVarEx6 = 12345MsgBox Len (VarEx6) 'El resultado es: 2'Len está contando el número de bytes usados para almacenar la variableEnd Sub |
VBA Len Count apariciones de un personaje
La función VBA Len se puede usar con la función VBA Replace para contar cuántas veces se encuentra un carácter en una cadena.
La función Reemplazar de VBA puede reemplazar una subcadena con otra subcadena en un texto:
| 1 | MsgBox Replace ("XBCX", "X", "7") 'El resultado es: "7BC7" |
Podemos usar Reemplazar para eliminar los caracteres que queremos contar con “” y luego encontrar la diferencia de longitud antes y después del reemplazo.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Definir una variable de cadenaStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'El resultado es: 3'Desglosando el código de arribaMsgBox Len (StrEx) 'El resultado es: 20MsgBox Replace (StrEx, ",", "") 'El resultado es: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, ",", "")) 'El resultado es: 17MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'El resultado es: 20-17 = 3End Sub |
VBA Len Count apariciones de una subcadena
La función VBA Len se puede usar con la función VBA Replace para contar cuántas veces se encuentra una subcadena en una cadena.
La función Reemplazar de VBA puede reemplazar una subcadena con otra subcadena en un texto:
| 1 | MsgBox Replace ("XB cX", "X", "7") 'El resultado es: "7B c7" |
Podemos usar Reemplazar para eliminar las subcadenas que queremos contar con "" y luego encontrar la diferencia de longitud antes y después del reemplazo. Finalmente, necesitamos dividir la diferencia con la longitud de la subcadena que reemplazamos.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Definir una variable de cadenaStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Definir una variable de subcadenaSubStr = ","'Encontraremos cuántas veces se encuentra SubStr dentro de StrExMsgBox (Len (StrEx) - Len (Replace (StrEx, SubStr, ""))) / Len (SubStr) 'El resultado es: 3'Desglosando el código de arribaMsgBox Len (StrEx) 'El resultado es: 23MsgBox Replace (StrEx, SubStr, "") 'El resultado es: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, SubStr, "")) 'El resultado es: 17MsgBox Len (StrEx) - Len (Replace (StrEx, SubStr, "")) 'El resultado es: 23-17 = 6MsgBox (Len (StrEx) - Len (Reemplazar (StrEx, SubStr, ""))) / Len (SubStr)'El resultado es: (23-17) / 2 = 3End Sub |
