Structure Person Dim Name As String Dim surname As String End Structure Private Sub readfile() Dim iter As Integer Dim mylist(4) As Person For iter = 0 To mylist.Length - 1 mylist(iter).Name = "coucou" + CStr(iter) mylist(iter).surname = "ricoo" Next Dim SW As New StreamWriter("TEST.DAT", False) For Each Record As Person In mylist SW.WriteLine(Record.Name, Record.surname) Next Record SW.Close() End Sub
Private Sub readfile() Dim iter As Integer Dim mylist(4) As Person For iter = 0 To mylist.Length - 1 mylist(iter).Name = "coucou" + CStr(iter) mylist(iter).surname = "ricoo" Next Dim SW As New StreamWriter("TEST.DAT", False) For Each Record As Person In mylist SW.Write(Record.Name) 'seulement le dernier item de ton structure tu écris writeline SW.WriteLine(Record.surname) Next Record SW.Close() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question