Hi, Thanks a lot.
Thanks sankar On Wed, Jun 9, 2010 at 7:03 PM, Parke <[email protected]> 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]<mercuryqtp%[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 "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
