Некоторые проверки для веб-списка или раскрывающегося списка в VB Script

Question

В моем приложении есть веб-список или раскрывающийся список, состоящий из множества элементов.

Я не знаю количество, но мне нужно проверить следующее -

1. Подтвердить, что ни один из элементов не дублируется
2. Убедитесь, что ни один из элементов не является числовым
3. Убедитесь, что все элементы в отсортированном состоянии.

Пожалуйста, предложите ваши соответствующие решения в VB Script

Я хочу выполнить этот скрипт в инструменте QTP (инструмент тестирования автоматизации)

Answer 1

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 

Answer 2

Свойство WebList all items предоставляет все свойства в списке, разделенном точкой с запятой.

Для сортировки списка достаточно, чтобы каждый элемент был строго больше предыдущего.

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