<ERROR err_number='13' err_description='型が一致しません。'/>

Option Explicit がないとき

関数として定義されていないシンボルを使って関数呼び出しをしようとすると、
Option Explicit があるときと、無いときで、エラーメッセージが異なります。

VBScript の Dim は、変数名の衝突を早期に検出すること以外に機能はありません。
プログラミング言語によっては変数の型を決めることがありますが、VBScript は、
変数にどの型の値でも入るため変数の型を決める機能はありません。

衝突を検出するだけの命令文は、プログラムが何かをする命令文ではありません。
これは問題です。 プログラムが何をしようとしているのかを理解しようとするときに、
実は何もしていないモノに遭遇しても、何をしようとしているのか懸命に探します。
この脳の状態で、実は何もしていない、ということに気づくのは大変なことです。
大きなコストになります。 また、何もしていないことを読まされることは不快です。

Dim 命令の説明でよくあるのが、使っている変数を挙げているとありますが、別に
Dim 命令が無くても使っている変数は分かります。 変数を初期化している文で、
よく理解できます。 Dim はくどいのです。

なぜ、型が一致しませんと表示されるかというと、定義されていない関数と同じ
名前の新しい変数が自動的に生成され、初期値である Empty が入り、Empty
を使って関数呼び出しをしようと WSH が解釈してしまうからです。

下記のホームページでは、Dim の必要性を説明していますが、必要の根拠となる機能
が無くても、すぐに別のエラーで知ることが出来るため、問題として挙げられていること
が真の問題の解決を困難にすることはありません。

VBScript で、Option Explicit を使った場合、よく遭遇するのは、変数を宣言していない
というエラーです。 このエラーを対処するには、デバッガーを使う形で最初からやり直して、
衝突している変数を知って、Dim 宣言を追加して、また最初からやり直す必要があります。
つまり、２回も再起動が必要になります。 これは結構なコストです。 もし、デバッガー
が無ければ、対処は更に困難になります。
Option Explicit を使っている人は、このコストの大きさに気づいていません。
（私も気づくのに時間がかかりました）

Option Explicit があるときとないときの違い

その他の問題

ローカル変数同士が衝突した場合、原因は、その関数の中だけに絞られます。
つまり、呼び出した先の関数に原因がある一般的なミスに比べると、原因がある範囲が
限定的なので、対処が比較的簡単です。

Dim  g_VBScriptLibraryX
Set  g_VBScriptLibraryX = new VBScriptLibraryX_Class

Class  VBScriptLibraryX_Class
    Public  LibraryFunction
    Public  LibraryVariable

    Private Sub  Class_Initialize()
        Set g = Me
        Set g.LibraryFunction = GetRef( "LibraryFunction" )
    End Sub
End Class

Sub  LibraryFunction()
    '// ...
End Sub

すでにある関数の定義から、名前空間の汚染に対策するまでの移行期間では、
次のように、関数の参照をメンバー変数に代入します。
（なお、VBScript では、匿名関数を定義できません。）

1=abc
0=
1=abc
2=
UBound=2
each =
each = abc
each =

出力

配列は引数に渡せる

Dim a() とすると a は配列になりますが、配列に固定されてしまいます。
Dim b : ReDim b(1) としても b は配列になり、後で b に配列以外を格納することもできます。
Redim Preserve  a(-1) もできますが、Excel では a = Array() とする必要があります。
二次元配列は Redim  a( 2, 3 ) のようにコンマで区切ります。

{ 1, 2, 3 } のような初期化子はありませんが、a = Array( 1, 2, 3 ) はできます。
空要素を指定したり、階層化することもできます。

配列の最後に追加する

Function  Split( Str as stirng, Term as string ) as Array of string

文字列を、指定の文字で区切って、配列に格納します。

【引数】

Str

Term

分割しようとする文字列

区切り文字

返り値

分割した文字列の配列

[ 親: vbs の配列 ]

a(0) = [abc]
a(1) = [ 123 ]
a(2) = ["ABC"]

(Web)

→ MeltCSV

関連

サンプル

Dim  rf, wf  '// as ADODB.Stream
rf.Position = &h10
binary = rf.Read( &h28 )
wf.Write  binary   '// rf のオフセット &h10 から %h28バイトを wf へ

バイナリの内容を確認するには、AscB と MidB を使います。 AscB 関数だけで、バイナリの
数値を取得できますが、AscB 関数は先頭の文字（バイト）しか数値に変換しないので、多くの
場合で MidB も使うことになります。 ちなみに、MidB の代わりに Byte 配列の配列番号を
使って参照しようとするとエラーになります。

ただし、MidB などの文字列操作関数や + 演算子で返される文字列は、Byte配列ではなく
String 型になるため、 ADODB.Stream の Write に渡すことができません。

AscB や MidB が使えるのは、VBScript が Byte 配列を String 型（文字列）に暗黙的に変換
しているからです。 ただし、VBScript の通常の文字列は、Unicode（2バイト文字）なので、
通常、バイト単位の文字として扱う末尾にBが付いた関数を使います。
ChrB, LeftB, RightB, LenB, StrComp 関数や、+ 演算子などが使えます。

Sub  FuncA( ByVal Param )  '// コピーが発生
  If not IsArray( Param ) Then  Param = Array( Param )

  Dim  elem
  For Each elem  In Param
    WScript.Echo  elem
  Next
End Sub

→ ByValArrBench.zip

ByVal 配列のコピーにかかる時間の計測