comment ecrire un texte dans un fichiers txt car je voudrais faire entrer un texte dans un textbox et en cliquant sur un bouton le faire inscrire dans un fichier (*.txt)

-------------------------------
Réponse au message :
-------------------------------

comment ecrire un texte dans un fichiers txt car je voudrais faire entrer un texte dans un textbox et en cliquant sur un bouton le faire inscrire dans un fichier (*.txt)
-------------------------------

bon bah ouvre un form et tu met 5 .text de dans et une command ds command.click tu met sa
1$ = Text1.Text
2$ = Text2.Text
3$ = Text3.Text
4$ = Text4.Text
5$ = Text5.Text
Open "c:\jeunesse99\agenda.dat" For Append As #1

Print #1, $
Print #1, $
Print #1, $
Print #1, $
Print #1, $

Close #1
end sub
et pour lire ds text box tu met une deuxieme command et tu met ds comand2.click
Open "c:\jeunesse99\agenda.dat" For Input As #1
While Not (EOF(1))
Input #1, nom$
Input #1, adresse$
Input #1, telephone$
Input #1, fax$
Input #1, mail$
données = nom$ & adresse$
List1.AddItem données
Wend
Text1.Text = nom$
Text2.Text = adresse$
Text3.Text = telephone$
Text4.Text = fax$
Text5.Text = mail$

Close #1
End Sub

et voia la tour etsbjoué.. :)) allez tchao

En gros, voici comment lire et afficher le contenu d'un fichier txt :
- la variable chemin définit l'emplacement du fichier "file.txt"
- on a sur la feuille (form1) une zone de texte (Text1) dans laquelle on va afficher le contenu de "file.txt"



vari = FreeFile
chemin = "c:\path\file.txt"
Open chemin For Input As #vari
Form1.Text1.Text = Input(LOF(vari), vari)
Close vari

-----------------

Voici maintenant comment enregistrer les modifications dans le fichier "file.txt" :


vari = FreeFile
chemin = "c:\path\file.txt"
Open chemin For Output As #vari
Write #vari, contenu
Close vari


Bien sûr il faut adapter à la situation, mais c'est la solution la plus simple pour modifier un fichier texte.




-------------------------------
Réponse au message :
-------------------------------

comment ecrire un texte dans un fichiers txt car je voudrais faire entrer un texte dans un textbox et en cliquant sur un bouton le faire inscrire dans un fichier (*.txt)
-------------------------------

Bonjour,
mais comment admettons ke dans un fichier texte jai le nom "Blabla" et ke je veux remplacer ca par "Boubou" ou "bla" peu importe... comment changer une parti de texte, en effacer ou bin re-ecrire sur un meme ligne.. pke mettre une commande print, ca cré une nouvelle ligne.. so si kkun pourrais maider avec ca, ce serais aprécier.. merci..

______________________________
il y a 10 types de personnes... ceux qui connaissent le code binaire, et ceux qui ne le connaissent pas.

ben voila je voudrais cree un module que je peut l'utiliser a differents                        endroits endroit de mon application mais je ne sais pas comment l'appler
ou comment faire pour que ce module entre en action
mercis de votre aide

t'a ka appeller directement la fonction t'a mis dedans.. exemple ke dans ton module ta ca:
Public Sub Blabla()
   code
End sub

bin dans form pour aller chercher le sub dans ton module t'a ka mettre 
Blabla

_-_-_-_-_-_-_-_-_-_-_-_-_-
Il y a 10 types de personnes... Ceux qui connaissent le code binaire, et ceux qui ne le connaissent pas.

Bonjour,
J'ai lu vos réponse mais je ne sais pas si sa correspond à ce que je dois faire.Pourriez vous m'aider??Au faite, je dois crée une application sur vb6,et je ne sais pas comment faire pour pouvoir afficher un fichier texte (choisit par l'utilisateur dans une filelistbox) dans une textbox.Car j'ai fait un code mais celui ci ne fonctionne que pour un seul fichier ainsi comment faire pour afficher tout les fichiers texte qu'on choisit (.txt, .log, .bat..)???

Voici le code que j'ai écrit :

Private Sub Command1_Click()
Open "C:\salut.txt" For Input As #1
While Not EOF(1)
Text1 = Input(LOF(1), #1)
Wend
Close #1
End Sub

moemie[blue]

mercis pour l'info ça marche tres bien
mercis encore

salut,
derien seulement personne m'ai aidé moi :(...

moemie[blue]

Salut moemie[blue]

Au lieu de faire Open avec un nom de fichier 'en dur', passe le nom du fichier choisi par ton utilisateur dans une variable et modifie ton code ainsi :

Open MaVariableNomDeFichier For Input As #1
While Not EOF(1)
Text1 = Input(LOF(1), #1)
Wend
Close #1

Pour savoir comment permettre à ton utilisateur de choisir un fichier, va voir du coté du Common Dialog (tu trouveras plein de sources à ce sujet sur VBFrance :o)

CommonDialog1.Filter = "Fichiers texte|*.txt"
CommonDialog1.ShowOpen
MaVariableNomDeFichier = CommonDialog1.FileName

TootiChat