WSH/Do...Loopのループから抜ける方法
の編集
Top
/
WSH
/
Do...Loopのループから抜ける方法
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) * VBScriptのDo...Loopのループから抜ける方法 [#k9a2bb46] Do...Loopを使って無限ループから抜けるコードの記述方法を以下に記します。 #contents #htmlinsertpcsp(win-top.html,win-sp.html) * 関連資料 [#n120f006] -[[VBスクリプトを中断する方法>WSH/スクリプトを中断する方法]] * Do...Loopからの無限ループを抜ける方法 [#s611bd80] Do...Loopから抜けるコードは以下の記述になります。 Exit Do 実際にInputboxを使用しキャンセルボタンが押されるまで無限ループするサンプルスクリプトを以下に紹介します。 * Exit Doのサンプルスクリプト [#s210dc1d] #ref(exitdo.vbs) Dim ret Do ret = InputBox("入力してください。") If IsEmpty(ret) Then 'Push Cancel button Exit Do End If MsgBox(ret) Loop 上記のVBスクリプトを起動すると、以下の画面が表示されます。~ 文字を入力しOKボタンを押すと、メッセージボックスに入力された文字が表示されます。~ OKボタンを押すと再度Inputboxが処理され入力を促されます。~ キャンセルボタンを押すと、Exit Doが動作しDo...Loopから抜けVBスクリプトが終了します。 #ref(01.gif) 以上、VBスクリプトで無限ループから抜けるExit Doの使用方法でした。 #htmlinsertpcsp(win-btm.html,win-sp.html)
タイムスタンプを変更しない
#navi(../) * VBScriptのDo...Loopのループから抜ける方法 [#k9a2bb46] Do...Loopを使って無限ループから抜けるコードの記述方法を以下に記します。 #contents #htmlinsertpcsp(win-top.html,win-sp.html) * 関連資料 [#n120f006] -[[VBスクリプトを中断する方法>WSH/スクリプトを中断する方法]] * Do...Loopからの無限ループを抜ける方法 [#s611bd80] Do...Loopから抜けるコードは以下の記述になります。 Exit Do 実際にInputboxを使用しキャンセルボタンが押されるまで無限ループするサンプルスクリプトを以下に紹介します。 * Exit Doのサンプルスクリプト [#s210dc1d] #ref(exitdo.vbs) Dim ret Do ret = InputBox("入力してください。") If IsEmpty(ret) Then 'Push Cancel button Exit Do End If MsgBox(ret) Loop 上記のVBスクリプトを起動すると、以下の画面が表示されます。~ 文字を入力しOKボタンを押すと、メッセージボックスに入力された文字が表示されます。~ OKボタンを押すと再度Inputboxが処理され入力を促されます。~ キャンセルボタンを押すと、Exit Doが動作しDo...Loopから抜けVBスクリプトが終了します。 #ref(01.gif) 以上、VBスクリプトで無限ループから抜けるExit Doの使用方法でした。 #htmlinsertpcsp(win-btm.html,win-sp.html)
テキスト整形のルールを表示する
添付ファイル:
01.gif
1446件
[
詳細
]
exitdo.vbs
752件
[
詳細
]