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;