« For Each Inループの途中脱出の判定方法 | トップページ | テキストファイルから、開始文字列~終了文字列の行を抜き出すバッチ »

2007年3月 5日 (月)

For Index To Stepループの途中脱出の判定方法

インデクスの満了値(To+Step)を判定すれば確実ではありますが、
これもあまり好きではありません。

For Index=0 To Items.Count-1
  If Items(Index)... Then Exit For
Next
If Index<Items.Count Then 途中脱出

インデクスの満了値が0になるようにして、0判定にしたいところです。

For Index=Items.Count To 1 Step -1
  If Items(Index-1)... Then Exit For
Next
If Index>0 Then 途中脱出

« For Each Inループの途中脱出の判定方法 | トップページ | テキストファイルから、開始文字列~終了文字列の行を抜き出すバッチ »