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
ページのトップへ戻る