Mais dia, menos dia se deparará com arquivos onde precisará identificar ou verificar se existem caracteres de tabulação ao usar o Visual Basic for Applications (VBA).
Com o VBA isso fica simples porque podemos usar a função "Chr" com um código de caractere ANSI para determinar se é um caracter de tabulação ou não.
O código para isso não é nada mais do que um IF para identificar o caracter como tabulação. Também podemos usar vbTab no VB para inserir tabulações entre campos de um arquivo texto.
Exemplo:
1 - Crie quatro variáveis que usará para verificar um caractere de tabulação através do seguinte código VBA:
Dim tabString As StringDim char As StringDim length As IntegerDim xCntr As Integer
2 - Insira uma string com tabulação na variável "tabString" inserindo o código abaixo:
Let tabString = "Olá" & vbTab & "Bernardes!"
3 - Obtenha o tamanho da variável string com o seguinte código:
Let length = Len (tabString)
4 - Faça um laço que percorra cada caractere na variável string e busque pelo caractere de tabulação através da função "Chr(9)" inserindo o código VBA abaixo:
Let char = Left(tabString, 1)
For xCntr = 0 To length - 1
Let tabString = Right(tabString, Len(tabString) - 1)
If char = Chr(9) Then
MsgBox "Número de índice " & xCntr & " é uma tabulação na variável String."
End If
Let char = Left(tabString, 1)
Next xCntr
Tags: Tips, VBA, vbTab, ANSI, VB, Chr,
