Public Function GetFilePart(ByVal sPath As String, ByVal lLineStart As Long, ByVal lLineStop As Long) As String
'sPath      -> chemin, fichier DOIT exister
'lLineStart -> ligne de départ, commence à 1
'lLineStop  -> ligne de fin,  peut être supérieur au nombre  total
'lLineStart et lLineStop doivent être  logiques, pas de la ligne 8 à 5 par exemple
    Dim FF        As Integer
    Dim asLines() As String
    Dim sLine     As String
    Dim i         As Long
    FF = FreeFile
    i = 0
    ReDim asLines(lLineStart To lLineStop)
    Open sPath For Input As #FF
        Do While Not EOF(FF)
            i = i + 1
            Line Input #1, sLine
            If (i >= lLineStart) And (i <= lLineStop) Then
'               numéro ligne en  cours est dans la plage, on conserve
                asLines(i) = sLine
            ElseIf i > lLineStop Then
'               dernière lignes  "voulue" lue, pas besoin de parcourir le reste
                Exit Do
            End If
        Loop
    Close #FF
'    dépassement?
    If lLineStop > i Then ReDim Preserve  asLines(lLineStart To  i)
    
'    retour
    GetFilePart = Join(asLines, vbCrLf)
    Erase asLines
End Function
'
' ---------------------
' EXEMPLE  D'UTILISATION
'   on considère un fichier  contenant 20 lignes
'  ---------------------
Private Sub Exemple()
'   retourne  tout
    MsgBox GetFilePart("c:\mon_fichier.txt", 1, 66)
'   retourne les 5 dernières lignes
    MsgBox GetFilePart("c:\mon_fichier.txt", 15, 20)
    MsgBox GetFilePart("c:\mon_fichier.txt", 15, 300)
'   retourne 5 lignes, depuis la l0ème
    MsgBox GetFilePart("c:\mon_fichier.txt", 10, 15)
End Sub

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 Function
By Renfield

procedure GetFileLines(const FileName: string; const LineStart, LineEnd: integer; Output: TStrings);
var N, St, En, CpC: integer;
    Input: TStringList;
begin
  Output.BeginUpdate;
  try
    Input := TStringList.Create;
    try
      Input.LoadFromFile(FileName);
      St := LineStart;
      En := LineEnd;
      if St < 0 then
        St := 0;
      if En > (Input.Count-1) then
        En := Input.Count-1;
      Cpc := En-St;
      if Cpc = (Input.Count-1) then
        Output.Assign(Input)
      else
        for N := St to En do
          Output.Add(Input[N]);
    finally
      Input.Free;
    end;
  finally
    Output.EndUpdate;
  end;
end;

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


        
        
    

public string GetPartOfTextFile(string path, uint StartMarkerLine, uint EndMarkerLine)
{
  System.Text.StringBuilder szbTemp = new System.Text.StringBuilder();
  if (StartMarkerLine > EndMarkerLine)
  {
    throw new Exception("Erreur dans les marqueurs de lignes début et/ou fin.");
  }
  if (System.IO.File.Exists(path))
  {
    using (System.IO.FileStream fs = System.IO.File.OpenRead(path)) {
      using (System.IO.StreamReader sr = new System.IO.StreamReader(fs)) {
        uint uiMarker = 0;
        string sReadLine = string.Empty;
        while (sr.EndOfStream == false) {
          sReadLine = sr.ReadLine();
          uiMarker += 1;
          if ((StartMarkerLine <= uiMarker) && (EndMarkerLine >= uiMarker))
          {
            szbTemp.AppendLine(sReadLine);
          }
         else if (EndMarkerLine < uiMarker) {
            break;
          }
        }
      }
    }
    return szbTemp.ToString()
  }