Exemplarische Vorgehensweise: Implementieren von IEnumerable(Of T) in Visual Basic

Zeigen Sie in Visual Basic im Menü Datei auf Neu, und klicken Sie dann auf Projekt.

Überprüfen Sie, ob im Dialogfeld Neues Projekt im Bereich Projekttypen der Eintrag Windows ausgewählt ist.Wählen Sie im Bereich Vorlagen den Eintrag Klassenbibliothek aus.Geben Sie im Feld Name die Bezeichnung StreamReaderEnumerable ein, und klicken Sie auf OK.Das neue Projekt wird angezeigt.

Klicken Sie im Projektmappen-Explorer mit der rechten Maustaste auf die Datei Class1.vb, und klicken Sie auf Umbenennen.Benennen Sie die Datei in StreamReaderEnumerable.vb um, und drücken Sie die EINGABETASTE.Durch das Umbenennen der Datei wird auch die Klasse in StreamReaderEnumerable umbenannt.Diese Klasse implementiert die IEnumerable(Of String)-Schnittstelle.

Klicken Sie mit der rechten Maustaste auf das Projekt StreamReaderEnumerable, zeigen Sie auf Hinzufügen, und klicken Sie dann auf Neues Element.Wählen Sie die Vorlage Klasse aus.Geben Sie im Feld Name die Bezeichnung StreamReaderEnumerator.vb ein, und klicken Sie auf OK.

Öffnen Sie die Datei StreamReaderEnumerable.vb.

Geben Sie in der Zeile nach Public Class StreamReaderEnumerable Folgendes ein, und drücken Sie die EINGABETASTE.

Implements IEnumerable(Of String)

Visual Basic füllt die Klasse automatisch mit den Membern auf, die für die IEnumerable(Of String)-Schnittstelle erforderlich sind.

Diese aufzählbare Klasse liest die Zeilen aus einer Textdatei einzeln.Fügen Sie der Klasse den folgenden Code hinzu, um einen öffentlichen Konstruktor verfügbar zu machen, der einen Dateipfad als Eingabeparameter akzeptiert.

Private _filePath As String

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

Die Implementierung der GetEnumerator-Methode der IEnumerable(Of String)-Schnittstelle gibt eine neue Instanz der StreamReaderEnumerator-Klasse zurück.Die Implementierung der GetEnumerator-Methode der IEnumerable-Schnittstelle kann als Private festgelegt werden, da Sie nur Member der IEnumerable(Of String)-Schnittstelle verfügbar machen müssen.Ersetzen Sie den Code, den Visual Basic für die GetEnumerator-Methoden generiert hat, durch den folgenden Code.

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

Öffnen Sie die Datei StreamReaderEnumerator.vb.

Geben Sie in der Zeile nach Public Class StreamReaderEnumerator Folgendes ein, und drücken Sie die EINGABETASTE.

Implements IEnumerator(Of String)

Visual Basic füllt die Klasse automatisch mit den Membern auf, die für die IEnumerator(Of String)-Schnittstelle erforderlich sind.

Die Enumeratorklasse öffnet die Textdatei und führt die Datei-E/A aus, um die Zeilen aus der Datei zu lesen.Fügen Sie der Klasse den folgenden Code hinzu, um einen öffentlichen Konstruktor verfügbar zu machen, der einen Dateipfad als Eingabeparameter akzeptiert, und öffnen Sie die Textdatei zum Lesen.

Private _sr As IO.StreamReader

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

Die Current-Eigenschaften für die IEnumerator(Of String)-Schnittstelle und die IEnumerator-Schnittstelle geben das aktuelle Element der Textdatei als String zurück.Die Implementierung der Current-Eigenschaft der IEnumerator-Schnittstelle kann als Private festgelegt werden, da Sie nur Member der IEnumerator(Of String)-Schnittstelle verfügbar machen müssen.Ersetzen Sie den Code, den Visual Basic für die Current-Eigenschaften generiert hat, durch den folgenden Code.

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

Die MoveNext-Methode der IEnumerator-Schnittstelle navigiert zum nächsten Element in der Textdatei und aktualisiert den Wert, der von der Current-Eigenschaft zurückgegeben wird.Wenn keine zu lesenden Elemente mehr vorhanden sind, gibt die MoveNext-Methode False zurück. Andernfalls gibt die MoveNext-Methode True zurück.Fügen Sie der MoveNext-Methode folgenden Code hinzu.

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

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

Die Reset-Methode der IEnumerator-Schnittstelle weist den Iterator an, auf den Start der Textdatei zu zeigen, und löscht den aktuellen Elementwert.Fügen Sie der Reset-Methode folgenden Code hinzu.

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

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

Die Dispose-Methode der IEnumerator-Schnittstelle gewährleistet, dass alle nicht verwalteten Ressourcen freigegeben werden, bevor der Iterator zerstört wird.Das vom StreamReader-Objekt verwendete Dateihandle ist eine nicht verwaltete Ressource und muss geschlossen werden, bevor die Iteratorinstanz zerstört wird.Ersetzen Sie den Code, den Visual Basic für die Dispose-Methode generiert hat, durch den folgenden Code.

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