Discussion :

[Aramas]

Bonjour ,
Je suis débutant dans VB 2005 express, et je bloque.
Je désire créer un petit prog qui réécrit dans un fichier txt , ce que l'utilisateur a écrit dans la textbox.
Grace a la faq et au tuto j'ai su trouver comment écrire quelque chose dans un fichier :

Code :

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

1
2
3
4
5
6
Const ForWriting = 2
        Dim fso, f
 
        fso = CreateObject("Scripting.FileSystemObject")
        f = fso.OpenTextFile("C:\test.txt", ForWriting, True)
        f.write("")

Mais je ne trouve pas comment faire ce que j'ai expliquer plus haut, j'ai tentais avec les variables mais ils ne sont pas dans les même private sub donc ça ne fonctionne pas , enfin bref j'aimerais bien un peu d'aide ,
merci d'avance

[TheBlackReverand]

tu enregistre automatiquement? (a chaque pression d'une touche)

ou sur evenement? (pression d'un bouton, fermeture du prog.....)

[Aramas]

Salut , ça s'enregistre sur la pression d'un bouton

[TheBlackReverand]

ok, j'ai regarder dans la FAQ car me suis jamais pencher sur la question et d'après

http://faqvbnet.developpez.com/index...adwritetxtfile

tu ajoute tout en haut, au dessus de "Public Class form1"

Code :

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

1
2
 
Imports System.IO

puis sur l'evenement "TextChanged" de ta boite texte le code suivant

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
'Direction du fichier ; ici sur le bureau de l'utilisateur 'Administrateur'
Const NomFichier As String = "C:\Documents and Settings\Administrateur\Bureau\test.txt"
 
'Variable permettant l'ecriture et la lecture
Dim SWrite As StreamWriter
Dim TexteAEcrire As String = TextBox1.Text
 
'Le cree
SWrite = New StreamWriter(NomFichier)
'Ecrire
SWrite.WriteLine(TexteAEcrire)
'Le fermet
SWrite.Close()
 
'Reinitialiser la variable d'ecriture
SWrite = Nothing

Atention, a l'écriture il écrase le fichier precedent

Je l'ai testè sa fonctionne

prend garde a verifier le "NomFichier" si tu n'est pas sur Administrateur

dit moi si besoin d'explication

[TheBlackReverand]

au fait, j'ai changer ton code car il ne fonctionner pas, en tout cas pas cher moi et je pense que des variable Variant ne sont pas très conseiller(pas de As...)

[Aramas]

merci beaucoup pour ton aide ,
en effet cela fonctionne
par contre , si je refais la procédure , ce qui était écrit dans le fichier avant , est remplacé , n'y a t'il pas moyen de le conserver , par exemple en l'écrivant sur la ligne du dessous ?

[TheBlackReverand]

http://webman.developpez.com/article...et/file/vbnet/


je viens de trouver un bon cours sur tous sa

réfère toi au n°3 encodage des fichiers en t'interressant a "True/False"

[Aramas]

Ah c'est bon , j'ai trouvé ma réponse dans le lien que tu as donné , merci encore