Ser capaz de ler uma linha de texto delimitado por tabulação usando o Visual Basic for Applications e análise de cada uma das palavras pode fazer a sua aplicação VBA mais dinâmico. Muitas vezes, os programadores precisam ler arquivos delimitados por tabulação e exibir o conteúdo desses arquivos. No VBA , use o método " OpenTextFile " para abrir um arquivo de texto que contém dados delimitados por tabulação . Pesquisar cada linha de abas usando o " vbTab " constante VBA. Este processo é útil quando você precisa encontrar rapidamente guias em uma corda em vez de ler cada caractere na string. Coisas que você precisa
Microsoft Excel
Show Mais instruções
1
Clique no botão Iniciar do Windows e digite "Notepad" na caixa de texto " Pesquisar programas e arquivos " . Pressione " Enter" para iniciar o Bloco de Notas . Digite " Isto", pressione " Tab ", tipo "é", pressione " Tab ", tipo "a", pressione " Tab ", " guia ", digite pressione " Tab ", digite " delimitada ", pressione "Tab" e digite "sentença ". Pressione " Ctrl" e "S" para salvar o arquivo em "C: . \\ MyTextFile.txt "
2
Abra o Microsoft Excel , clique na guia "Desenvolvedor" e clique em " Visual Basic " para o lançamento janela do editor VB . Clique no menu "Inserir" e clique em " Módulo " para adicionar um novo módulo de código . Clique no menu " Ferramentas " e clique em "Referências ". Marque a caixa ao lado de " Microsoft Scripting Runtime " e clique em "OK".
3
Digite o seguinte para criar um novo procedimento sub:
Private Sub readTabDelimited ()
4
Adicione o seguinte código para declarar as variáveis :
Dim as New FileSystemObject oFSO
Dim Dim OFS
sText as String < br >
Dim tmpArray (10) as String
Dim pos as Integer Dim
Xcntr as Integer
5
Abra e leia o arquivo de texto criado na etapa 1:
Set OFS = oFSO.OpenTextFile ( "C: \\ MyTextFile.txt " )
Do Until oFS.AtEndOfStream
sText = oFS.ReadLine
Circuito
6
Encontre cada guia na guia delimitado sentença e adicionar cada palavra para a matriz de String :
pos = InStr (1, sText , vbTab , vbTextCompare ) < br >
Do While ( pos <> 0)
tmpArray ( Xcntr ) = Esquerda ( sText , pos - 1)
sText = Right ( sText , Len ( sText ) - pos)
pos = InStr (1, sText , vbTab , vbTextCompare )
Xcntr = Xcntr + 1
Se ( pos = 0) Então
tmpArray ( Xcntr ) = sText
End If
loop
7
Apresentar cada palavra através da janela imediata da matriz String :
Xcntr = 0
Do While ( tmpArray ( Xcntr ) < > "")
Debug.Print tmpArray ( Xcntr )
Xcntr = Xcntr + 1
Circuito
8
terminar o procedimento digitando " End Sub ", como a linha final do código VBA. Pressione " Ctrl" e "G" para visualizar a janela " imediata" e pressione " F5" para executar o procedimento .
