Solicitud urgente, cómo usar vb para leer un archivo txt y guardarlo en una matriz bidimensional, como se muestra en los datos proporcionados. Gracias.

Subcomando privado1_Click()

Atenuar i como entero

'Debido a que hay dos puntos en los datos, utiliza formato de cadena

Dim d() como cadena

Dim LStr() como cadena

Dim H como entero

Dim L() como cadena

' Primero lea los datos en la matriz dinámica LStr(), asumiendo que el archivo de texto está almacenado en la misma carpeta que el archivo del programa

Abra App.Path amp "\data.txt" para ingresar como; #1 'Con Abrir el archivo para leer

H = 0

Hacer mientras no EOF(1) ' Recorrer hasta el final del archivo

H = H 1

ReDim Preserve LStr(H) As String

Entrada de línea #1, LStr(H) 'Leer una línea

Bucle

Cerrar #1 'Cerrar documento.

'Redeclarar el tamaño de la matriz

ReDim d(H, 2) As String

'Leer los datos de LStr a d

For i = 1 To H

'Eliminar espacios adicionales, dejando solo un espacio

Hacer While InStr(LSr(i), " ") lt;

LStr(i) = Reemplazar(LStr(i), " ", " ")

Bucle

L = Dividir(LStr(i), " " )

d(i, 1) = L(0)

d(i, 2) = L(1)

Siguiente i

'Envíe la matriz bidimensional a la forma

Para i = 1 a H

Imprima d(i, 1), d(i, 2)

Siguiente i

Fin Sub