[配列から特定の文字列を抽出する]

配列の中から、特定の文字列が含まれる要素を抽出します。

【ソースコード】

[tips0036.vbs]
Option Explicit

Dim strValue    ' 配列
Dim lngLoop     ' ループカウンタ

strValue = Array("sun", "mon", "tue", "wed", "thu", "fri", "sat")
For lngLoop = LBound(strValue) To UBound(strValue)
    WScript.Echo "配列(" & lngLoop & "):" & strValue(lngLoop)
Next

WScript.Echo "上記の配列で「e」が含まれるものは"
strValue = Filter(strValue, "e")
For lngLoop = LBound(strValue) To UBound(strValue)
    WScript.Echo "　配列(" & lngLoop & "):" & strValue(lngLoop)
Next

【実行結果】

C:\> cscript //NoLogo tips0036.vbs
配列(0):sun
配列(1):mon
配列(2):tue
配列(3):wed
配列(4):thu
配列(5):fri
配列(6):sat
上記の配列で「e」が含まれるものは
　配列(0):tue
　配列(1):wed