Le moyen le plus efficace pour parcourir un fichier et lire des lignes?

Question

Je veux utiliser un FileStream et chercher depuis le début du fichier tout en avançant dans le fichier .01% de la taille du fichier à la fois.

Donc, je veux chercher une position dans le fichier, lire la ligne entière, si elle correspond à mes critères, j'ai terminé. Sinon, je cherche un autre .01.

C# est OK mais VB.NET est préféré.

J'utilisé pour faire quelque chose comme ça dans VB6 ...

  FileOpen(1, CurrentFullPath, OpenMode.Input, OpenAccess.Read, OpenShare.Shared) 
     Dim FileLength As Long = LOF(1) 

     For x As Single = 0.99 To 0 Step -0.01 
      Seek(1, CInt(FileLength * x)) 
      Dim S As String = LineInput(1) 
      S = LineInput(1) 
      filePosition = Seek(1) 
      If filePosition < 50000 Then 
       filePosition = 1 
       Exit For 
      End If 
      V = Split(S, ",") 
      Dim MessageTime As Date = CDate(V(3) & " " & Mid$(V(4), 1, 8)) 
      Dim Diff As Integer = DateDiff(DateInterval.Minute, MessageTime, CDate(RequestedStartTime)) 
      If Diff >= 2 Then 
       Exit For 
      End If 
     Next 

Mais je ne veux pas utiliser FileOpen, je veux utiliser un FileStream.

Toute aide est grandement appréciée!

Answer 1

Ceci est une conversion plus ou moins directe de votre code, où nous utilisons FileStream.Position pour spécifier l'emplacement dans le fichier à lire:

 
Using streamReader As System.IO.StreamReader = System.IO.File.OpenText(CurrentFullPath) 
    For x As Single = 0.99 To 0 Step -0.01 
    streamReader.BaseStream.Position = CLng(streamReader.BaseStream.Length * x) 
    Dim S As String = streamReader.ReadLine() 
    '... etc. 
    Next 
End Using 

Answer 2

ce combat quelque chose comme ça (C# version):

using (var file = System.IO.File.OpenText(filename)) 
{ 
    while (!file.EndOfStream) 
    { 
      string line = file.ReadLine(); 
      //do your logic here 
      //Logical test - if true, then break 
    } 
} 

EDIT: version VB ici (! Avertissement - d'un C# dev)

Using file as FileStream = File.OpenText(filename) 
    while Not file.EndOfStream 
     Dim line as string = file.ReadLine() 
    ''//Test to break 
    ''//exit while if condition met 
    End While 
End Using 

Answer 3

Je préfère normalement vb.net, mais C# 's blocs itérateur sont lentement me gagner:

public static IEnumerable<string> SkimFile(string FileName) 
{ 
    long delta = new FileInfo(FileName).Length/100; 
    long position = 0; 

    using (StreamReader sr = new StreamReader(FileName)) 
    { 
     while (position < 100) 
     { 
      sr.BaseStream.Seek(position * delta, SeekOrigin.Begin); 
      yield return sr.ReadLine(); 
      position++; 
     } 
    } 
} 

Mettez-le dans un projet de bibliothèque de classes et de l'utiliser de vb comme thi s:

Dim isMatch as Boolean = False 
For Each s As String in SkimFile("FileName.txt") 
    If (RequestedDate - CDate(s.SubString(3,11))).Minutes > 2 Then 
     isMatch = True 
     Exit For 
    End If 
Next s 

(j'ai pris quelques libertés pour rendre l'exemple plus facile avec des critères vous (pris les valeurs de largeur fixe plutôt que délimité))

Answer 4

Il y a un example on MSDN.

Modifier en réponse à un commentaire:

Je dois admettre que je suis un peu confus, comme tu avais l'air lancinant sur l'aide d'un tampon FileStream, mais que vous voulez lire un fichier d'une ligne à la fois? Vous pouvez le faire tout simplement en utilisant un StreamReader. Je ne sais pas VB, mais en C# ce serait quelque chose comme ceci:

using (StreamReader sr = File.OpenText(pathToFile)) 
{ 
    string line = String.Empty; 
    while ((line = sr.ReadLine()) != null) 
    { 
     // process line 
    } 
} 

Voir http://msdn.microsoft.com/en-us/library/system.io.file.aspx.