Discussion :

[Dnx]

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

[nico-pyright(c)]

Salut, tu peux utiliser l'API CreateFile et WriteFile

[Xo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[leroissejp]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Dnx]

yep merci les gars, ca marche super!