Scripts for Ascending order in qtp.
Answers were Sorted based on User's Feedback
Answer / mahesh.k
a=array(1,5,6,3,10)
For i=0 to 4
For j=0 to 4
If a(i)<a(j) Then
t=a(i)
a(i)=a(j)
a(j)=t
End If
Next
Next
For i=0 to 4
print a(i)
Next
Is This Answer Correct ? | 18 Yes | 8 No |
Answer / ekapop techawanto (scnyl)
The best way I found in case of your data sorting consists
of character and number, you may use Excel feature to
support this as following on:
'+++++++++++++++++++
Public Sub SCNYL_SortDataTest()
Const xlAscending = 1 'represents the sorting type 1 for
Ascending 2 for Desc
Const xlGuess = 0
Const xlTopToBottom = 1
Const xlSortNormal = 0
Const iCOLIDX_VALUE = 1 ' Set to Column "A"
Dim oExcel
Dim oWB
Dim oSheet
Dim oRange
Dim asInfo
Dim lRowIdx
Dim lMaxRows
Dim sColName
' Sample data
sValue = "eowos,bweoww, weoeos,ewsow,acc,bzaow,ceoes,
jaow, wwwowam, waosw, 1124,wowasdd, 56, 32,62,108"
' Classified to Array collection
asInfo = Split(sValue, ",")
' Refered to Excel Object
Set oExcel = CreateObject("Excel.Application")
' To make sure Excel Application already installed
If oExcel Is Nothing Then
' Clean Array Object
Erase asInfo
Exit Sub
End If
' Added a new the Workbook object
Set oWB = oExcel.Workbooks.Add
' Ignored all message window displays
oExcel.DisplayAlerts = False
Set oSheet = oWB.Worksheets(1)
' Get the Maximum of Array Object Boundary
lMaxRows = UBound(asInfo)
For lRowIdx = 0 To lMaxRows
' Loaded your data to Excel Sheet
oSheet.Cells(lRowIdx + 1, iCOLIDX_VALUE).Value =
Trim(asInfo(lRowIdx))
Next
' Set Excel Colum at "A"
sColName = "A1:A" & (lMaxRows+1)
oSheet.Range(sColName).Sort oSheet.Range("A1"),
xlAscending, , , , , , xlGuess, 1, False, xlTopToBottom, ,
xlSortNormal
' Clean Array Object
Erase asInfo
' If you'd like to array collection, you should
uncomment for the Array operation.
'ReDim Preserve asInfo(lMaxRows)
For lRowIdx = 0 To lMaxRows
With oSheet
'asInfo(lRowIdx) = .Cells(lRowIdx + 1,
iCOLIDX_VALUE).Value
Print .Cells(lRowIdx + 1,
iCOLIDX_VALUE).Value
End With
Next
' Not Save any thing for this Excel
With oWB
.Saved = False
.Close
End With
oExcel.Quit
' Restore memory allocation
Set oRange = Nothing
Set oWB = Nothing
Set oExcel = Nothing
'Erase asInfo
End Sub
'//// Main ////
Call SCNYL_SortDataTest()
Is This Answer Correct ? | 6 Yes | 0 No |
Answer / vikas choubey
for i = UBound(appArray) - 1 To 0 Step -1
for j= 0 to i
if appArray(j)>appArray(j+1) then
temp=appArray(j+1)
appArray(j+1)=appArray(j)
appArray(j)=temp
end if
next
next
Is This Answer Correct ? | 1 Yes | 2 No |
Hi my name is mohan. I am working as a manual tester.. And now i want learn QTP.. is there any online websites to learn QTP for free if u know any plz help me out..,.or send mail to k.mohann.mohan@gmail.com
What is difference between Class and MicClass
Can any one give me some basic VB script used in QTP ?As i am new in QTP.Give sample VB script used in QTP? PLZ
can any body clearly explain about hybridframework with the explanation for files what ever we come acros in this frame work?
What is the exact difference bet function and action in QTP Anybody can explain it in detail..Thanks in advance..
What Folder Structure following in Keyword Driven Frame work?
Username field having some string mistake like"user naem".what type of testing i prefer to test spell check.
I am using environment variable xml to give credenatials for login into unix. Is there any way we cam mask the password in the xml?
In a page i have N number of links at a time i would like to open those links by using QTP?how to do that?
What is Descriptive Programing? In which cases, we will go for descriptive programing?
explain structured testing? plz guys with exp. do answer
Batch testing in howmany ways u perfrom in QTP