Création et écriture dans un fichier .txt
progrima
Messages postés
125
Date d'inscription
lundi 1 novembre 2004
Statut
Membre
Dernière intervention
4 janvier 2006
-
17 déc. 2005 à 11:21
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 17 déc. 2005 à 12:19
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 17 déc. 2005 à 12:19
A voir également:
- Création et écriture dans un fichier .txt
- Ecriture transparente - Conseils pratiques -Graphisme
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier class ✓ - Forum Java
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
3 réponses
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
17 déc. 2005 à 11:30
17 déc. 2005 à 11:30
Voir les nombreuses questions posées chaque semaine à ce sujet. une
petite recherche avant de poster des questions permet de gagner du
temps...
Open "nom fichier.txt" for output as #1
write #1, texte
close #1
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
petite recherche avant de poster des questions permet de gagner du
temps...
Open "nom fichier.txt" for output as #1
write #1, texte
close #1
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
17 déc. 2005 à 11:30
17 déc. 2005 à 11:30
Salut,
Cherche dans la msdn ou sur le site avec "open".
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Cherche dans la msdn ou sur le site avec "open".
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
17 déc. 2005 à 12:19
17 déc. 2005 à 12:19
Bonjour,
Tu places sur ta Form un TextBox (propriété Multiligne à True) et 2
CommandButton (cmdOuvrir et cmdEnregistrer). Pour créer le fichier
texte, tu places d'abords des données dans le TextBox, ensuite tu
cliques sur cmdEnregistrer, tu peux alors lire les données avec ouvrir,
modifier et enregistrer de nouveau selon ton choix.
Private Sub cmdEnregistrer_Click()
If Text1.Text = "" Then
MsgBox "Il n'y a rien à enregistrer"
cmdEnregistrer.Enabled = False
Else
cmdEnregistrer.Enabled = True
Open "C:\MonFichier.txt" For Output As #1
Print #1, Text1.Text
Close #1
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub cmdOuvrir_Click()
Dim fs, f
Dim texte
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\MonFichier.txt", 1, False, 0)
texte = f.Readall
f.Close
Text1.Text = texte
If Text1.Text <> "" Then
cmdEnregistrer.Enabled = True
End If
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Tu places sur ta Form un TextBox (propriété Multiligne à True) et 2
CommandButton (cmdOuvrir et cmdEnregistrer). Pour créer le fichier
texte, tu places d'abords des données dans le TextBox, ensuite tu
cliques sur cmdEnregistrer, tu peux alors lire les données avec ouvrir,
modifier et enregistrer de nouveau selon ton choix.
Private Sub cmdEnregistrer_Click()
If Text1.Text = "" Then
MsgBox "Il n'y a rien à enregistrer"
cmdEnregistrer.Enabled = False
Else
cmdEnregistrer.Enabled = True
Open "C:\MonFichier.txt" For Output As #1
Print #1, Text1.Text
Close #1
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub cmdOuvrir_Click()
Dim fs, f
Dim texte
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\MonFichier.txt", 1, False, 0)
texte = f.Readall
f.Close
Text1.Text = texte
If Text1.Text <> "" Then
cmdEnregistrer.Enabled = True
End If
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.