Clase 5


Programando en Visual Basic.NET

Continuando con corte de control

Ejercicio de corte de control

Dado los siguientes archivos generar el listado deseado

Archivo inscriptos ordenado poruniversidad, facultad y carrera

Código de universidad
Código de facultad
Código de carrera
legajo

Archivo universidades son 10 registros

Código de universidad
nombre

Archivo facultades, son 50facultades

Código de facultad
nombre

Archivo carreras son 100 registros

Código de carrera
nombre

Nota: el código de universidad es de tipo string de 3 posiciones, el resto de los códigos son numéricosListado deseado

























Dim reader As New StreamReader("d:\alu.txt")

Dim facu As New StreamReader("d:\facu.txt")
Dim carre As New StreamReader("d:\car.txt")Dim v As String()
Dim u As String()
Dim univ As Integer = 0
Dim fa As Integer = 0
Dim ca As Integer = 0
Dim leg As Integer = 0
Dim nomubi AsString

Dim cuenta_leg As Integer
Dim suma_univ As Double
Dim salir As Boolean = False

v = reader.ReadLine().Split(";"c)
While Not salir
univ = v(0)Dim uni As New StreamReader("d:\uni.txt")
u = uni.ReadLine().Split(";"c)

While Not uni.Peek = -1
If univ = u(0) Then
nomubi =u(1)

End If
u = uni.ReadLine().Split(";"c)
End While
uni.Close()

ListBox1.Items.Add(String.Format("UNIVERSIDAD {0}", nomubi))suma_univ = 0

While Not salir AndAlso univ = v(0)
fa = v(1)
ListBox1.Items.Add(String.Format(" facultad {0}", fa))

While Notsalir AndAlso univ = v(0) AndAlso fa = v(1)
ca = v(2)
ListBox1.Items.Add(String.Format(" Carrera {0}", ca))

cuenta_leg = 0...