请教FOR EACH ... NEXT语句

eyewitnes

本示例使用 For Each...Next 语句搜寻集合中的所有成员的 Text 属性

Dim Found, MyObject, MyCollection
Found = False    ' 设置变量初始值。

1. For Each MyObject In MyCollection    '

复制代码

对每个成员作一次迭代。
   

1. If MyObject.Text = "Hello" Then    '

复制代码

如果

1. Text

复制代码

属性值等于“

1. Hello

复制代码

”。
      

1. Found = True    '

复制代码

将变量

1. Found

复制代码

的值设成

1. True

复制代码

。
      

1. Exit For

复制代码

  

1. '

复制代码

退出循环。
   

1. End If

复制代码

1. Next

复制代码

1. 现在假设MyObject必须要符合一定条件,例如字串长度大于30,目前只会这种处理方法

复制代码

1. For Each MyObject In MyCollection   
       <CODE>If MyObject.Text = "Hello" and len(MyObject.text)>30 Then  

复制代码

      

1. Found = True   

复制代码

      

1. Exit For

复制代码

  
   

1. End If

复制代码

1. Next

复制代码

</CODE>

1. <CODE>问:可否将len(MyObject.text)>30 这个条件放到for each 后面 或者 in 后面?如何可以的话应该怎样写?

复制代码

</CODE>

andymark

  不行

eyewitnes

哦..谢了