Cómo leer una línea de texto delimitado por tabuladores en VBA

Ser capaz de leer una línea de texto delimitado por tabuladores utilizando Visual Basic para aplicaciones y analizar cada una de las palabras puede hacer que su aplicación de VBA más dinámico. A menudo, los programadores necesitan leer archivos delimitados por tabuladores y mostrar el contenido de dichos archivos. En VBA, utilice el método "OpenTextFile" para abrir un archivo de texto que contiene los datos delimitados por tabuladores. Buscar en cada línea de pestañas utilizando el "vbTab" constante VBA. Este proceso es útil cuando se necesita para encontrar rápidamente las pestañas en una cadena en lugar de leer cada carácter de la cadena.

Instrucciones

1 Haga clic en el botón Inicio de Windows y escriba "Bloc de notas" en el cuadro de texto "Buscar programas y archivos". Pulse la tecla "Enter" para iniciar el Bloc de notas. Tipo "Esto," presione "Tab" tipo "es", presione "Tab" tipo "a", pulse "Tab", escribe "pestaña", presione "Tab", escribe "delimitado", presione "Tab" y escriba "sentencia". Pulse la tecla "Ctrl" y "S" para guardar el archivo en "C: \ MyTextFile.txt."

2 Lanzamiento de Microsoft Excel, haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic" para abrir la ventana Editor de VB. Haga clic en el menú "Insertar" y haga clic en "Módulo" para añadir un nuevo módulo de código. Haga clic en el menú "Herramientas" y haga clic en "Referencias". Marque la casilla junto a "Microsoft Scripting Runtime" y haga clic en "Aceptar".

3 Escribe lo siguiente para crear un nuevo procedimiento de substitución:

Private Sub readTabDelimited ()

4 Agregue el código siguiente para declarar las variables:

Dim oFSo Como Nueva FileSystemObject

oFS dim

Dim como secuencia sText

Dim tmpArray (10) As String

pos As Integer Dim

Dim Xcntr como número entero

5 Abrir y leer el archivo de texto creado en el Paso 1:

Establecer oFS = oFSO.OpenTextFile ( "C: \ MyTextFile.txt")

Hacer hasta oFS.AtEndOfStream

sText = oFS.ReadLine

Lazo

6 Encuentra cada pestaña en la frase delimitado por tabuladores y añadir cada palabra a la matriz de la secuencia:

pos = InStr (1, sText, vbTab, vbTextCompare)

Hacer mientras (pos <> 0)

tmpArray(Xcntr) = Left(sText, pos - 1)

sText = Derecha (sText, Len (sText) - POS)

pos = InStr (1, sText, vbTab, vbTextCompare)

Xcntr = Xcntr + 1

Si (pos = 0) A continuación,

tmpArray (Xcntr) = sText

Terminara si

Lazo

7 Mostrar cada palabra a través de la ventana inmediata de la matriz de la secuencia:

Xcntr = 0

Mientras que hacer (tmpArray (Xcntr) <> "")

Debug.Print tmpArray(Xcntr)

Xcntr = Xcntr + 1

Lazo

8 Terminar el procedimiento escribiendo "End Sub" como la última línea de código VBA. Pulse la tecla "Ctrl" y "G" para abrir la ventana "inmediata" y pulse la tecla "F5" para ejecutar el procedimiento.