A voir également:
- Comment créer un fichier texte
- Comment créer un groupe whatsapp - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Creer un fichier .bat - Guide
12 réponses
Voici un code simple à placer dans le code associé au bouton
A adapter selon tes besoins. L'aide de VB fournit toutes les informations complémentaires sur les commandes open et print.
dim f as integer
f = freefile
open "c:\monfichier.txt" for output as #f
print #f, "petit texte"
close #f
A adapter selon tes besoins. L'aide de VB fournit toutes les informations complémentaires sur les commandes open et print.
dim f as integer
f = freefile
open "c:\monfichier.txt" for output as #f
print #f, "petit texte"
close #f
C ce qe g utiliser pour enregistrer un texte afficher sur un textbox avec selected file representant l'adresse du fichier
Dim SelectedFile As String
Dim vari As Integer
Dim contenu As String
Dim chemin As String
Private Sub save_Click()
vari = FreeFile
contenu = Form1.visualisation.Text
' adresse du fichier a enregistrer
chemin = SelectedFile
'ouverture du fichier
Open chemin For Output As #vari
' enregistrement du texte
Print #vari, contenu
'Fermeture du fichier
Close vari
End Sub
Dim SelectedFile As String
Dim vari As Integer
Dim contenu As String
Dim chemin As String
Private Sub save_Click()
vari = FreeFile
contenu = Form1.visualisation.Text
' adresse du fichier a enregistrer
chemin = SelectedFile
'ouverture du fichier
Open chemin For Output As #vari
' enregistrement du texte
Print #vari, contenu
'Fermeture du fichier
Close vari
End Sub
slt
pour créer un fichier txt en vb6,il suffit d'écrire le code suivant:
Open "C:\monfichier.txt" For Input As #1
retour = Chr$(13) + Chr$(10)
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + retour + texte
Wend
End If
Text1.Text = tout
Close #1
espérant que j'ai aumoin de l'aide
pour créer un fichier txt en vb6,il suffit d'écrire le code suivant:
Open "C:\monfichier.txt" For Input As #1
retour = Chr$(13) + Chr$(10)
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + retour + texte
Wend
End If
Text1.Text = tout
Close #1
espérant que j'ai aumoin de l'aide
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tu peut taper ton texte ds un textbox et puis a partir dun bouton enregistrer le creer sinon je v regarder les codes pour taiguiller pour que tu le fasse par un code
Regarde quand meme dans les forums et sur le net pour voir si tu pe pas trouver un code source qui t'aiderais.
+++
Regarde quand meme dans les forums et sur le net pour voir si tu pe pas trouver un code source qui t'aiderais.
+++
Merci