Este tutorial demonstrará como usar a função Len VBA para obter o comprimento de uma string.
Função Len
A função VBA Len retorna o comprimento de uma string especificada.
Personagens da VBA Len Count
A função VBA Len conta os caracteres em uma string.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'O resultado é: 5MsgBox Len ("12") 'O resultado é: 2MsgBox Len ("1") 'O resultado é: 1MsgBox Len ("") 'O resultado é: 1'Há um personagem de espaço lá.MsgBox Len ("") 'O resultado é: 0MsgBox Len ("AB Cd") 'O resultado é: 5End Sub |
VBA Len Strings ou variantes
A função VBA Len pode contar o número de caracteres em variáveis declaradas como strings ou variantes. Na verdade, o VBA Len tratará uma variante como uma string. Se VBA Len for usado com um inteiro, long, single ou double, então VBA Len contará o número de bytes necessários para armazenar a variável.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 As StringVarEx1 = 12345MsgBox Len (VarEx1) 'O resultado é: 5'Len está contando o número de caracteres na variávelDim VarEx2 como varianteVarEx2 = 12345MsgBox Len (VarEx2) 'O resultado é: 5'Len está contando o número de caracteres na variávelDim VarEx3 As IntegerVarEx3 = 12345MsgBox Len (VarEx3) 'O resultado é: 2'Len está contando o número de bytes usados para armazenar a variávelDim VarEx4 As LongVarEx4 = 12345MsgBox Len (VarEx4) 'O resultado é: 2'Len está contando o número de bytes usados para armazenar a variávelDim VarEx5 como únicoVarEx5 = 12345MsgBox Len (VarEx5) 'O resultado é: 2'Len está contando o número de bytes usados para armazenar a variávelDim VarEx6 como duploVarEx6 = 12345MsgBox Len (VarEx6) 'O resultado é: 2'Len está contando o número de bytes usados para armazenar a variávelEnd Sub |
VBA Len Count Ocorrências de um personagem
A função VBA Len pode ser usada com a função VBA Replace para contar quantas vezes um caractere é encontrado em uma string.
A função de substituição do VBA pode substituir uma substring por outra substring em um texto:
| 1 | MsgBox Replace ("XBCX", "X", "7") 'O resultado é: "7BC7" |
Podemos usar Substituir para remover os caracteres que queremos contar com “” e então encontrar a diferença de comprimento antes e depois da substituição.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Definir uma variável de stringStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'O resultado é: 3'Quebrando o código acimaMsgBox Len (StrEx) 'O resultado é: 20MsgBox Replace (StrEx, ",", "") 'O resultado é: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, ",", "")) 'O resultado é: 17MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'O resultado é: 20-17 = 3End Sub |
VBA Len Count ocorrências de uma substring
A função VBA Len pode ser usada com a função VBA Replace para contar quantas vezes uma substring é encontrada em uma string.
A função de substituição do VBA pode substituir uma substring por outra substring em um texto:
| 1 | MsgBox Replace ("XB cX", "X", "7") 'O resultado é: "7B c7" |
Podemos usar Replace para remover as substrings que desejamos contar com “” e, em seguida, encontrar a diferença de comprimento antes e depois da substituição. Finalmente, precisamos dividir a diferença pelo comprimento da substring que substituímos.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Definir uma variável de stringStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Definir uma variável substringSubStr = ","'Nós descobriremos quantas vezes SubStr é encontrado dentro de StrExMsgBox (Len (StrEx) - Len (Replace (StrEx, SubStr, ""))) / Len (SubStr) 'O resultado é: 3'Quebrando o código acimaMsgBox Len (StrEx) 'O resultado é: 23MsgBox Replace (StrEx, SubStr, "") 'O resultado é: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, SubStr, "")) 'O resultado é: 17MsgBox Len (StrEx) - Len (Replace (StrEx, SubStr, "")) 'O resultado é: 23-17 = 6MsgBox (Len (StrEx) - Len (Replace (StrEx, SubStr, ""))) / Len (SubStr)'O resultado é: (23-17) / 2 = 3End Sub |
