ASP/VBScript For Each … Next

Author: admin | Posted: 19-04-2010 | Category: ASP/VBScript & Looping

ASP/VBScript For Each … Next Repeats a group of statements for each element in an array or collection.

ShotDev Focus:
- Using Asp and For Each … Next

Syntax


For Each  element In group
[statements]
[Exit For]
[statements]
Next [element]

The For Each…Next statement syntax has these parts:

Part	Description
element	Variable used to iterate through the elements of the collection or array. For collections, element can only be a Variant variable, a generic Object variable, or any specific Automation object variable. For arrays, element can only be a Variant variable.
group	Name of an object collection or array.
statements	One or more statements that are executed on each item in group.

Remarks

The For Each block is entered if there is at least one element in group. Once the loop has been entered, all the statements in the loop are executed for the first element in group. As long as there are more elements in group, the statements in the loop continue to execute for each element. When there are no more elements in group, the loop is exited and execution continues with the statement following the Next statement.

The Exit For can only be used within a For Each…Next or For…Next control structure to provide an alternate way to exit. Any number of Exit For statements may be placed anywhere in the loop. The Exit For is often used with the evaluation of some condition (for example, If…Then), and transfers control to the statement immediately following Next.

You can nest For Each…Next loops by placing one For Each…Next loop within another. However, each loop element must be unique.


Note If you omit element in a Next statement, execution continues as if you had included it. If a Next statement is encountered before its corresponding For statement, an error occurs.

Example

asp_for_each_next.asp


<% Option Explicit %>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<%
Dim arrData(3),arr
arrData(0) = "a"
arrData(1) = "b"
arrData(2) = "c"
arrData(3) = "d"
For Each arr in arrData
Response.write(arr & "<br>")
Next

Response.write("<hr>")

Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\Inetpub\wwwroot\myasp")
Set fc = f.Files
For Each f1 in fc
Response.write f1.name&"<br>"
Next
%>
</body>
</html>

Create a asp file and save to path root-path/myasp/

Run
http://localhost/myasp/asp_for_each_next.asp

Screenshot