VBS_For Each...Next

For Each...Next 循环与 For...Next 循环类似。For Each...Next 不是将语句运行指定的次数,而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。

语法结构如下:          

1
2
3
4
5
For Each element In group
     [statements]
     [ Exit For ]
     [statements]
Next [element]

主要参数:

element:用来枚举集合或数组中所有元素的变量。对于集合,element可能是Variant变量、通用Object变量或任意指定的Automation对象变量。对于数组,element只能是Variant变量。

group:对象集合或数组的名称。

       具体实例代码如下:

 1 Dim Dics '定义一个变量
 2 Set Dics = CreateObject("Scripting.Dictionary") '定义一个Dictionary对象
 3 Dics.Add "0", "Athens"   '为Dictionary对象赋值
 4 Dics.Add "1", "Belgrade"
 5 Dics.Add "2", "Cairo"
 6 For Each Dic in Dics
 7     MsgBox Dics.Item(Dic) '循环遍历,且输出Dictionary键值
 8 Next   

 

你可能感兴趣的:(VBS_For Each...Next)