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

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()

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

I have recorded a test using qtp to download a file in an application. Code: Browser("MFA Work Queue Manager").Page("MFA Work Queue Manager").Link("Rules Maintenance").Click Browser("MFA Work Queue Manager").Page("Rule Maintenance").WebEdit("txtSearch").Set "PmtType" Browser("MFA Work Queue Manager").Page("Rule Maintenance").WebButton("Search").Click Browser("MFA Work Queue Manager").Page("Rule Maintenance").WebButton("Export").Click Browser("MFA Work Queue Manager").Dialog("File Download").WinButton("Save").Click Browser("MFA Work Queue Manager").Page("Rule Maintenance").Sync Dialog("Save As").WinButton("Save").Click Dialog("Save As_2").WinButton("Yes").Click Problem: When running this test it gives an error at line no. 5 as Save button object is not identified by it's parent object. This code I ran 4 times after recording at it was working fine but 5th time onwords, it starts giving me the above problem. I used exist property option, Check Property option but none of this changes work at all. Kindly help...

1 Answers   Bank Of America,

---

What is the difference between systemUtil and invoke method..?

5 Answers  

---

hi to all, i need a code.. in flight application 1.i need to login first then i need to insert 3 new orders... 2.i have to log out 3.i have to login again with different user 4.need to insert 2 new orders 5.then need to log out 6.then again login with different user 7.3 new orders create and log out 8.but we hv to do this using data table and actions please help me

0 Answers  

---

suppose take one row in a row 16 columns is there.in 16 columns 16 numbers is there.but i want to get each 3 column number.o/p :5 columns get in 16 columns means. so can anybody write this function? plz send if u know the answer.

2 Answers   Bosch,

---

Test cases for Traffic Signals

4 Answers   AppLabs,

---

What is the method for maximize the application while we using Decriptive programming in QTP?

3 Answers  

---

What is the difference between Mandatory and BaseFilter Properies..Anybody please answer me..Thanks in Advance

3 Answers   BirlaSoft,

---

What is meant by Environmental variables?2 types r there know…can u pls explain clearly?

1 Answers  

---

what is check point?

2 Answers  

---

In QTP while testing 3 tier application, It is Java Based Application developed using Java, servelets and JDBC etc... and It is a Web based Application.. which Add-In do we need to select while testing ...Java or Web Add-In

6 Answers  

---

Can we do Load Teting with QTP?

12 Answers  

---

In Test Director bug rEPORTS, wHAT ARE THE CONTENTS(fIELDS)? iF yoU PREAPARE BUG REPORT IN eXCEL sHEET , hOW U SEND TO dEVELOPMENT TEAM THRW T.D?

1 Answers  

---