Récupérer une partie d'un fichier (ligne n à x)


Commenter

Contenu du snippet 

Public Function GetPartOfTextFile(ByVal path As String, ByVal StartMarkerLine As UInteger, ByVal EndMarkerLine As UInteger) As String 
 
        Dim szbTemp As New System.Text.StringBuilder 
 
        If StartMarkerLine > EndMarkerLine Then 
            Throw New Exception("Erreur dans les marqueurs de lignes début et/ou fin.") 
        End If 
 
        If System.IO.File.Exists(path) Then 
 
            Using fs As System.IO.FileStream = System.IO.File.OpenRead(path) 
                Using sr As New System.IO.StreamReader(fs) 
 
                    Dim uiMarker As UInteger = 0 
                    Dim sReadLine As String = String.Empty 
 
                    Do While sr.EndOfStream = False 
 
                        sReadLine = sr.ReadLine() 
                        uiMarker += 1 
 
                        If (StartMarkerLine <= uiMarker) AndAlso (EndMarkerLine >= uiMarker) Then 
                            szbTemp.AppendLine(sReadLine) 
                        ElseIf EndMarkerLine < uiMarker Then 
                            Exit Do 
                        End If 
 
                    Loop 
 
                End Using 
            End Using 
 
        Else 
            Throw New System.IO.IOException(String.Format("Le fichier {0} n'existe pas", path)) 
        End If 
 
        Return szbTemp.ToString() 
 
    End Function

Compatibilité : VB 2005, VB 2008, VB.NET 1.x

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 (PCPT)