Quelques validations à faire pour une weblist ou une liste déroulante dans VB Script

Question

J'ai une weblist ou une liste déroulante dans mon application qui se compose de nombreux éléments.

Je ne sais pas le nombre mais je dois valider les éléments suivants -

1. Valider qu'aucun des éléments sont dupliqués
2. Vérifiez qu'aucun des éléments sont numériques
3. vérifie tous les articles sont à l'état trié.

S'il vous plaît proposer vos solutions respectives dans VB Script

Je veux exécuter ce script dans l'outil QTP (outil de test d'automatisation)

Answer 1

Les WebListtous les articles fournitures de propriété toutes les propriétés dans un point-virgule liste délimitée.

Pour qu'une liste soit triée, il suffit que chaque élément soit strictement supérieur à celui qui le précède.

all = Browser("B").Page("P").WebList("L").GetROProperty("all items") 
arr = split(all, ";") 
a = arr(0) 
For i = 1 to UBound(arr) -1 
    b = arr(i) 
    cmp = StrComp(a, b) 
    If cmp = 0 Then 
     MsgBox "Duplicate" 
    ElseIf cmp > 0 Then 
     MsgBox "Unordered" 
    End If 

    If isNumeric(b) Then 
     MsgBox "Numeric" 
    End If 

    a = b 
Next 

Answer 2

aTest = Array("adf","bfdsdf","xdfds", "efgdfg" ,"fdfsdf","gdfsfs","idfgdfg") 

bResult = True 

for i=0 to uBound(aTest) -1 

    if asc(aTest(i)) < asc(aTest(i+1)) OR asc(aTest(i)) = asc(aTest(i+1)) Then 
     bResult = bResult AND True 
    Else 
     bResult = bResult AND False 
    End If 
Next 

msgbox "Main result:"&bResult 


'if bResult return true then array is sorted else it is not sorted