program for sorting

[aparna_baishya]

I have to check whether the items in a listbox is in sorted order or not..can anyone please write the VB code for me..the items consist alphabets and numbers..its sorting on the basis of ascii values..

[Ankur]

Have you tried this by yourself? If yes, post the tried code then members here can help.

[Anshoo Arora]

Aparna, this is a simple function that will retrieve all values from a list object and enumerate them in QTP's print log:

Code:

Public Function getListValues(strWebListDesc,creationT)

    strBrowser = "creationtime:=" & creationT
    strPage = "micclass:=Page"

    Count = Browser(strBrowser).Page(strPage).WebList(strWebListDesc).GetROProperty ("items count")

    iCount = 1
        
    Do while iCount < Count    
        Browser(strBrowser).Page(strPage).WebList(strWebListDesc).Select "#" & iCount
        sListVal = Browser(strBrowser).Page(strPage).WebList(strWebListDesc).GetROProperty ("selection")
        Print sListVal 'Temporary placeholder
        iCount = iCount + 1    
    Loop    
    
End Function

Usage: Call TestWebListValue("name:=loc","")

You can test this exact code here: https://www.google.com/accounts/NewAccou...1cb&type=2