Procedura dettagliata: implementazione di IEnumerable(Of T) in Visual Basic

Scegliere Nuovo dal menu File di Visual Basic, quindi fare clic su Progetto.

Nel riquadro Tipi progetto della finestra di dialogo Nuovo progetto verificare che sia selezionata la voce Finestre. Selezionare Libreria di classi nel riquadro Modelli. Nella casella Nome digitare StreamReaderEnumerable, quindi fare clic su OK. Verrà visualizzato il nuovo progetto.

In Esplora soluzioni fare clic con il pulsante destro del mouse sul file Class1.vb e scegliere Rinomina. Assegnare al file il nome StreamReaderEnumerable.vb e premere INVIO. Rinominando il file, anche la classe verrà rinominata StreamReaderEnumerable. Questa classe implementerà l'interfaccia IEnumerable(Of String).

Fare clic con il pulsante destro del mouse sul progetto StreamReaderEnumerable, scegliere Aggiungi, quindi fare clic su Nuovo elemento. Selezionare il modello Classe. Digitare StreamReaderEnumerator.vb nella casella Nome e scegliere OK.

Aprire il file StreamReaderEnumerable.vb.

Nella riga dopo Public Class StreamReaderEnumerable digitare quanto segue e premere INVIO.

Implements IEnumerable(Of String)

In Visual Basic la classe viene automaticamente popolata con i membri richiesti dall'interfaccia IEnumerable(Of String)

Questa classe enumerabile consentirà di leggere le righe da un file di testo una per volta. Aggiungere il codice seguente alla classe per esporre un costruttore pubblico che accetta un percorso di file come parametro di input.

Private _filePath As String 

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

L'implementazione del metodo GetEnumerator dell'interfaccia IEnumerable(Of String) restituirà una nuova istanza della classe StreamReaderEnumerator. L'implementazione del metodo GetEnumerator dell'interfaccia IEnumerable può essere eseguita come Private, perché è necessario esporre solo i membri dell'interfaccia IEnumerable(Of String). Sostituire il codice generato da Visual Basic per i metodi GetEnumerator con il codice seguente.

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

Aprire il file StreamReaderEnumerator.vb.

Nella riga dopo Public Class StreamReaderEnumerator digitare quanto segue e premere INVIO.

Implements IEnumerator(Of String)

In Visual Basic la classe viene automaticamente popolata con i membri richiesti dall'interfaccia IEnumerator(Of String)

La classe dell'enumeratore apre il file di testo ed esegue l'I/O di file per leggere le righe dal file. Aggiungere il codice seguente alla classe per esporre un costruttore pubblico che accetta un percorso di file come parametro di input e aprire il file di testo per la lettura.

Private _sr As IO.StreamReader

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

Le proprietà Current per le interfacce IEnumerator(Of String) e IEnumerator restituiscono l'elemento corrente dal file di testo come String. L'implementazione della proprietà Current dell'interfaccia IEnumerator può essere eseguita come Private, perché è necessario esporre solo i membri dell'interfaccia IEnumerator(Of String). Sostituire il codice generato da Visual Basic per le proprietà Current con il codice seguente.

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

Il metodo MoveNext dell'interfaccia IEnumerator consente di passare all'elemento successivo nel file di testo e di aggiornare il valore restituito dalla proprietà Current. Se non sono presenti altri elementi da leggere, il metodo MoveNext restituisce False. In caso contrario, il metodo MoveNext restituisce True. Aggiungere al metodo MoveNext il seguente codice.

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

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

Il metodo Reset dell'interfaccia IEnumerator consente di indirizzare l'iteratore in modo che faccia riferimento all'inizio del file di testo e di cancellare il valore dell'elemento corrente. Aggiungere al metodo Reset il seguente codice.

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

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

Il metodo Dispose dell'interfaccia IEnumerator garantisce che tutte le risorse non gestite vengano rilasciate prima che venga eliminato l'iteratore. L'handle di file utilizzato dall'oggetto StreamReader è una risorsa non gestita e deve essere chiuso prima che venga eliminata l'istanza dell'iteratore. Sostituire il codice generato da Visual Basic per il metodo Dispose con il codice seguente.

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