The For Each...Next Statement

Un vantaggio delle collezioni è che gli articoli possono essere spostati ad incrementi entrambe le chiavi vicino speciali che sono immagazzinate con i valori di dati -- accumulazione. Articolo (“chiave„) e dalle loro posizioni nell'accumulazione -- accumulazione. Articolo (n).

Usando le collezioni per le occhiate

Un'occhiata di tabella può essere effettuata il più facilmente con questa tecnica piuttosto che usando gli allineamenti, se i vostri dati misura la disposizione di chiave “e„„ “di valore di una collezione, allora. Rinviando ad una variazione su un esempio presentato più presto, la seguente accumulazione contiene dichiara i codici (chiavi) e dichiara i nomi (valori). Allora un codice di dichiarare è impostato per osservare in su corrispondere dichiara il nome.

Sub Get_State (Src As Object, Args As EventArgs)

Dim TheStates As New Collection
TheStates.Add("Alabama","AL")
TheStates.Add("Alaska","AK")
TheStates.Add("Arizona","AZ")
TheStates.Add("Arkansas","AR")
TheStates.Add("California","CA")

On Error Resume Next
TheState.Text = TheStates.Item( UCase(Code.Text) )

End Sub

<asp:TextBox id="Code" Size="1" MaxLength="2" runat="server"/>
<asp:Button Text="Get State" OnClick="Get_State" runat="server"/>
<asp:Label id="TheState" EnableViewState="False" runat="server"/>

Poiché le collezioni contengono gli elementi relativi all'interno di cui i dati sono memorizzati, possono anche essere ripetuti tanto come gli allineamenti e piuttosto che la a per… dopo la dichiarazione, tuttavia, a per ciascuno… dopo dichiarazione sarà usata.

For Each item In collection

...item

Next

L'articolo è una variabile programmatore-fornita usata come il riferimento del ciclo agli elementi nell'accumulazione e l'articolo deve essere dichiarato come lo stesso tipo di dati dei valori nell'accumulazione.

Nell'accumulazione, come il ciclo ripete, articolo indica ad ogni elemento. Di conseguenza, negli elementi l'articolo può essere usato come riferimento ai valori di dati memorizzati mentre sono ripetuti. Un esempio dovrebbe fare questa radura.

Sotto è ripetuto il codice per l'accumulazione di TheStates usata nell'esempio precedente e lo scritto è stato cambiato aggiungendo la a per ciascuno… dopo ciclo per ripetere l'accumulazione e per visualizzare tutti i valori di dati nell'accumulazione.

Sub Show_States (Src As Object, Args As EventArgs)

Dim TheStates As New Collection
TheStates.Add("Alabama","AL")
TheStates.Add("Alaska","AK")
TheStates.Add("Arizona","AZ")
TheStates.Add("Arkansas","AR")
TheStates.Add("California","CA")

Dim Item As String
For Each Item In TheStates
StatesOut.Text &= Item & " "
Next

End Sub

<asp:Button Text="Show States" OnClick="Show_States" runat="server"/>
<asp:Label id="StatesOut" EnableViewState="False" runat="server"/>

Qui, l'articolo variabile è usato mentre l'indice all'accumulazione ed all'esso è dichiarato come stringa perché gli elementi dei dati nell'accumulazione sono stringhe. Nell'accumulazione, il ciclo ripete attraverso ogni elemento e soddisfare di ogni elemento (articolo) è visualizzato collegandolo alla lista accumulantesi.

Notare che l'accumulazione di TheStates sembra contenere due elementi dei dati in ogni elemento -- un codice di dichiarare e un nome di dichiarare. Tuttavia, ricordare che il codice di dichiarare è la chiave al valore dell'elemento e non è il valore dell'elemento in se.

Per molte strutture di dati differenti in di base visivo, per ciascuno… dopo la dichiarazione avrà applicazione larga e ci saranno parecchie occasioni durante queste lezioni private per arruolarle per uso.

Intrappolamento per gli Errors

Quello è tutto là è ad esso ed eccetto per dealing with gli errori possibili. Se un valore è inserito per cui non ci è fiammifero chiave nell'accumulazione, allora “l'indice un errore dai limiti„ accade (la ricerca estesa oltre i contorni dell'accumulazione). Sopra una dichiarazione seguente del Resume di errore è aggiunta immediatamente prima della ricerca di UCase (Code.Text) per intrappolare per questo errore. Come implicito dalla dichiarazione, se un errore accade mentre esegue questa dichiarazione di ricerca, allora accendere semplicemente alla dichiarazione seguente; non arrestare e non visualizzare un messaggio di errore quel embarasses il programmatore.

Controllare semplicemente per vedere se c'è un numero di errore non uguale a 0 per intrappolare per questo errore. Allora realizzare affatto l'elaborazione ritenuta adatta e potete, per esempio, aggiungere il seguente codice per produrre “un messaggio di nessun fiammifero„.

On Error Resume Next
TheState.Text = TheStates.Item( UCase(Code.Text) )

If Err.Number <> 0 Then
TheState.Text = "No match"
End If

Keywords: while loop statement, switch case statement, java statement, loop statement, switch statement, count statement, function statement, case statement, nested statement, sql statement, condition statement, example statement, else statement, statement examples

HTML Quizes

XML Quizes