Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
Dim arch As New StreamReader("C:\archivo.texto")
Dim lineas As String() = arch.ReadToEnd.Replace(vbCrLf, vbCr).Split(vbCr)
arch.Close()
for each lin as string in lineas
'Aqui descompones la linea y obtienes los datos que son relevantes
next lin
public class Registro
public property Fecha as string
public property Asignatura as string
public property Validacion as integer
end class
dim Datos as new list (of Registro)
dim Datos as new list (of Registro)
dim Dato as registro
for each lin as string in lineas
'Aqui descompones la linea y obtienes los datos que son relevantes
dato = new registrodato.fecha = lin.substring(0,12) 'Desde el comienzo toma 12 caracteres
dato.asignatura = lin.substring(35,50) 'Desde el caracter 35 toma 50 caracteres
dato.validacion = lin.substring(15,15) 'Desde el caracter 15 toma 15 caracteres
datos.add(dato)
next lin