Thanks a lot for this help , MR Parke
On Wednesday, 9 June 2010 19:03:26 UTC+5:30, Parke wrote:
>
> I use the following functions to pull information from winlists. I
> often need to find a particular value and then additional information
> in that row. I place rows into an array element and separated by two
> colons. I then split the element into another array and search to my
> heart's content.
>
> Function winListViewColumnCount(windw)
> winListViewColumnCount = windw.ColumnCount
> End Function
>
> Function winListViewRowCount(windw)
> winListViewRowCount = windw.GetItemsCount
> End Function
>
> ' a function to return each row of WinListView object
> ' will handle 2 to 5 columns
> Function valueArray(windw)
> Dim numRows, numCols, i, id, col2, col3, col4, col5, valArray()
> numCols = WinListViewColumnCount(windw)
> numRows = WinListViewRowCount(windw)
> msgbox("number of rows = " & numRows)
> ReDim valArray(numRows - 1)
> If numCols = 2 Then
> For i = 0 to numRows - 1
> id = windw.GetSubItem(i)
> col2 = windw.GetSubItem(i,1)
> valArray(i) = id & "::" & col2
> Next
> elseif numCols = 3 Then
> For i = 0 to numRows - 1
> id = windw.GetSubItem(i)
> col2 = windw.GetSubItem(i,1)
> col3 = windw.GetSubItem(i,2)
> valArray(i) = id & "::" & col2 & "::" & col3
> Next
> ElseIf numCols = 4 then
> For i = 0 to numRows - 1
> id = windw.GetSubItem(i)
> col2 = windw.GetSubItem(i,1)
> col3 = windw.GetSubItem(i,2)
> col4 = windw.GetSubItem(i,3)
> valArray(i) = id & "::" & col2 & "::" & col3 &
> "::" & col4
> Next
> ElseIf numCols = 5 then
> For i = 0 to numRows - 1
> id = windw.GetSubItem(i)
> col2 = windw.GetSubItem(i,1)
> col3 = windw.GetSubItem(i,2)
> col4 = windw.GetSubItem(i,3)
> col5 = windw.GetSubItem(i,4)
> valArray(i) = id & "::" & col2 & "::" & col3 &
> "::" & col4 & "::" &
> col5
> Next
> End If
> valueArray = valArray
> End Function
>
> Function winListGetColumnHeader(windw)
> Dim numCols, i, valArray, val
> numCols = windw.ColumnCount
> ReDim valArray(numCols - 1)
> For i = 0 to numCols -1
> val = windw.getColumnHeader(i)
> valArray(i) = windw.GetColumnHeader(i)
> Next
> winListGetColumnHeader = valArray
> End Function
>
> windw is from using Set for example:
> Set wndow = Window("name").Dialog("name2").WinListView("name3")
>
> Hope this helps.
>
>
> On Jun 6, 10:07 pm, s sankar <[email protected]> wrote:
> > Hi,
> >
> > In the sample application shipped with QTP , how to select flight number
> > alone from the winList.
> > eg :Window("Flight Reservation").Dialog("Flights
> > Table").WinList("From").Activate "15802 DEN 10:24 AM FRA 01:54
> PM
> > AF $173.47"
> > i need to get 15802 alone.
> >
> > Thanks
> > sankar
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
