Ajout structure dans un fichier.txt en vb

Question

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) 

Next 
FileClose(1) 
End Sub 
et merci d'avance

cs_ShayW · Answer

Bonsoir
Quelle est la question

couranes · Answer

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.

cs_ShayW · Answer

salut
voila un ex sur lequel tu peux te baser

 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

cs_ShayW · Answer

je corrige

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

couranes · Answer

beaucoup pour l'aide

Ajout structure dans un fichier.txt en vb

5 réponses

Votre réponse

Discussions similaires