¿Cómo leer datos de texto? ¿Texto más allá de VBA?

La forma en que VBA lee un archivo de texto es la siguiente:

set file obj = CreateObject("Scripting. File System Object")

Set textobj = fileobj. opentextfile (str, 1, false)' str es el nombre del archivo, 1 = leer, false = no crear el archivo.

En lugar de TextObj. atendoflow

str = TextObj. Leer líneas

Msgbox str 'Esto muestra cada línea del archivo, todo lo que necesita hacer es modificar esta línea y extraerla en el formato que necesita.

Fila

TextObj. Cerrar

Para su procesamiento de texto, el núcleo es el último bucle while como este:

i=2

en lugar de TextObj. atendoflow

str = TextObj. leer línea

Si str = " " entonces i = i 1

arr = split(String, " = ")

Seleccione case trim(arr( 0 ))

Caso "Dispositivo"

Celda(I, 1). valor = matriz(1)

Caso "Usuarios"

Celda(I, 2). valor = matriz(1)

shell "cavidad"

celda(I, 3). value=array(1)

Finalizar selección

Fila