gestion de fichier sur vb dot net

Question

bonjour a tous le monde donc sans tarder voila ma question

j'essaie de cree un petit programe en utilisant un fichier text ou j'ajoute les donnée le problém c'est que mes donné 
ne se stocke pas just la premier line et quand j'ajoute une autre line elle ecrase la précedent 


le code et long et je sais pas comment poster le programme s'il a quelqu'un qui peux m'aider je serais reconaissan


je suis un débutant dans le domain mes salutation

cs_casy · Answer

Vérifie le mode d'ouverture de ton fichier texte.

Probablement que tu le ferme après chaque enregistrement et donc que tu le réouvre pour enregistrer une nouvelle ligne. Cette réouverture, tu dois sans doute la faire en mode écrasement, c'est à dire que à chaque fois que tu ouvre ton fichier, il est vidé de son contenu. Il faut l'ouvrir en mode Ajout (Append en anglais)

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_fauve · Answer

Salut,

Si tu mettais le code te permettant d'écrire dans un fichier. On serait mieux à même de t'aider Non ? 

++

Fauve
<hr size="2" width="100%" />Pensez : Réponse Acceptée

heiven · Answer

voila le code qui me permet d'ecrire
Public

Function lecture() 
As
Object()

Dim Line 
As
String

Dim i 
As
Integer = 0

ReDim t(Li)FileOpen(1, 

"hotel.txt", OpenMode.Input)

While
Not EOF(1)Line = LineInput(1)

t(i) = Line

i = i + 1

End
WhileFileClose(1)

Return (t)

End
Function
et voila celui qui me permet d'ajouter
Private

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickt = lecture()

Dim line 
As
String

If L.Checked = 
True
Thenline = N.Text & 

";" & C.Text & 
";" & P.Text & 
";" & CA.Text & 
";" & L.TextLi = Li + 1

t(Li - 1) = line

ecriture()

End
If

If O.Checked = 
True
Thenline = N.Text & 

";" & C.Text & 
";" & P.Text & 
";" & CA.Text & 
";" & O.TextLi = Li + 1

t(Li - 1) = line

ecriture()

End
If

End
Sub
merci d'avance

cs_fauve · Answer

Salut,

Ton soucis c'est lors de l'écriture ou lors de la lecture du fichier ?

Tu indiques comment tu lis mais pas comment tu écris

Donc si tu peux mettre la fonction ecriture() ça serait bien

<hr size="2" width="100%" />Pensez : Réponse Acceptée

heiven · Answer

voila ma fonction d'ecriture 
Public

Sub ecriture()

Dim i 
As
Integer = 0FileOpen(1, 

"hotel.txt", OpenMode.Output)

For i = 0 
To Li - 1Print(1, t(i) & vbCrLf)

NextFileClose(1)

End
Sub

cs_fauve · Answer

Donc,

Le soucis que tu rencontres c'est que quand tu fais le premier enregistrement, tout se passe bien mais quand tu fais le deuxième, ça écrase la 1° ligne pour mettre celle du deuxième enregistrement...

C'est bien ça ?

<hr size="2" width="100%" />Pensez : Réponse Acceptée

heiven · Answer

oui absolument c'est le dérnier enregistrement que j'ai fais qui reste

cs_fauve · Answer

Voici une autre manière de pouvoir enregistrer dans un fichier :

Sub ecriture() Dim SW As New StreamWriter("hotel.txt", True)' crée le fichier ou si existe ajoute For i = 0 To Li - 1 SW.WriteLine(t(i ) ) ' A chaque fois que WriteLine est utilisé, le contenu de t(i) est enregistré sur une nouvelle ligne Next SW.Close() End Sub

Pour lire un fichier maintenant :

Function lecture() As Object() Dim i As Integer = 0 ReDim t(Li) Dim SR As New StreamReader ("hotel.txt") Do Until SR.Peek = -1 ' Lit le fichier du début jusqu'à la fin t(i) = SR.ReadLine() ' ReadLine lit une ligne à chaque fois i += 1 Loop SR.Close() Return (t) End Function

J'espère que cela va te convenir...

++ Fauve

Pensez : Réponse Acceptée

code86 · Answer

salut,


Si tu veux ajouter un enregistrement dans le cas d'un fichier séquentiel, tu doit tout simplement ouvrir le fichier en mode ajout , comme ça le nouveau enregistrement s'ajoute automatiquement dans la dernière ligne pour ne pas écraser les enregistrements déja enregistré

Gestion de fichier sur vb dot net

9 réponses

Votre réponse

Discussions similaires