J'ai deux question vitale pour mon tipe
cs_BodyLove
Messages postés
4
Date d'inscription
samedi 27 janvier 2001
Statut
Membre
Dernière intervention
19 février 2010
-
16 sept. 2005 à 17:28
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 16 sept. 2005 à 19:20
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 16 sept. 2005 à 19:20
A voir également:
- J'ai deux question vitale pour mon tipe
- Ephemeride entre deux dates - Forum Visual Basic 6
- Sql entre deux dates ✓ - Forum SQL
- Comment calculer le nombre de mois séparant deux dates ? ✓ - Forum Delphi / Pascal
- Syntaxe requête sql pour recherche entre deux dates ✓ - Forum VB.NET
- Comparer deux dates sql - Forum SQL
1 réponse
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
16 sept. 2005 à 19:20
16 sept. 2005 à 19:20
bonjour,
Pour lire et enregistrer un fichier, tu places sur ta form, 2 commandButton (cmdLire et cmdEnregistrer) et 2 textbox (text1 et Text2), tu mets la propriété Multiligne de text2 à true.Dans Text1, tu mets le nom du fichier que tu veux ouvrir (par exemple MonFichier.txt où Mesdocuments\Monfichier.txt) le fichier s'ouvrira dans Text2 où tu pourras le modifier , le fichier modifié sera enregistrer lorsque tu cliques sur le bouton enregistrer.
Private Sub cmdLire_Click()
Dim NomChemin, NomFichier, NomRep, tout, texte, crlf
crlf = Chr(13) + Chr(10)
NomChemin = "C:"
NomFichier = Text1
Open NomChemin + NomFichier For Input As #1
On Error Resume Next
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text2.Text = tout
Close #1
End Sub
Private Sub cmdEnregistrer_Click()
Dim NomChemin, NomFichier, NomRep
NomChemin = "C:"
NomFichier = Text1
Open NomChemin + NomFichier For Output As #1
Print #1, Text2
Close #1
End Sub
jpleroisse
Pour lire et enregistrer un fichier, tu places sur ta form, 2 commandButton (cmdLire et cmdEnregistrer) et 2 textbox (text1 et Text2), tu mets la propriété Multiligne de text2 à true.Dans Text1, tu mets le nom du fichier que tu veux ouvrir (par exemple MonFichier.txt où Mesdocuments\Monfichier.txt) le fichier s'ouvrira dans Text2 où tu pourras le modifier , le fichier modifié sera enregistrer lorsque tu cliques sur le bouton enregistrer.
Private Sub cmdLire_Click()
Dim NomChemin, NomFichier, NomRep, tout, texte, crlf
crlf = Chr(13) + Chr(10)
NomChemin = "C:"
NomFichier = Text1
Open NomChemin + NomFichier For Input As #1
On Error Resume Next
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text2.Text = tout
Close #1
End Sub
Private Sub cmdEnregistrer_Click()
Dim NomChemin, NomFichier, NomRep
NomChemin = "C:"
NomFichier = Text1
Open NomChemin + NomFichier For Output As #1
Print #1, Text2
Close #1
End Sub
jpleroisse
