Sauvegarde d'une chaine de caractere dans un fichier

Le
rayan-cooper
Bonjour,
Mon projet consiste a retirer certains caracteres du texte contenu dans un fichier csv. Il me reste plus que la derniere etape cad sauvegarder ma chaine de caractere modifiée qui est contenue dans un variable string. le nom du fichier destination est le meme que celui ouvert dans le buffer au debut de mon projet.
Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-marc
Le #18071591
rayan-cooper wrote:
Bonjour,



Hello,

Mon projet consiste a retirer certains caracteres du texte contenu
dans un fichier csv. Il me reste plus que la derniere etape cad
sauvegarder ma chaine de caractere modifiée qui est contenue dans un
variable string. le nom du fichier destination est le meme que celui
ouvert dans le buffer au debut de mon projet. Merci de votre aide



Tu as toutes les réponses dans la FAQ VB...

Comme c'est dimanche, voici la fonction en cadeau :-)

La fonction : WriteBufferInFile()


' -----------------------------------------------------
'
Option Explicit

Private Function FileExists(ByVal sFileName As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFileName) And vbDirectory) = 0)
End Function

Public Function WriteBufferInFile(ByVal buffer As String, _
ByVal sFileName As String, _
ByRef ErrCode As Long) As Boolean
Dim f As Integer

On Error GoTo WriteBufferInFile_ERR

If FileExists(sFileName) Then
Kill sFileName
End If
DoEvents

f = FreeFile
Open sFileName For Output As #f
Print #f, buffer
Close #f
WriteBufferInFile = True

WriteBufferInFile_END:
Exit Function

WriteBufferInFile_ERR:
WriteBufferInFile = False
ErrCode = CLng(Err.Number)
Resume WriteBufferInFile_END

End Function

'
' Pour l'utiliser :
'
Private Sub Form_Load()

Dim buffer As String
Dim FileName As String
Dim f As Integer
Dim ret As Boolean
Dim ErrCode As Long


buffer = "coucou"
FileName = "c:test.txt"

ret = WriteBufferInFile(buffer, FileName, ErrCode)

If ret Then
MsgBox "succes"
Else
MsgBox "echec. Erreur : " & ErrCode
End If

End Sub

' ------------------------------------------------------


Bon WE.

Cordialement;


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Publicité
Poster une réponse
Anonyme