QTP: Vérifier Si un tableau de chaînes de caractères contient une valeur

Je vais avoir du mal à obtenir mon cas de test à exécuter correctement.

Le problème est dans le code ci-dessous, la première instruction if pour être exact. QTP se plaint qu'un objet est requis

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

Lorsque je vérifie le tableau, je peux voir qu'il est rempli correctement et " j " est aussi la chaîne correcte.
Toute aide à ce problème serait grandement apprécié.

  • Quel est le contenu de options? sont ces chaînes, une sorte de test de l'objet (si oui quel genre?
  • Je suis remplissage d'options comme: options(0) = "welcome" qui est des chaînes si je suis correct. De son un tableau de taille fixe.
InformationsquelleAutor L337BEAN | 2012-08-09
  1. 15

    Chaînes en VBScript ne sont pas des objets, en ce qu'ils n'ont pas de fonctions membres. Recherche une sous-chaîne doit être effectué en utilisant la InStr fonction.

    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
    • Ah oui. Qui explique les problèmes que j'avais. Je vous remercie pour votre information, réponse.
    InformationsquelleAutor Motti
  2. 13

    Une manière concise pour vérifier si un tableau de chaînes de caractères contient une valeur serait de combiner les Filtre et UBound fonctions:

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

    Inconvénients: vous n'obtenez pas l'index où les éléments sont présents,

    Avantages: il est simple, et vous avez l'habitude de les inclure et de comparer les paramètres pour spécifier les critères de correspondance.

    • Si je comprends bien les docs correctement, le problème avec cette solution est que le Filtre sera de retour tous les éléments où le choix est une sous-chaîne. E. g. avec un tableau contenant "Dune", "Dunebug", "Bla", et le choix = "Dune", ce sera le retour de deux éléments.
    InformationsquelleAutor gbonetti
  3. 0
    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
    • maintenant, votre fonction n'est pas une fonction et vous n'avez toujours pas utiliser les constantes. S'il vous plaît supprimer cette réponse et de rectification de vos précédents (contenant le précieux pointeur vers StrComp()).
    InformationsquelleAutor Viraj John Maria
  4. -2

    Salut si vous cochez la case exacte de la Chaîne de ne pas sous-Chaîne de caractères dans le tableau d'utilisation StrComb parce que si l'utilisation de l'Instrument puis si array = "apple1" , "apple2" , "apple3" , "apple" et choix = "pomme" puis, tout sera de retour à passer pour chaque élément de tableau. 

    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
    • Au lieu de la (mauvaise!) des numéros de magie, les constantes vbTextCompare/vbBinaryCompare doit être utilisé (msdn.microsoft.com/en-us/library/05z4sfc7%28v=vs.84%29.aspx); réglage de la valeur de retour dans la boucle n'a pas de sens.
    • Désolé.. Vous avez raison... aussi abt la boucle... Merci
    • Désolé.. Vous avez raison à propos de la boucle... mais j'ai essayé passage de 0 et de 1, il semble bien fonctionner.. je pense qu'au lieu de vbTextCompare/vbBinaryCompare 0 et 1 fonctionne très bien.. Merci
    • "de travail (fin)" est pas un critère valide pour la qualité du logiciel. Ne soyez pas désolé, mais correcte de votre contribution.
    • Veuillez Vérifier : qtpworld.com/index.php?cid=36 , gcreddy.com/2010/04/vb-script-conditional-statements.html , w3schools.com/vbscript/func_strcomp.asp
    • Aussi je vous Remercie pour votre point de travail "(fin)" n'est pas ok pour la qualité du logiciel.. pour les références que j'ai atteint à un point que l'utilisation de 0 et de 1 fonctionnera.. Merci
    • S'il vous plaît si le ci-dessus a tort s'il vous plaît laissez-moi savoir ... Parce que je l'utilise dans mon test complet..

    InformationsquelleAutor Viraj John Maria