トッカンソフトウェア

WSH 配列、動的配列、連想配列



配列操作について書きます。


配列

				
Dim i
Dim ary(3)

'配列サイズ分、繰り返す
For i = 0 To UBound(ary)
	ary(i) = i
Next

'配列内容の出力
For Each str In ary
	WScript.Echo str
Next


			

動的配列

				
Dim i
Dim ary()
ReDim ary(3)

'配列サイズ分、繰り返す
For i = 0 To UBound(ary)
	ary(i) = i
Next

'配列を拡張(Preserveを付けるとデータが引き継がれる)
ReDim Preserve ary(UBound(ary) + 1)

ary(UBound(ary)) = 99

'上記は以下と同様
'ReDim Preserve ary(4)
'ary(4) = 99

'配列内容の出力
For Each str In ary
	wscript.echo str
Next


			

連想配列

				
Dim i
Dim map
Dim key
Dim keys

'連想配列の生成
Set map = CreateObject("Scripting.Dictionary")

'項目の追加(キー,バリュー)
map.Add "hello","world"
map.Add "こんにちは","世界"

'キーを抜き出し
keys = map.Keys

'全項目でループ
For i = 0 To map.Count -1
    WScript.Echo keys(i) & ":" &  map.Item(keys(i)) 
Next

'キー存在チェック
If map.Exists("hello") Then
    WScript.Echo map.Item("hello")
End If

'キーを指定して項目削除
map.Remove("hello")

'キー存在しないチェック
If Not map.Exists("hello") Then
    WScript.Echo "Not Exist"
End If

'全項目でループ
For Each key In map.Keys
    WScript.Echo key & "-" &  map.Item(key) 
Next

'処理の最後にクリアして下さい
Set map = Nothing



			

ページのトップへ戻る