QTP: Verifica se una serie di stringhe contiene un valore

Question

Ho problemi a far funzionare correttamente il mio caso di test.

Il problema è nel seguente codice, la prima istruzione if è esatta. QTP lamenta che un oggetto è necessaria

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 

Quando controllo matrice posso vedere che è popolato correttamente e 'j' è anche la stringa corretta. Qualsiasi aiuto con questo problema sarebbe molto apprezzato.

Answer 1

Le stringhe in VBScript non sono oggetti, in quanto non hanno funzioni membro. La ricerca di una sottostringa dovrebbe essere eseguita utilizzando la funzione 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

Hi se controlli String esatto non sub-String nel StrComb uso serie perché se utilizza Instr allora se Array = "apple1", "apple2", "apple3", "Apple" e la scelta = "mela "quindi tutti restituiranno il pass per ogni articolo dell'array.

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

Un modo conciso per verificare se un array di stringhe contiene un valore potrebbe essere quella di combinare i Filter e UBound funzioni:

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

Contro: non si ottiene dove gli indici gli elementi sono trovati

Pro: è semplice e hai i soliti include e confronta i parametri per specificare i criteri di corrispondenza.