Here it is. I downloaded the script form the Amibroker site

----------------------Script Begin-----------------------------

/*
** AmiBroker/Win32 scripting Example
**
** File:         Industries.js
** Created:  Tomasz Janeczko, November 26th, 2000
** Last updated: Tomasz Janeczko, December 17th, 2000
** Purpose:  Import industy assignments
** Language:     JavaScript (Windows Scripting Host)
**
** The data is stored in lines with following format
** <ticker>,<full name>,<industry number>
**
*/

WScript.Echo( "Script Started" );

/* change this line according to your data file name */
ImportStocks("industries.txt");

WScript.Echo( "Finished" );

function ImportStocks( filename )
{
        var fso, f, r;
        var ForReading = 1;
        var AmiBroker;
        var fields;
        var stock;


        /* Create AmiBroker app object */
        AmiBroker = new ActiveXObject( "Broker.Application" );

        /* ... and file system object */
        fso = new ActiveXObject( "Scripting.FileSystemObject" );

        /* open ASCII file */
        f = fso.OpenTextFile( filename, ForReading);

        i = 1;
        /* read the file line by line */
        while ( !f.AtEndOfStream )
        {
                r =  f.ReadLine();
                
                /* split the lines using comma as a separator */
                fields = r.split(","); 
                
                try
                {
                        
                        /* add a ticker - this is safe operation, in case that  
 */
                        /* ticker already exists, AmiBroker returns existing 
one */
                        stock = AmiBroker.Stocks.Add( fields[ 0 ] ); 
                                
                        stock.FullName = fields[ 1 ];

                        stock.IndustryID = parseInt( fields[ 2 ] );
                }
                catch( e )
                {
                                WScript.echo( "There is a problem in line no." 
+ i + ".\nThe line
looks as follows:\n'" + r + "'\nIt will be skipped and next lines will
be processed as normal" );
                }
                                        
                i++;    
        }

        /* refresh ticker list and windows */
        AmiBroker.RefreshAll();

}

----------------------Script End-----------------------------


Tnanks

--
ML

Reply via email to