Discussion :

[Miska59]

Bonjour,

j'ai un petit souci pour rechercher un texte dans un fichier trop volumineux : 600~ Mo car il m'afficher un message d'erreur.

mon code de lecture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim StartThreads As New Thread(Sub()
                                           Using fs As New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.Read)
                                               Using bs As New BufferedStream(fs)
                                                   Using reader As New StreamReader(bs)
                                                       While reader.Peek <> -1
                                                           If reader.ReadToEnd.Contains(TextBox1.Text) Then RichTextBox1.Invoke(Sub() RichTextBox1.AppendText(String.Format("Le texte ce trouver dans l'offset : {0} = {1} {2}", reader.BaseStream.Position, TextBox1.Text, Environment.NewLine)))
                                                       End While
                                                   End Using
                                               End Using
                                           End Using
                                       End Sub)
        StartThreads.Start()

message erreur :

Une exception de type 'System.OutOfMemoryException' a été levée.

Pouvez-vous me dire comment puis faire pour rechercher un texte dans un fichier trop volumineux? merci d'avance

[Phil Rob]

Bonjour,

Supposant qu'il s'agit d'un fichier de txt, poursuoi ne pas le lire lignes par ligne au lieu de ReadEnd ? Les quantités d'octets lues seraient moindre.
Par ailleurs, pourquoi placer le ReadEnd dans une boucle ? Exécuté tout de suite après l ouverture du fichier, ReadEnd lit tout le fichier en une seule fois (sauf erreur de ma part).
Autrement, tu peux lire le fichier en "mode" binaire par lots successifs d'un nombre d'octets imposé (par 10000 par exemple) mais cela va compliquer ta recherche d'une chaîne qui peut se trouver " â cheval " sur 2 lots d'octets lus.

...

[Miska59]

Bonjour Phil Rob, merci d'avoir répondu.

j'avais pas pensé à ReadAllLines pour rechercher un texte avec un gros fichier ça fonction très bien même avec un gros fichier.

le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Line As String In File.ReadAllLines(fn)
                    If Line.Contains(pattern) Then FilesFound.Add(fn)
                Next

Cordialement,