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.
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.