Answer Posted / 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()

What are the 3 main stages involved in testing with qtp?

1082

---

How should I click on the right click menu objects When I trying to add the object properties to the OR.It is showing only Window(Window).Not all the objects of the window. Also while recording I found No script. How to solve this>.

1984

---

Hi, I got error message as "object does not support this property or method: "Test.Actions" when i execute the following line of script on QTP 9.0 Dim qtApp, qtRep Set qtApp = CreateObject("QuickTest.Application") Set qtRep = qtApp.Test.Actions("Action1").ObjectRepositories Can anyone tell me where i am wrong.

2108

---

Create flight reservation login descriptive programing (Condition: Remove the value and substitute with a variable, and then call the validation from Excel) Plz help me....... very urgent.........

2204

---

How reliable are the site's Internet connections required to be? And how does that affect backup system or redundant connection requirements and testing?

1252

---

How to execute a winrunner script in quicktest professional?

1024

---

What are the various automation frameworks available in qtp?

978

---

How many types of Automation frameworks are there in UFT? Describe them.

1020

---

if there is a web table of having row and colmns.a button is placed at 2nd row's 3rd column which is worked for both edit and delete..how to write script for the button to test both operation on the web table using desriptive programing.. plz help me on script wheather using getroproperty Q2)what is the command for taking valiue from a web table in qtp

25710

---

Discuss the QTP Environment?

1054

---

How QTP identify the system time that's changes every seconds?

1050

---

Explain the difference between data driven testing and parameterization ?

1023

---

With what extension you can save the list of tests in a file to run in test batch runner?

1013

---

Hi Samrat, Thank u very much, what u said it is right.

1878

---

How QTP support all types of applications (platforms)?

4534

---