HOLA A TODOS, SOY NUEVA EN V.B Y TENGO UN PROBLEMA, SE LEER LINEA POR LINEA UN FICHERO, PERO NO CUANDO ESTA ESTRUCTURADO POR BLOQUES
POR EJEMPLO
------- Asignaturas ciclo: DAI (GRADO SUPERIOR) ----------------
------- TURNOS: D/V
------- CURSO: 1º DAI
D101 # Sist.Infor.Multiusuario y en red
D102 # Analisis y Diseño de aplicaciones
D103 # Programacion Leng. estructurados
------- CURSO: 2º DAI
D201 # Desarrollo Aplicaciones CASE
D202 # Diseño-realizacion ap.ent.graficos VB
D203 # FOL Formacion y orientacion laboral

ESTE FICHERO TENGO QUE LEERLO Y LUEGO METERLO EN UNA COLECCION, PERO NO CONSIGO LEERLO BIEN
Y MI CODIGO ES ESTE
Dim fichero As StreamReader
'CON APPLICATION.STARTUPATH & ASIGNATURAS_CICLO -ES PARA QUE COGE LA RUTA DEL FICHERO
fichero = New StreamReader("H:\Tarde-Visual Basic-2008\ProyectoInstituto\bin\Debug\Asignaturas_ciclo s.txt")

Dim obj_temp As New ClassCiclo
Dim objeCurso As New ClassCurso
Dim objetoAsig As New ClassAsignatura
Do While fichero.EndOfStream <> True
Dim linealeida As String

'leer el fichero hasta el final
linealeida = fichero.ReadLine()
If linealeida = "" Then Continue Do
Do While linealeida Like "*ciclo*"
obj_temp.nombreCiclo = linealeida.Split(":")(1).Split(" ")(1)
ModulevarPublico.insti.coleccionInstitutoCiclo.Add (obj_temp.nombreCiclo, obj_temp)
linealeida = fichero.ReadLine()

Do
obj_temp.turnoCiclo = linealeida.Split(":")(1).Split(" ")(1)
ModulevarPublico.insti.coleccionInstitutoCiclo.Add (obj_temp.turnoCiclo & "-" & obj_temp.nombreCiclo, obj_temp)
linealeida = fichero.ReadLine()

Loop While linealeida Like "*turnos*"
If linealeida Like "*CURSO*" Then
objeCurso.claveCurso = linealeida.Split(":")(1)
obj_temp.coleccionCursosCiclo.Add(objeCurso.claveC urso,
objeCurso)
linealeida = fichero.ReadLine()
Do
objetoAsig.codAsignatura = linealeida.Split("#")(0)
objetoAsig.nombreAsignatura = linealeida.Split("#")(1)
objeCurso.coleccionAsignaturasCurso.Add(objetoAsig .codAsignatura, objetoAsig)
linealeida = fichero.ReadLine()
Loop Until linealeida Like ""


End If
Loop

'End If

Loop
fichero.Close()

Hola.Así es como me quedó:

Dim fichero As StreamReader
'CON APPLICATION.STARTUPATH & ASIGNATURAS_CICLO -ES PARA QUE COGE LA RUTA DEL FICHERO
fichero = New StreamReader("H:\Tarde-Visual Basic-2008\ProyectoInstituto\bin\Debug\Asignaturas_ciclo s.txt")

Dim obj_temp As New ClassCiclo
Dim objeCurso As New ClassCurso
Dim objetoAsig As New ClassAsignatura
Do While fichero.EndOfStream <> True
Dim linealeida As String

'leer el fichero hasta el final
linealeida = fichero.ReadLine()
If linealeida = "" Then Continue Do
Do While linealeida Like "*ciclo*"
obj_temp.nombreCiclo = linealeida.Split(":")(1).Split(" ")(1)
ModulevarPublico.insti.coleccionInstitutoCiclo.Add (obj_temp.nombreCiclo, obj_temp)
linealeida = fichero.ReadLine()

Do
obj_temp.turnoCiclo = linealeida.Split(":")(1).Split(" ")(1)
ModulevarPublico.insti.coleccionInstitutoCiclo.Add (obj_temp.turnoCiclo & "-" & obj_temp.nombreCiclo, obj_temp)
linealeida = fichero.ReadLine()

Loop While linealeida Like "*turnos*"
Do While linealeida Like "*CURSO*"
objeCurso.claveCurso = linealeida.Split(":")(1)
obj_temp.coleccionCursosCiclo.Add(objeCurso.claveC urso,
objeCurso)
linealeida = fichero.ReadLine()
Do
objetoAsig.codAsignatura = linealeida.Split("#")(0)
objetoAsig.nombreAsignatura = linealeida.Split("#")(1)
objeCurso.coleccionAsignaturasCurso.Add(objetoAsig .codAsignatura, objetoAsig)
linealeida = fichero.ReadLine()

If linealeida = Nothing Then
fichero.Close()
Exit Sub
End If
Loop While Not linealeida Like "*:*"


Loop
Loop

'End If

Loop
fichero.Close()




Saludos.