Parcourir un fichier a une collection arrayli

Fermé
twix2010 Messages postés 13 Date d'inscription mercredi 23 mars 2011 Statut Membre Dernière intervention 21 décembre 2011 - 13 mai 2011 à 18:58
Bonjour,

je demande comment parcourir un fichier random vers la collection arraylist

Module Module1
Public Structure eleve
Dim num As Integer
<VBFixedString(30)> Dim nom As String
<VBFixedString(5)> Dim filiere As String
Dim classe As Integer
End Structure
Private file As String = "c:\eleve.txt"
Private el As New eleve
Private i As Integer
Public Sub ajouter()
Console.Clear()
FileOpen(1, file, OpenMode.Random, OpenAccess.Write, , Len(el))
Console.Write("entrer votre numero : ")
el.num = Console.ReadLine
Console.Write("entrer votre nom : ")
el.nom = Console.ReadLine
Console.Write("entrer votre filiere : ")
el.filiere = Console.ReadLine
Console.Write("entrer votre classe : ")
el.classe = Console.ReadLine
i = (LOF(1) / Len(el)) + 1
FilePut(1, el, i)
FileClose(1)
End Sub
Sub afficher()
Console.Clear()
FileOpen(1, file, OpenMode.Random, OpenAccess.Read, , Len(el))
While Not EOF(1)
FileGet(1, el)
Console.WriteLine(el.num & "" & el.nom & "" & el.filiere & "" & el.classe)
End While
FileClose(1)
Console.ReadKey()
End Sub

Sub affichage()
Dim list As New ArrayList
FileOpen(1, file, OpenMode.Random, OpenAccess.Read, , Len(el))
While Not EOF(1)
FileGet(1, el)
list.Add(el)
End While
FileClose(1)

While i < list.Count
Console.WriteLine(CType(list.Item(i), eleve).identite)
i += 1
End While
Console.ReadKey()
End Sub
Sub Main()
Dim choix As Integer
Do
Console.Clear()
Console.WriteLine("==========MeNu==========")
Console.WriteLine()
Console.WriteLine(" I ajouter")
Console.WriteLine(" II affiche")
Console.WriteLine(" III affichager ")
Console.WriteLine()
Console.WriteLine("========================")
Console.WriteLine()
Console.Write("entrer votre choix : ")
choix = Console.ReadLine

Select Case (choix)
Case 1
ajouter()
Case 2
afficher()
Case 3
affichage()


End Select
Loop Until (choix = 4)
End Sub
End Module