for some reason this is not cleaning up the quotes.

var oAB = new ActiveXObject("Broker.Application");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var Shell = new ActiveXObject("WScript.Shell");
var oStocks = oAB.Stocks;
var Continue = true;
var StockQty = oStocks.Count;
var oStocksToDelete = new Array;
var oStocksNotTraded = new Array;
 WScript.Echo("Cleanup script started" );
for( i = 0; i < StockQty && Continue; i++ )
{
        oStock = oStocks( i );

        var Qty = oStock.Quotations.Count; 

        var response = 0;

        while( Qty > 0 )
        {
                oQuote = oStock.Quotations( Qty - 1 );

                if((oQuote.Open ==-1) || (oQuote.High ==-1) || (oQuote.Low 
==-1)||(oQuote.Close ==-1))
{
//WScript.Echo("found 1 bad quote " || oQuote.Date );
oStock.Quotations.Remove(oQuote );

}
Qty--           

}
}
oAB.SaveDatabase() 
        oAB.RefreshAll();



WScript.Echo("Cleanup script finished" );

Reply via email to