Ajout structure dans un fichier.txt en vb

Signaler
Messages postés
17
Date d'inscription
lundi 6 décembre 2010
Statut
Membre
Dernière intervention
17 avril 2012
-
Messages postés
17
Date d'inscription
lundi 6 décembre 2010
Statut
Membre
Dernière intervention
17 avril 2012
-
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

5 réponses

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Bonsoir
Quelle est la question
Messages postés
17
Date d'inscription
lundi 6 décembre 2010
Statut
Membre
Dernière intervention
17 avril 2012

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.
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
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

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
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
Messages postés
17
Date d'inscription
lundi 6 décembre 2010
Statut
Membre
Dernière intervention
17 avril 2012

beaucoup pour l'aide