Suppression de texte dans un fichier texte avec fso

Commenter

Contenu du snippet

Suite du source lecture de fichier texte avec FSO

Source / Exemple : 


Private Sub ClearTXT(Chemin As String, FileTXT As String, StartLineBlock As Long, EndLineBlock As Long)
    Dim VarBuffer As String, NextLine As String
    Dim LongFile As Long
    Dim ObjetTXT As New FileSystemObject
    Dim Fil As File
    Dim TStreamTXT As TextStream
    Set ObjetTXT = CreateObject("Scripting.FileSystemObject")
    ObjetTXT.CreateTextFile (Chemin + FileTXT)
    Set Fil = ObjetTXT.GetFile(Chemin + FileTXT)
    Set TStreamTXT = Fil.OpenAsTextStream(ForWriting)
'   Calcul la premiere position après suppression
    LongFile = Len(FileBuffer1) - EndLineBlock
'   Constitue fichier destination après suppression
    VarBuffer = Left(FileBuffer1, PosStart) + Right(FileBuffer1, LongFile)
    TStreamTXT.Write VarBuffer
    TStreamTXT.Close
End Sub

Private Sub Suppression()
    ClearTXT("C:\","Bootlog.txt",20,30)
End Sub

Conclusion :


FileBuffer1 est biensûr le texte à modifier.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Fredoun)