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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 827 fois - Téléchargée 7 fois


Contenu du snippet

Public Function GetFilePart(ByVal sPath As String, ByVal lLineStart As Long, ByVal lLineStop As Long) As String
    Dim FReader As StreamReader
    Dim Res As String = String.Empty
    Dim Ret As String = String.Empty
    Dim Count As Integer = 0
    'La encore comme dans le snippet de PCPT,
    'lLineStart et lLineStop doivent être  logiques, pas de la ligne 8 à 5 par exemple
    'On vérifie l'existence du fichier
    If File.Exists(sPath) Then
        'ouverture du fichier
        FReader = New StreamReader(sPath, System.Text.Encoding.GetEncoding("iso-8859-1"))
        'tant que nous ne somme pas à la ligne
        'souhaitée
        While Count < (lLineStart - 1)
            Call FReader.ReadLine
            Count += 1
        End While
        While Count < lLineStop
            'on vérifie de ne pas être arrivé à la fin
            'du flux
            If Not FReader.EndOfStream Then
                'on lit la ligne
                Ret = FReader.ReadLine
                'on concatène avec le résultat
                Res = String.Concat(Res, Ret, Environment.NewLine)
                Count += 1
            Else
                Exit While
            End If
        End While
    End If
    Return Res
End FunctionBy Renfield

Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

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.