Procédure pas à pas : implémentation d'IEnumerable(Of T) en Visual Basic

Dans Visual Basic, dans le menu Fichier, pointez sur Nouveau, puis cliquez sur Projet.

Dans la boîte de dialogue Nouveau projet, dans le volet Types de projets, vérifiez que Windows est sélectionné.Sélectionnez Bibliothèque de classes dans le volet Modèles.Dans la zone Nom, tapez StreamReaderEnumerable, puis cliquez sur OK.Le nouveau projet s'affiche.

Dans l'Explorateur de solutions, cliquez avec le bouton droit sur le fichier Class1.vb, puis cliquez sur Renommer.Renommez le fichier en StreamReaderEnumerable.vb et appuyez sur ENTRÉE.Lorsque vous renommez le fichier, la classe sera également renommée en StreamReaderEnumerable.Cette classe implémentera l'interface IEnumerable(Of String).

Cliquez avec le bouton droit sur le projet StreamReaderEnumerable, pointez sur Ajouter, puis cliquez sur Nouvel élément.Sélectionnez le modèle Classe.Dans la zone Nom, tapez StreamReaderEnumerator.vb et cliquez sur OK.

Ouvrez le fichier StreamReaderEnumerable.vb.

Sur la ligne suivant Public Class StreamReaderEnumerable, tapez ce qui suit et appuyez sur ENTRÉE.

Implements IEnumerable(Of String)

Visual Basic remplit automatiquement la classe avec les membres requis par l'interface IEnumerable(Of String)

Cette classe énumérable lira les lignes d'un fichier texte une par une.Ajoutez le code suivant à la classe pour exposer un constructeur public prenant un chemin d'accès de fichier comme paramètre d'entrée.

Private _filePath As String

Public Sub New(ByVal filePath As String)
    _filePath = filePath
End Sub

Votre implémentation de la méthode GetEnumerator de l'interface IEnumerable(Of String) retournera une nouvelle instance de la classe StreamReaderEnumerator.L'implémentation de la méthode GetEnumerator de l'interface IEnumerable peut devenir Private car vous ne devez exposer que les membres de l'interface IEnumerable(Of String).Remplacez le code généré par Visual Basic pour les méthodes GetEnumerator par le code suivant.

Public Function GetEnumerator() As IEnumerator(Of String) _
    Implements IEnumerable(Of String).GetEnumerator

    Return New StreamReaderEnumerator(_filePath)
End Function

Private Function GetEnumerator1() As IEnumerator _
    Implements IEnumerable.GetEnumerator

    Return Me.GetEnumerator()
End Function

Ouvrez le fichier StreamReaderEnumerator.vb.

Sur la ligne suivant Public Class StreamReaderEnumerator, tapez ce qui suit et appuyez sur ENTRÉE.

Implements IEnumerator(Of String)

Visual Basic remplit automatiquement la classe avec les membres requis par l'interface IEnumerator(Of String)

La classe d'énumérateur ouvre le fichier texte et exécute l'E/S de fichier pour lire les lignes du fichier.Ajoutez le code suivant à la classe pour exposer un constructeur public prenant un chemin d'accès de fichier comme paramètre d'entrée et ouvrez le fichier texte pour la lecture.

Private _sr As IO.StreamReader

Public Sub New(ByVal filePath As String)
    _sr = New IO.StreamReader(filePath)
End Sub

Les propriétés Current pour les interfaces IEnumerator(Of String) et IEnumerator retournent l'élément actuel du fichier texte comme String.L'implémentation de la propriété Current de l'interface IEnumerator peut devenir Private car vous ne devez exposer que les membres de l'interface IEnumerator(Of String).Remplacez le code généré par Visual Basic pour les propriétés Current par le code suivant.

Private _current As String

Public ReadOnly Property Current() As String _
    Implements IEnumerator(Of String).Current

    Get
        If _sr Is Nothing OrElse _current Is Nothing Then
            Throw New InvalidOperationException()
        End If

        Return _current
    End Get
End Property

Private ReadOnly Property Current1() As Object _
    Implements IEnumerator.Current

    Get
        Return Me.Current
    End Get
End Property

La méthode MoveNext de l'interface IEnumerator navigue jusqu'à l'élément suivant du fichier texte et met à jour la valeur retournée par la propriété Current.Si le fichier ne contient aucun élément à lire, la méthode MoveNext retourne la valeur False ; sinon, la méthode MoveNext retourne la valeur True.Ajoutez le code suivant à la méthode MoveNext.

Public Function MoveNext() As Boolean _
    Implements System.Collections.IEnumerator.MoveNext

    _current = _sr.ReadLine()
    If _current Is Nothing Then Return False
    Return True
End Function

La méthode Reset de l'interface IEnumerator ordonne à l'itérateur de pointer sur le début du fichier texte et efface la valeur d'élément actuelle.Ajoutez le code suivant à la méthode Reset.

Public Sub Reset() _
    Implements System.Collections.IEnumerator.Reset

    _sr.DiscardBufferedData()
    _sr.BaseStream.Seek(0, IO.SeekOrigin.Begin)
    _current = Nothing
End Sub

La méthode Dispose de l'interface IEnumerator garantit que toutes les ressources non managées sont libérées avant la destruction de l'itérateur.Le descripteur de fichier utilisé par l'objet StreamReader est une ressource non managée et doit être fermé avant la destruction de l'instance de l'itérateur.Remplacez le code généré par Visual Basic pour la méthode Dispose par le code suivant.

Private disposedValue As Boolean = False

Protected Overridable Sub Dispose(ByVal disposing As Boolean)
    If Not Me.disposedValue Then
        If disposing Then
            ' Dispose of managed resources.
        End If
        _current = Nothing
        _sr.Close()
        _sr.Dispose()
    End If

    Me.disposedValue = True
End Sub

Public Sub Dispose() Implements IDisposable.Dispose
    Dispose(True)
    GC.SuppressFinalize(Me)
End Sub

Protected Overrides Sub Finalize()
    Dispose(False)
End Sub