VBSで疑似「continue」を実現

プログラミング

今日ネットでVBS関連の情報を収集してたら、ちょっとヤラれた実装例があったのでご紹介。
VBScriptには「break」相当のExit Do/Exit Forはありますが「continue」相当がありません。
そこで、擬似「continue」です。


ネタ元はこちら

Forに対して、1回ループのDo、
Doに対して、1回ループのFor、
を内部に張り、そのExitを「continue」として使います。

For k=1 To 10
Do
:::
Exit Do '=Continue
:::
Loop Until 1
Next

Do While True
For Continue=1 To 1
:::
Exit For '=Continue
:::
Next
Loop

ループを抜けて、1回だけ回すという考え方がスゴいです(･ω･ﾉ)ﾉ
こういうスマートな実装が出来るように頑張ろっ( ｀o´)ﾉ