Supprimer une ou plusieurs lignes dans un fichier

Commenter

Contenu du snippet 

''' <summary>

''' Supprime les lignes spécifiées d'un fichier.

''' </summary>

''' <param name="FileName">Chemin du fichier</param>

''' <param name="Lines">N° des lignes à supprimer</param>

''' <param name="LineSeparator">Séparateur de ligne, CrLf pris par défaut.</param>
Public Sub RemoveLinesFromFile(ByVal FileName As String, ByVal Lines() As Integer, Optional ByVal LineSeparator As String = vbCrLf)   Dim FileLines As New List(Of String) 
   FileLines.AddRange(IO.File.ReadAllText(FileName).Split(LineSeparator))

   For Each Line As Integer In Lines
      Try


         FileLines(Line) = Nothing
      Catch ex As Exception 
         'Do Nothing

      End Try

   Next
   Dim Content As New Text.StringBuilder 
   For Each Line As String In FileLines
      Try


         If Line Is Nothing Then Continue For

            Content.Append(Line & LineSeparator)
      Catch ex As Exception 
          Throw ex
      End Try


   Next

   IO.File.WriteAllText(FileName, Content.ToString)

End Sub

Compatibilité : VB 2005

Disponible dans d'autres langages :

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_Willi)