VBScript para ... Cada Loops

UMA For Each loop é usado quando queremos executar uma instrução ou um grupo de instruções para cada elemento em uma matriz ou coleção.

UMA For Eachloop é semelhante ao For Loop; entretanto, o loop é executado para cada elemento em uma matriz ou grupo. Conseqüentemente, o contador de passos não existirá neste tipo de loop e é usado principalmente com arrays ou usado no contexto de objetos do sistema de arquivos para operar recursivamente.

Sintaxe

A sintaxe de um For Each loop em VBScript é -

For Each element In Group
   [statement 1]
   [statement 2]
   ....
   [statement n]
   [Exit For]
   [statement 11]
   [statement 22]
Next

Exemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         'fruits is an array 
         fruits = Array("apple","orange","cherries")
         Dim fruitnames

         'iterating using For each loop. 
         For each item in fruits
            fruitnames = fruitnames&item&vbnewline
         Next

         msgbox fruitnames
         
      </script>
   </body>
</html>

Quando o código acima é executado, ele imprime todos os nomes de frutas com um item em cada linha.

apple
orange
cherries