/*
** AmiBroker/Win32 scripting Example
**
** File:	Info.js
** Created:	Tomasz Janeczko, November 5th, 2000
** Purpose:	Export the information for all stocks from AmiBroker database
** Language: 	JScript (Windows Scripting Host)
*/

var oAB = new ActiveXObject("Broker.Application"); 
var fso = new ActiveXObject("Scripting.FileSystemObject"); 
file = fso.OpenTextFile( "Info.txt", 2, true ); 

var oStocks = oAB.Stocks; 
var Qty = oStocks.Count;

for( i = 0; i < Qty; i++ ) 
{
  oStock = oStocks( i );
  file.Write( oStock.Ticker + "," ); 
  file.Write( oStock.FullName + "," );
  file.Write( oStock.Address + "," );
  file.Write( oStock.IndustryID + "," );
  file.Write( oStock.MarketID + "," );
  file.WriteLine( oStock.GroupID ); 
} 
file.Close(); 
WScript.Echo("Export finished" );