Discussion :

[grand_prophete]

Bonjour

Je voudrais ecrire dans un fichier .txt la valeur qu'il y a dans une textBox. Sauf que lorsque cette valeur change je veux qu'il aille à la ligne d'apres ecrire la nouvelle valeur dans mon fichier .txt et non pas effacer la premiere valeur et réecrire par dessus, comme il le fait pour le moment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim sFileName AsString = Application.StartupPath.ToString & "\délais.txt"
Dim fs AsNew System.IO.FileStream(sFileName, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
Dim sw AsNew System.IO.StreamWriter(fs)
sw.WriteLine("TC1->EV1 " & Delai1.Text)
sw.Flush()
sw.Close()
fs.Close()
 

Et je voudrais en plus donner comme nom à mon fichier la date ou l'heure du jour.

Merci

[ekinox17]

Salut a toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim sFileName AsString = Application.StartupPath.ToString & DateTime.Now.ToString("dd-MM-yyyy") &".txt"
Dim fs AsNew System.IO.FileStream(sFileName, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
Dim sw AsNew System.IO.StreamWriter(fs)
sw.WriteLine("TC1->EV1 " & Delai1.Text)
'sw.Flush() Faut pas mettre ton flush si tu veu pas effacer
sw.Close()
fs.Close()
 

J'ai pas tester le code donc si y'a des ptite modifs mineure c'est normal

[Biloutor]

Salut c'est du C# mais la traduction sera facile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
StreamWriter sw =  File.AppendText(nomFichier);
sw.WriteLine("Toto est le plus beau");
 
sw.Close();

Pour le nom du ficheir il te faut utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
String toto;
toto = DateTime.Now.ToLongTimeString() // Output ==>  11:20:10
toto = DateTime.Now.ToLongDateString()// Output ==> jeudi 4 mai 2006

L'objet DateTime est static, tu as pas besoin de l'instancier et après regarde dans la Doc pour savoir exactement le format que tu veux. Les deux méthodes citées retournent un String, tu n'a plus qu'a travailler ta String pour remplacer les espaces par des _ ou autre chose.
A toi de voir.

Bonne chance

[behe]

salut,
ekinox17, t'es sur que ton code va à la ligne?
Sinon moi je ferais un truc comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim sFileName AsString = Application.StartupPath.ToString & "\" & CType(Format(Date.Now, "yyyy-MM-dd"), String) & ".txt"
If File.Exists(sFileName) Then
Dim fs AsNew System.IO.FileStream(sFileName, IO.FileMode.Append, IO.FileAccess.Write)
Dim sw AsNew System.IO.StreamWriter(fs)
sw.Write("TC1->EV1 " & TextBox1.Text)
sw.Flush()
sw.Close()
fs.Close()
Else
Dim fs AsNew System.IO.FileStream(sFileName, IO.FileMode.Create, IO.FileAccess.Write)
Dim sw AsNew System.IO.StreamWriter(fs)
sw.WriteLine("TC1->EV1 " & TextBox1.Text)
sw.Flush()
sw.Close()
fs.Close()
EndIf
 

[ekinox17]

Biensur qu'il va a la ligne vu que j'utilise WriteLine()
Et que si tu utilise Write() il ne fera pas de retour a la ligne donc si tu reecri a la suite il t'ecrira a la suite de la ligne en cours; en gros :
WriteLine() = Write("\n")
c'est aussi simple que ça

[behe]

heu je viens de tester ton code et ca ne va pas à la ligne (du moins en 2003 j ai pas 2005 sous la main). Le cas m interesse car je vais devoir faire pas mal de copie/création de fichiers texte bientot
edit writeline écrit bien une ligne mais si tu n es pas en mode IO.FileMode.Append tu ecriras toujours sur la 1ere ligne non?

[grand_prophete]

Merci les gars c'est ce qu'il me fallait

[grand_prophete]

Au passage un truc tout bête. J'ai une valeur de type string a afficher dans le textbox, et je veux limiter le nombre de caractères à 4, genre 2,651. Mais je n'y arrive pas, quand je veux utiliser textlength, il me dis que sa propriété est readonly et si je met je fais textBox.ReadOnly = false, ça change rien. Pareil si j'agis seulement sur la variable a afficher, readonly, et je n'arrive pas a acceder a cette propriété.