Bonjour tout le monde, je cherche à écrire un enregistrement dans un fichier.txt en retournant à la ligne après chaque enregistrement.voila ma procédure:
Public Sub Ajouter_Produit()
Dim prod As stProduit
Dim x As Integer = 0
Dim ch As String = ""
Dim n As Integer = 0
Console.WriteLine("donner le nombre d'enregistrement")
n = Console.ReadLine()
FileOpen(1, PRODUIT, OpenMode.Random, OpenAccess.Default, OpenShare.Default, Len(prod))
For i As Integer = 0 To n - 1
Console.WriteLine("tapez la référence du produit")
prod.strRefP = Console.ReadLine()
Console.WriteLine("tapez le nom du produit")
prod.strNomP = Console.ReadLine()
Console.WriteLine("tapez la quantité disponible en stock")
prod.intStock = Console.ReadLine()
Console.WriteLine("tapez le prix unitaire actuel du produit")
prod.sngPU = Console.ReadLine()
x = FileLen(PRODUIT) / Len(prod)
FilePut(1, prod, x + 1)
le problème c'est que lorsque j'ajoute des enregistrement dans le fichier texte,les enregistrement sont alignés sur la même ligne,alors je veux modifier mon programme de telle qu'il me permet d'écrire chaque enregistrement dans une ligne à part et merci.
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
