vbscript - una - vba array dinamico

QTP: Comprobando si una matriz de cadenas contiene un valor

Question

Tengo problemas para que mi caso de prueba se ejecute correctamente.

El problema está en el siguiente código, la primera declaración if es exacta. QTP se queja de que se requiere un objeto

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

Cuando reviso la matriz puedo ver que está poblada correctamente y ''j'' también es la cadena correcta. Cualquier ayuda con este problema sería muy apreciada.

Answer 1

Las cadenas en VBScript no son objetos, ya que no tienen funciones miembro. La búsqueda de una subcadena se debe hacer mediante el uso de la función 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

Answer 2

Hola si compruebas String no String en la matriz, utiliza StrComb porque si usas InStr, entonces si array = "apple1", "apple2", "apple3", "apple" y choice = "apple", todos devolverán el pase para cada elemento de la matriz.

Function CompareStrings ( arrayItems , choice )

For i=Lbound(arrayItems) to Ubound(arrayItems)

    '' 1 - for binary comparison "Case sensitive
    '' 0 - not case sensitive
    If StrComp(arrayItems(i), choice , 1) = 0 Then

    CompareStrings = True
    MsgBox("Found " & choice & " at index " & i

    Else

    CompareStrings = False
    MsgBox "String not found!"

    End If

Next

End Function

Answer 3

Function CompareStrings ( arrayItems , choice )
For i=Lbound(arrayItems) to Ubound(arrayItems)

'' 0 - for binary comparison "Case sensitive
'' 1 - for text compare not case sensitive
If StrComp(arrayItems(i), choice , 0) = 0 Then

MsgBox("Found " & choice & " at index " & i

Else

MsgBox "String not found!"

End If

Next

End Function

Answer 4

Una forma concisa de comprobar si una matriz de cadenas contiene un valor sería combinar las funciones de filtro y UBound :

        If Ubound(Filter(options, choice)) > -1 Then
           MsgBox "Found"
        Else
           MsgBox "Not found!"
        End If

Contras: no se obtienen los índices donde se encuentran los elementos

Pros: es simple y tiene los parámetros de inclusión y comparación habituales para especificar los criterios de coincidencia.