如何通过元素包含的特定字符查找数组中的匹配元素及索引

内置的数组精确匹配方法仅支持元素值和查找目标完全相等时命中，要实现查找包含特定子串的元素及对应索引，直接遍历数组逐个做子串包含判断即可，不需要依赖内置的精确查找接口。

实现步骤 #

• 定义目标子串，初始化空结果集存储命中的索引和元素值
• 从数组最小索引开始遍历到最大索引，覆盖所有元素
• 对每个元素先转成字符串格式，调用字符串包含判断方法检查是否存在目标子串
• 命中则将当前索引、元素值写入结果集
• 遍历完成后即可得到所有符合要求的结果

对应VBScript语法场景的可运行代码 #

（匹配你提供的示例代码语法环境）

' 初始化目标数组
arr = Array("numbers", "matriculation", "123", "444.909", "465", "897.907")
' 定义要查找的目标子串
target = ".90"

' 遍历数组，LBound/UBound可自动获取数组上下限，兼容非0起始索引的数组
For idx = LBound(arr) To UBound(arr)
    ' InStr返回子串在元素中的起始位置，返回值大于0即代表存在目标子串
    ' CStr将元素转成字符串，避免数值类型元素触发类型错误
    ' vbTextCompare代表不区分大小写匹配，需要区分大小写可替换为vbBinaryCompare
    If InStr(1, CStr(arr(idx)), target, vbTextCompare) > 0 Then
        ' 此处可替换为你自己的结果存储逻辑，示例为直接打印结果
        WScript.Echo "命中索引：" & idx & "，对应元素值：" & arr(idx)
    End If
Next

运行结果 #

上述代码针对你给出的示例数组，输出如下：

命中索引：3，对应元素值：444.909
命中索引：5，对应元素值：897.907

注意事项 #

• 不要直接使用数组的精确匹配判断逻辑做子串查找，这类逻辑只会在元素值和查找内容完全一致时返回命中，无法匹配部分内容符合的元素
• 子串判断前统一做类型转换，避免数组内混存数值、空值等非字符串类型时触发运行报错
• 如果需要做更复杂的匹配规则，可以把InStr的判断逻辑替换为正则匹配即可

内容的提问来源于stack exchange，提问作者nufabiaz