(for Internet Explorer)
← ▼ ▲
↑
AddCSV (ArrayClass)
Sub ArrayClass::AddCSV( CSV as string, Type_ as integer )
配列の最後に複数の要素を追加します。
(src)
【引数】
CSV
追加する要素を CSV（文字列）にしたもの
Type_
追加する要素の型、例：vbInteger, vbString
サンプル：
関連
→ CSV (ArrayClass)
Dim a : Set a = new ArrayClass
a.AddCSV "12, 34", vbInteger
[ 親: ArrayClass クラス ]
→ (CSV) ArrayFromCSV, ArrayFromCSV_Int
← ▼ ▲
Insert (ArrayClass)
Sub ArrayClass::Insert( in_BeforeIndex0 as integer, in_AddingElement as variant )
配列の途中に要素を追加します。
【引数】
in_BeforeIndex0
追加する位置の直前の配列番号、0以上
in_AddingElement
追加する要素
(src)
[ 親: ArrayClass クラス ]
← ▼ ▲
Push (ArrayClass)
Sub ArrayClass::Push( Elem as variant )
配列の最後に要素を追加します。
【引数】
Elem
配列に追加する要素（オブジェクト、またはそれ以外）
ArrayClass::Add と同じです。
(src)
[ 親: ArrayClass クラス ]
スタックのように要素を取り出すときは、
→ Pop (ArrayClass)
→ Remove (ArrayClass)
キューのように要素を取り出すときは、
← ▼ ▲
Pop (ArrayClass)
Function ArrayClass::Pop() as variant
配列の最後の要素を返し、その要素を配列から除外します。
【引数】
返り値
配列の最後の要素（オブジェクト、またはそれ以外）
(src)
[ 親: ArrayClass クラス ]
Set i_stack = new ArrayClass
For i=0 To modules.UBound_
If modules(i) = "delete" Then
i_stack.Push i
End If
Next
Do
If i_stack.Count = 0 Then Exit Do
modules.Remove i_stack.Pop(), 1
Loop
サンプル
削除する配列番号をスタックにプッシュして、ポップしながら modules 配列の要素を削除する
Pop
← ▼ ▲
Search (ArrayClass)
Function ArrayClass::Search( in_KeyItem as variant,
in_CompareFunction as Function, in_ParameterOfCompareFunction as variant,
in_StartIndexOrEmpty ) as integer or array of integer
比較関数て定義された条件を満たす要素を列挙します。
【引数】
in_KeyItem
in_CompareFunction の第2引数
in_CompareFunction
in_ParameterOfCompareFunction
比較関数
in_CompareFunction の第3引数
in_StartIndexOrEmpty
比較を開始する要素番号 0以上、または Empty
→ vbslib.vbs
ソース
返り値
配列番号、または、配列番号の配列
in_StartIndexOrEmpty 引数が数値なら、返り値は配列番号です。 見つからなかったら、Empty
を返します。
in_StartIndexOrEmpty 引数が Empty なら、返り値は配列番号の配列です。 見つからなかったら
要素数 0 の配列を返します。
→ T_Arr.vbs
テスト
T_ArrayClass_Search
← ▼ ▲
Remove (ArrayClass)
(src)
Sub ArrayClass::Remove( i as integer, n as string ) as variant
要素を配列から削除して、後の要素を詰めます。
【引数】
i
n
配列の要素の番号。 先頭は 0
削除する要素の数
[ 親: ArrayClass クラス ]
サンプル
Set arr = new_ArrayClass( Array( 0, 1, 2, 3, 4, 5 ) )
arr.Remove 1, 2
Assert IsSameArray( arr.Items, Array( 0, 3, 4, 5 ) )
Remove
→ T_Arr.vbs # T_ArrClass_Remove
テスト
← ▼ ▲
RemoveObject (ArrayClass)
Function ArrayClass::RemoveObject( a_Object as object ) as object
指定したオブジェクトを指している配列の要素１つを、配列から除外します。
【引数】
a_Object
配列から除外するオブジェクト
返り値
除外したとき = a_Object、 無かったとき = Nothing オブジェクト
配列要素がすべてオブジェクトでないとエラーになります。
除外した配列番号には、＋１の配列番号だったオブジェクトが入り、詰められます。
実行前： objs.UBound_=3, objs(0)= a, (1)= b, (2)= c, (3)= d ならば
実行後： objs.UBound_=2, objs(0)= a, (1)= c, (2)= d
objs.RemoveObject b
サンプル：
(src)
テスト
[ 親: ArrayClass クラス ]
→ T_Arr.vbs
T_AddNewObj
← ▼ ▲
RemoveEmpty (ArrayClass)
(src)
[ 親: ArrayClass クラス ]
Sub ArrayClass::RemoveEmpty()
Empty になっている配列の要素を詰めます。
サンプル
Set arr = new_ArrayClass( Array( 0, Empty, 2, Empty, Empty, 5 ) )
arr.RemoveEmpty
Assert IsSameArray( arr.Items, Array( 0, 2, 5 ) )
テスト
→ T_Arr.vbs # T_ArrClass_RemoveEmpty
← ▼ ▲
RemoveByIndexes (ArrayClass)
Sub ArrayClass::RemoveByIndexes( in_Indexes as array of integer )
指定した配列番号の要素を配列から除外します。
【引数】
in_Indexes
除外する要素の配列番号の配列
Set an_array = new_ArrayClass( Array( "A", "B". "C", "D" ) )
an_array.RemoveByIndexes Array( 1, 3 )
Aseert IsSameArray( an_array, Array( "A", "C" ) ) )
サンプル
→ vbslib.vbs
ソース
→ T_Arr.vbs
テスト
T_ArrayClass_RemoveByIndexes
← ▼ ▲
ToEmpty (ArrayClass)
Sub ArrayClass::ToEmpty()
配列を空にします。 配列要素数は 0 になります。
(src)
[ 親: ArrayClass クラス ]
← ▼ ▲
LookUpDic (ArrayClass)
Function ArrayClass::LookUpDic( Key as string, Value as variant ) as Dictionary
配列の要素の中から、指定した値を持つ辞書を返します。
サンプル
Set dic1 = CreateObject( "Scripting.Dictionary" )
dic1.Item( "name" ) = "Item1"
Set dic2 = CreateObject( "Scripting.Dictionary" )
dic2.Item( "name" ) = "Item2"
Set arr = new_ArrayClass( Array( dic1, dic2 ) )
Assert arr.LookUpDic( "name", "Item1" ) Is dic1
"name", "Item1"
配列の要素が辞書のときに使えます。
該当する要素が無かったときは、Nothing を返します。
→ T_Dic.vbs # T_LookUpDicInArray
テスト
(src)
[ 親: ArrayClass クラス ]
関連
→ SearchInSimpleArray
← ▼ ▲
NewIterator (ArrayClass)
Dim ArrayClass::NewIterator as ArrayClassIterator
ArrayClassIterator
オブジェクトを生成します。
(src)
初めて ArrayClassIterator::GetNext を呼んだときは、先頭の要素を返します。
[ 親: ArrayClass クラス ]
← ▼ ▲
Count (ArrayClass)
Property Get ArrayClass::Count() as integer
配列の要素数を返します。
(src)
Count = 2 なら、LBound( Items ) = 0, UBound( Items ) = 1 です。
Visual Basic 系言語では、要素数のシンボルは Count です。
Java 系言語では、要素数のシンボルは Length です。
[ 親: ArrayClass クラス ]
← ▼ ▲
Length (ArrayClass)
Property Get ArrayClass::Length() as integer
配列の要素数を返します。
(src)
Length = 2 なら、LBound( Items ) = 0, UBound( Items ) = 1 です。
Visual Basic 系言語では、要素数のシンボルは Count です。
Java 系言語では、要素数のシンボルは Length です。
[ 親: ArrayClass クラス ]
← ▼ ▲
UBound_ (ArrayClass)
Property Get ArrayClass::UBound_() as integer
配列の最大要素番号を返します。
(src)
UBound の末尾にアンダースコアが付いています。
（UBound をオーバーライドすると、ArrayClass が実装できなくなるため。）
For i=0 To Arr.UBound_
Next
サンプル：
[ 親: ArrayClass クラス ]
← ▼ ▲
CSV (ArrayClass)
Property Get ArrayClass::CSV() as string
CSV 形式にした配列のすべての要素。
(src)
Dim a : Set a = new ArrayClass
a.Add "abc"
a.Add "def"
echo a.CSV '// "abc,def"
CSV
→ AddCSV (ArrayClass)
関連
[ 親: ArrayClass クラス ]
サンプル
Assert new_ArrayClass( Array( 1, 2, 3 ) ).CSV = "1,2,3"
サンプル
← ▼ ▲
Code (ArrayClass)
Property Get ArrayClass::Code() as string
VBScript のコードに変換した、配列のすべての要素。
Dim a : Set a = new ArrayClass
a.Add "abc"
a.Add "def"
echo a.Code '// [ "abc","def" ]と表示
サンプル
[ 親: ArrayClass クラス ]
→ vbslib.vbs
→ T_Arr.vbs
テスト
ソース
T_ArrClass_Code
← ▼ ▲
Copy (ArrayClass)
Sub ArrayClass::Copy( SrcArr as array or ArrayClass )
配列のすべての要素をコピーします。
これまで入っていた要素は無くなります。
サンプル：
Dim a
Set a = New ArrayClass
a.Add 1
a.Copy Array( 2, 3 )
'// a は、{ 2, 3 }
Copy
(src)
[ 親: ArrayClass クラス ]
← ▼ ▲
Value (ArrayClass)
Property Get ArrayClass::Value() as string
配列のすべての要素を文字列にします。
古い仕様です。廃止予定です。
Set arr = new ArrayClass
s = GetEchoStr( arr )
次のように代用できます。
[ 親: ArrayClass クラス ]
← ▼ ▲
Echo (ArrayClass)
Sub ArrayClass::Echo()
配列のすべての要素を表示します。
廃止予定です。
Value プロパティを echo 表示してください。
→ echo
(src)
→ Value (ArrayClass)
古い仕様です。廃止予定です。
Set arr = new ArrayClass
echo arr
次のように代用できます。
[ 親: ArrayClass クラス ]
← ▼ ▲
ArrayClassIterator クラス
の要素を順番にたどっていくクラスです。
Dim a : Set a = new ArrayClass
Dim iter : Set iter = a.NewIterator()
While iter.HasNext()
echo iter.GetNext()
WEnd
サンプル
ArrayClass
メンバー
.GetNext
.HasNext
参考
→ イテレーター (JavaScript 1.7)
次の要素を返す。 次回の呼び出しでは、その次の要素を返す。
次の要素があるかどうか
→ NewIterator (ArrayClass)
取得
(src)
.GetNextOrSentinel
次の要素を返す。 次の要素が無いときは、番兵を返す。
テスト
→ T_Arr_Target # [T_ArrIter]
← ▼ ▲
GetNext (ArrayClassIterator)
Function ArrayClassIterator::GetNext() as variant
次の要素を返す。 次回の呼び出しでは、その次の要素を返す。
Java2 の Iterator パターン、JavaScript 1.7 のイテレーターでは、next に相当します。
Next は、VB言語の予約語であることと、Me に副作用があるため、プロパティではなくメソッド
であり、メソッドは動詞で始まる方が読みやすいため、GetNext に変更しています。
→ ArrayClassIterator クラス
補足
次の要素が無いときは、エラーになります。 エラーにしたくないときは、
GetNextOrSentinel
を使ってください。
← ▼ ▲
HasNext (ArrayClassIterator)
Function ArrayClassIterator::HasNext() as boolean
次の要素があるかどうかを返す。
→ ArrayClassIterator クラス
← ▼ ▲
GetNextOrSentinel (ArrayClassIterator)
Dim f, line, a, elem, iter
Set a = new ArrayClass : a.Add new Elem
Set iter = a.NewIterator
Set sentinel = new Elem
Set elem = iter.GetNextOrSentinel( sentinel )
Set f = OpenForRead( path )
Do Until f.AtEndOfStream
line = f.ReadLine()
If elem.IsMatch( line ) Then '// ここで番兵が使われることがある
...
elem = iter.GetNextOrSentinel( sentinel )
'// GetNext ではここでエラーになってしまうことがある
End If
Loop
f = Empty
elem = Empty
iter = Empty
Function ArrayClassIterator::GetNextOrSentinel( Sentinel as variant ) as variant
次の要素を返す。 ただし、次の要素が無いときは、Sentinel 引数（番兵）を返す。
サンプル：
GetNextOrSentinel
GetNextOrSentinel
→ ArrayClassIterator クラス
← ▼ ▲
ArrayDictionary クラス
Dictionary
標準の
の Item を、配列にしたクラスです。
Dim dic
Set dic = new ArrayDictionary
dic.Add "key1", "item11"
dic.Add "key1", "item12"
dic.Add "key1", "item13"
dic.Add "key2", "item21"
dic.Echo
Dim i,j
For Each j in dic.Dic.Items() : For Each i in j.Items
WScript.Echo i
Next : Next
item11
item12
item13
item21
上記スクリプトの出力
サンプル：
Dic
VBScript 標準の Dictionary （プロパティ）
メンバ
Add
キーに要素を登録する。キーは重複可能
ToEmpty
すべての要素を削除します
Echo
すべての要素を表示する
Count
要素の数
１つのキーに対して、複数のアイテムを関連付けするときに使います。
(src)
テスト
→ T_Arr_Target.vbs [T_ArrayDic1]
Dictionary
Key, Item
ArrayClass
*
Item
*
← ▼ ▲
Dic (ArrayDictionary)
Dim ArrayDictionary::Dic as Dictionary of variant
ArrayDictionary クラスがラップしている辞書です。
要素(Item)は、オブジェクトでもそれ以外でも格納します。
(src)
← ▼ ▲
ToEmpty (ArrayDictionary)
Sub ArrayDictionary::ToEmpty()
辞書に要素を空にします。 要素数は 0 になります。
(src)
← ▼ ▲
Add (ArrayDictionary)
Sub ArrayDictionary::Add( Key as string, Item as variant )
辞書に要素を追加します。
【引数】
Key
要素に関連付けるキー文字列
Item
辞書に追加する要素（オブジェクト、またはそれ以外）
(src)
← ▼ ▲
Count (ArrayDictionary)
Function ArrayDictionary::Count() as integer
辞書の要素数を返します。
【引数】
返り値
辞書の要素数
１つのキーに複数の要素が関連付けされることがあるので、
要素数はキーの数と一致しないことがあります。
(src)
← ▼ ▲
Echo (ArrayDictionary)
Sub ArrayDictionary::Echo()
辞書のすべての要素を表示します。
(src)
← ▼ ▲
ObjectSetClass
重複しないでオブジェクトをまとめるコレクション。
Set objects = new ObjectSetClass
Set a_object = new NameOnlyClass
Set b_object = new NameOnlyClass
objects.Add a_object
objects.Add b_object
objects.Add b_object
echo objects.Count '// 2
objects.Remove b_object
echo objects.Count '// 1
サンプル
テスト
ソース
→ T_Dic.vbs
T_ObjectSetClass
→ vbslib.vbs
→ DestroyerClass
関連
→ g_ObjectIDs
← ▼ ▲
Add (ObjectSetClass)
Sub ObjectSetClass::Add( Object as variant )
コレクションに追加されていなければ、コレクションに追加します。
【引数】
Object
追加するオブジェクト
<< ObjectSetClass
← ▼ ▲
Count (ObjectSetClass)
Property Get ObjectSetClass::Count()
コレクションに追加されているオブジェクトの数を返します。
【引数】
返り値
コレクションに追加されているオブジェクトの数
<< ObjectSetClass
←
↓