[VBScript] アンダーバーでの改行でプログラムをより読みやすく

どーもボキです。

アンダーバー（正しい呼称は「アンダースコア」）を使って改行しましょう

「_」を使った改行を使えれば、ぱっと見でわかるプログラムが書けますよ。

サンプルプログラムのダウンロードと使い方

• ダウンロード
• 使い方は、実行する、だけ。
  どちらの書き方でも正しく動作することがわかります。なら、読み取りやすい方が良いですよね。
  

今回開発したプログラムソース

SetScriptHost "cscript"

' 「_」での改行なし

arr0 = Array("＊「もし　わしの　みかたになれば","　　せかいの　はんぶんを","　　ぼき　　にやろう。","＊「どうじゃ？","　　わしの　みかたに　なるか？")

' 「_」での改行あり

arr1 = Array( _

"＊「おまえの　たびは　おわった。",_

"　　さあ　ゆっくり　やすむがよい！",_

"　　わあっはっはっはっ"_

)

For i = 0 To UBound(arr0)

WScript.Echo arr0(i)

Next

For i = 0 To UBound(arr1)

WScript.Echo arr1(i)

Next

WScript.StdIn.ReadLine

' -------------------------------------------------------------------------------

' 実行ホストを切り替える

' -------------------------------------------------------------------------------

Sub SetScriptHost(HostName)

If InStr(LCase(WSCript.FullName), LCase(HostName)) <> 0 Then Exit Sub

Dim i,s

s = HostName & " //nologo """ & WScript.ScriptFullName & """"

If WScript.Arguments.Count > 0 Then

For i = 0 To WScript.Arguments.Count -1

s = s &" """ & WScript.Arguments.Item(i) & """" ' 引数

Next

End If

CreateObject("WScript.Shell").Run s

WScript.Quit

End Sub

にほんブログ村