vbscript - QTP:检查字符串数组是否包含值

Question

我无法让我的测试用例正确运行。

问题出在下面的代码中，准确地说是第一个 if 语句。 QTP 提示需要一个对象

For j=Lbound(options) to Ubound(options)
    If options(j).Contains(choice) Then
        MsgBox("Found " & FindThisString & " at index " & _
        options.IndexOf(choice))
    Else
        MsgBox "String not found!"
    End If
Next

当我检查数组时，我可以看到它被正确填充并且 'j' 也是正确的字符串。
对此问题的任何帮助将不胜感激。

Answer 1

VBScript 中的字符串不是对象，因为它们没有成员函数。应该使用 InStr 来搜索子串。功能。

For j=Lbound(options) to Ubound(options)
    If InStr(options(j), choice) <> 0 Then
        MsgBox("Found " & choice & " at index " & j
    Else
        MsgBox "String not found!"
    End If
Next