Hi all,
I am trying to link an file of ascii
datas with Amibroker.
I have downloaded, in Amibroker'sguide,
a jscript procedure which is capable to realize this, bur it
does'not work with me.
Here is the source of this Jscript
:
/*
** AmiBroker/Win32 scripting
Example
**
** File: Import.js
** Created: Tomasz
Janeczko, January 30th, 2000
** Purpose: Import quotes from
Metastock ASCII file
** Language: JScript (Windows Scripting
Host)
**
** The data is stored in lines with following
format
**
<ticker>,<per>,<date>,<high>,<low>,<close>,<volume>
**
*/
ImportMsASCII(
"C:\\ACCOR.Txt" );
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 semicolon 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[ 1 ]
);
/* add a new quotation
*/
quote =
stock.Quotations.Add( date.getvarDate()
);
/* put data into it
*/
quote.Open = parseFloat(
fields[2]);
quote.High = parseFloat(
fields[ 3 ] );
quote.Low =
parseFloat( fields[ 4 ] );
quote.Close =
parseFloat( fields[ 5 ] );
quote.Volume =
parseInt( fields[ 6 ] );
}
/* refresh ticker list and windows
*/
AmiBroker.RefreshAll();
/* notify the user
*/
WScript.Echo( "Finished" );
}
and here is an example of
datas file :
<Ticker>,<date_DMY>,<Open>,<High>,<Low>,<Close>,<Volume>
ACCOR;09/10/2009;
37.42;
38.12;
36.87; 37.10;
735891
ACCOR;12/10/2009;
37.25;
37.84;
37.13; 37.68;
673107
ACCOR;13/10/2009;
37.36;
38.02;
37.21; 37.34;
726353
ACCOR;14/10/2009;
37.71;
38.29;
37.59; 37.81;
850644
ACCOR;15/10/2009;
37.85;
38.10;
36.30; 36.50;
1445724
ACCOR;16/10/2009;
36.50;
36.88;
35.90; 36.08;
1541279
ACCOR;19/10/2009;
36.12;
36.65;
35.90; 36.28;
1036342
ACCOR;20/10/2009;
36.49;
36.63;
36.05; 36.20;
799961
ACCOR;21/10/2009;
36.31;
36.40;
35.57; 35.74;
889888
ACCOR;22/10/2009;
35.47;
35.47;
34.70; 35.02;
804990
ACCOR;23/10/2009;
35.50;
35.78;
34.26; 34.31;
1473307
ACCOR;26/10/2009;
34.49;
34.85;
33.75; 33.87;
1293311
I always have an error message : "cet
objet ne gère pas cette propriété"
at the lnstruction "quote =
stock.Quotations.Add( date.getvarDate() )" (In red in
the source code)
Can anyone help me ?
Best regards;