Sauvegarde d'une chaine de caractere dans un fichier
1 réponse
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-marc
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 :-)
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
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 :-)
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
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 :-)
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