| Octavian Rasnita 2008-03-26, 8:03 am |
| Hi,
Can anyone give me some hints about how I could translate a simple JScript
function into a perl one?
The script is below, but what I don't know how to do are the following
lines:
AmiBroker = new ActiveXObject( "Broker.Application" );
fso = new ActiveXObject( "Scripting.FileSystemObject" );
stock = AmiBroker.Stocks.Add( fields[ 0 ] );
WScript.Echo( "Importing " + fields[ 0 ] );
date = new Date( fields[ 2 ] );
quote = stock.Quotations.Add( date.getVarDate() );
quote.High = parseFloat( fields[ 3 ] );
AmiBroker.RefreshAll();
Of course, some hints about how can I start doing this, will help me.
Thank you.
Here is the whole script:
function ImportMsASCII( filename )
{
var fso, f, r;
var ForReading = 1;
var AmiBroker;
var date;
var quote;
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);
/* skip first line which contains format definition */
f.SkipLine();
/* read the file line by line */
while ( !f.AtEndOfStream )
{
r = f.ReadLine();
/* split the lines using comma as a separator */
fields = r.split(",");
/* add a ticker - this is safe operation, in case that */
/* ticker already exists, AmiBroker returns existing one */
stock = AmiBroker.Stocks.Add( fields[ 0 ] );
/* notify the user */
WScript.Echo( "Importing " + fields[ 0 ] );
/* parse the date from the text file */
date = new Date( fields[ 2 ] );
/* add a new quotation */
quote = stock.Quotations.Add( date.getVarDate() );
/* put data into it */
quote.High = parseFloat( fields[ 3 ] );
quote.Low = parseFloat( fields[ 4 ] );
quote.Close = quote.Open = parseFloat( fields[ 5 ] );
quote.Volume = parseInt( fields[ 6 ] );
}
/* refresh ticker list and windows */
AmiBroker.RefreshAll();
/* notify the user */
WScript.Echo( "Finished" );
}
Octavian
|