WSH/Do...Loopのループから抜ける方法
の編集
Top
/
WSH
/
Do...Loopのループから抜ける方法
[
トップ
] [
編集
|
差分
|
履歴
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) * VBScriptのDo...Loopのループから抜ける方法 [#k9a2bb46] Do...Loopを使って無限ループから抜けるコードの記述方法を以下に記します。 #contents //#htmlinsert(win_ads_top.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の使用方法でした。 //#htmlinsert(win_ads_btm.html)
タイムスタンプを変更しない
#navi(../) * VBScriptのDo...Loopのループから抜ける方法 [#k9a2bb46] Do...Loopを使って無限ループから抜けるコードの記述方法を以下に記します。 #contents //#htmlinsert(win_ads_top.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の使用方法でした。 //#htmlinsert(win_ads_btm.html)
テキスト整形のルールを表示する
添付ファイル:
01.gif
2042件
[
詳細
]
exitdo.vbs
1351件
[
詳細
]
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
01.gif