Programación VB. problema de lectura de texto

Escriba un código corto para dividir los datos por usted y procesarlos usted mismo más tarde.

Establezca "CancelarError" en Verdadero.

CommonDialog1. CancelError = True

Ir al controlador de errores en caso de error

Establecer indicador

CommonDialog1. Flags = cdlOFNHideReadOnly

Establecer filtro

CommonDialog1. Filter = "Archivos de texto(*.txt)|*.txt|Todos los archivos(*.*)|*.*|"

Especifique el filtro predeterminado.

CommonDialog1. FilterIndex = 2

Muestra el cuadro de diálogo "Abrir".

CommonDialog1. ShowOpen

Muestra el nombre del archivo seleccionado.

MsgBox CommonDialog1. Nombre de archivo

Línea de texto atenuada

Atenuar LJ

Marcar I como número entero

Marcar itmx como ListItem

Lista vista 1. Listar elementos. Borrar

Abrir cuadro de diálogo común 1.nombre de archivo como #1 'Abrir archivo.

"Do While Not EOF(1)" llega al final del archivo.

Entrada de línea n.º 1, Línea de texto 'Lee una línea de datos y asígnala a una variable.

LJ = Split(TextLine, " | ") Ir a la matriz por separador.

Para i = 0 a UBound(LJ)

msgbox lj(i)

Luego

sonar

Cerrar #1 'Cerrar

Conector de salida

Manejador de errores:

"El usuario presionó el botón cancelar.