Suppression de texte dans un fichier texte avec fso

0/5 (1 avis)

Snippet vu 5 340 fois - Téléchargée 36 fois

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

Ajouter un commentaire

Commentaire

MacGaliver
Messages postés
146
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
21 juillet 2013
3
Il y a un problème dans ce VB...
En plus Où est le texte d'origine et où est le texte qui va le remplacer ?

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.