Comment enregistrer une string dans un fichier

Version imprimable

23/09/2005, 10h00
Dnx

Comment enregistrer une string dans un fichier

bonjour

j'ai une string qui contient du texte (logique...) mais j'aimerais sauver cette "string" dans un fichier texte, html ou autre SANS passer par des RICHTEXTBOX (ca fout des tags partout cette *)

merci d'avance
23/09/2005, 10h46
nico-pyright(c)

Salut, tu peux utiliser l'API CreateFile et WriteFile

Une fonction comme celle-ci devrait répondre à tes besoins :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function creeFichier(sPath, sTexte) As Boolean
    Dim canal As Byte
 
    On Error GoTo errFic
 
    If Len(Dir(sPath)) > 0 Then Kill sPath 'on supprime la préc sauvegarde !
 
    canal = FreeFile
    Open sPath For Output As #canal
    Print #canal, sTexte
    Close canal
 
    creeFichier= True
    Exit Function
 
errFic:
    msg = "Erreur n° " & Err.Number & vbLf & Err.Description
    MsgBox msg, vbOKOnly + vbCritical, "Erreur Procédure creeFichier"
    creeFichier= False
End Function

Comment enregistrer une string dans un fichier

Bonjour,

Code:

1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim texte As String
texte = "bonjour, comment vas-tu ?"
Open "C:\Test.txt" For Output As #1
Print #1, texte
Close #1
End Sub

jpleroisse

23/09/2005, 14h52
Dnx

yep merci les gars, ca marche super!