|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Formas avançadas de utilizar o For...Each
|
 |
|
|
|
Postada em 1/9/2003 por Ð@®l@n
É comum que necessitemos executar uma tarefa repetidas vezes mas não possamos utilizar a instrução For...Next para a execução devido aos valores não serem sequenciais ou terem um passo fixo. Por exemplo :
DoSomething 2
DoSomething 3
DoSomething 5
DoSomething 7
DoSomething 11
DoSomething 13
DoSomething 17
DoSomething 19
DoSomething 23
DoSomething 29
Para resolver esse problema podemos utilizar um For..each. Veja :
Dim v As Variant
For Each v In Array(2, 3, 5, 7, 11, 13, 17, 19, 23, 29)
DoSomething v
Next
Na linha do For..Each cria-se um array com todos os itens para os quais a repetição deverá ser realizada. A cada repetição, como é típico do for..each, o item para o qual a repetição está sendo realizada é atribuido na variável v.
Isso não se limita a problemas numéricos. Veja esse outro exemplo :
Dim v As Variant
For Each v In Array("Spring", "Summer", "Fall", "Winter")
PrintSaleReport v
Next
|
|
|
|
|
