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" );