Stock Symbol List from yahoo Downloaded Via QTP

‘ *************************************************************************************‘ Summary -> QTP Script to download symbols list from yahoo. The url mention below ‘ downloads stock symbols of NSE(a.ns) and BSE(b.ns) using yahoo website. The downloaded list is ‘saved on a file on your c:\‘ Author - Mr. Ashish Abrol‘ Date - June 2010‘Contact – ashish.abrol@grailtest.com‘ THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY ‘ KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE‘ IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A‘ PARTICULAR PURPOSE.‘ This source code is subject to the GrailTest Technologies Permissive License. ‘ All other rights reserved.‘ ************************************************************************************For i=0 to 8100 step 50 'url="http://in.finance.yahoo.com/lookup?s=%2a.ns&t=S&m=IN&r=3&b=" & i url="http://in.finance.yahoo.com/lookup?s=%2a.BO&t=S&m=IN&r=3&b=" & i browser("index:=0").Navigate(url) wait 10 Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile ("c:\Temp\list.txt", 8, True) For j=3 to 52 step 1 f.Write(browser("index:=0").page("index:=0").webtable("index:=8").getCellData(j,1) & " , " & browser("index:=0").page("index:=0").webtable("index:=8").getCellData(j,2)) f.Write(" , " & browser("index:=0").page("index:=0").webtable("index:=8").getCellData(j,3) & " , " & browser("index:=0").page("index:=0").webtable("index:=8").getCellData(j,4)) f.WriteLine() Next f.closeNext