|
PureBytes Links
Trading Reference Links
|
Lesmond,
Code below works.I checked it from export to
conversion IN MS DLoader.
Thanks once again Graham for sharing your work.
Regards
Rakesh
/*
Export intraday and EOD data to TXT files
One file for each stock
In the first line insert the directory you want to
save them to, make sure the
directory exists
Select your charts to export with the "Apply to"
filter in AA window
Select the timeframe period you want to save as using
the AA "Settings"
Press Scan button
by Graham Kavanagh 05 Feb 2004
*/
fh = fopen(
"d:\\amibroker\\US_STOCKS_ASCII\\"+Name()+".txt",
"w");
if( fh )
{
t = Name();
p = "D";
y = Year();
m = Month();
d = Day();
for( i = 0; i < BarCount; i++ )
{
fputs( t + "," , fh );
fputs(p + "," , fh );
ds = StrFormat("%02.0f/%02.0f/%02.0f,",
m[ i ], d[ i ], y[ i ]);
fputs( ds, fh );
qs = StrFormat("%.4f,%.4f,%.4f,%.4f,%.0f\n",
O[ i ],H[ i ],L[ i ],C[ i ],V[ i
] );
fputs( qs, fh );
}
fclose( fh );
}
Buy =C> 0;
Filter=Buy;
--- Graham <kavemanperth@xxxxxxxxx> wrote:
> move the IF into the loop rather than before it
>
>
> On 4/21/05, Lesmond V <ebsn247@xxxxxxxx> wrote:
> >
> >
> > Here is another version of Graham's code. It will
> export the data
> > to:
> >
> > C:\MS_Data\MS_Eod.csv
> >
> > in the following format:
> >
> >
>
Ticker,P,Date,Open,High,Low,Close,Volume,OpenInterest
> > $SPX,D,2005/04/18,1142.8700, 1148.9200, 1139.8000,
> 1145.9800, 0, 0
> > $SPX,D,2005/04/19,1148.7000, 1154.6700, 1148.3000,
> 1152.7800, 0, 0
> > $SPX,D,2005/04/20,1153.7200, 1155.5000, 1136.1500,
> 1137.5000, 0, 0
> >
> > To run the code:
> >
> > go to AA - ApplyTo:set Filters - Range:disregard -
> Scan
> >
> > Problem:
> >
> > If you set the "filter" to let's say a watch list,
> only the last
> > symbol from the WL will be exported (with Scan
> button) and only the
> > first symbol with Explore button. The same applies
> to Graham's code
> > from the previous post. Any ideas how to resolve
> this are
> > appreciated.
> >
> > /***************
> > Export Eod Data To Metastock
> > Based on Graham Kavanagh's code:
> >
>
http://www.amibroker.com/library/detail.php?id=327&hilite=fputs
> >
> > 1) Execution: AA - ApplyTo:set Filters -
> Range:disregard - Scan
> > 2) There is no option to set the date range (AA
> "Range" is not linked
> > to this formula)
> > 3) The code exports data of the current ticker to
> > C:\MS_Data\MS_Eod.csv
> > 4) If the directory doesn't exist it will be
> created automatically
> > ***************/
> >
> > folder = "C:\\MS_Data";
> > fmkdir( folder );
> >
> > fh = fopen( folder + "\\" + "MS_Eod.csv", "w");
> > if (fh)
> > {
> > fputs(
>
"Ticker,P,Date,Open,High,Low,Close,Volume,OpenInterest\n",
> > fh );
> > t = Name();
> > p = "D";
> > y = Year();
> > m = Month();
> > d = Day();
> > for( i = 0; i < BarCount; i++ )
> > {
> > fputs( t + "," , fh );
> > fputs( p + "," , fh );
> > ds = StrFormat("%02.0f/%02.0f/%02.0f,", y[i],
> m[i], d[i] );
> > fputs( ds, fh );
> > qs = StrFormat("%.4f, %.4f, %.4f, %.4f, %.0f,
> %.0f\n", O[i],
> > H[i], L[i], C[i], V[i], OI[i] );
> > fputs( qs, fh );
> > }
> > fclose( fh );
> > }
> > Buy = 0;
> >
> > /***************/
> >
> > Lesmond
> >
> > --- In amibroker@xxxxxxxxxxxxxxx, Graham
> <kavemanperth@xxxx> wrote:
> > > I can only suggest you add in an extra column
> and have it add the
> > > letter you want
> > >
> > > You could always write an exploration and export
> the results from
> > AA window
> > >
> > > I have assumed this is what you are loking for
> > > Here is sample of altered code to add in a D or
> X for daily or other
> > >
> > > x = "C:\\IDData"+ WriteVal(Now(3),1);
> > >
> > > fmkdir( x );
> > >
> > > Buy=V>0;
> > >
> > > if( Interval()==inDaily ) {dt = "D";}
> > > else{ dt = "X" ;}
> > >
> > >
> > > fh = fopen( x + "\\" +Name()+".txt", "w");
> > > if( fh )
> > > {
> > > fputs(
>
"Ticker,Timeframe,Date,Time,Open,High,Low,Close,Volume
> > \n", fh );
> > > y = Year();
> > > m = Month();
> > > d = Day();
> > > r = Hour();
> > > e = Minute();
> > > n = Second();
> > >
> > > for( i = 0; i < BarCount; i++ )
> > > {
> > > if( Buy[i] )
> > > {
> > > fputs( Name() + "," , fh );
> > > ds = StrFormat("%02.0f-%02.0f-%02.0f,",
> > > y[ i ], m[ i ], d[ i ] );
> > > fputs( ds, fh );
> > > fputs( dt + "," , fh );
> > >
> > > ts = StrFormat("%02.0f:%02.0f:%02.0f,",
> > > r[ i ],e[ i ],n[ i ] );
> > > fputs( ts, fh );
> > >
> > > qs =
> StrFormat("%.4f,%.4f,%.4f,%.4f,%.0f\n",
> > > O[ i ],H[ i ],L[ i ],C[ i
> ],V[ i ] );
> > > fputs( qs, fh );
> > > }
> > > }
> > > fclose( fh );
> > > }
> > >
> > >
> > >
> > > On 4/21/05, Rakesh Sahgal <rakeshsahgal@xxxx>
> wrote:
> > > >
> > > > Hi Graham
> > > >
> > > > I want to use the code you shared with the
> group to
> > > > export data to MS Format for use in MS.
> > > >
> > > > To be able to convert the data I need to
> indicate the
> > > > periodicity of the data in each line of data
> in the
> > > > file. The periodicity will be indicated by the
> letter
> > > > "D" indicating daily data inserted between the
> ticker
> > > > and date fields. Can you please guide me
> through this?
> > > >
> > > > TIA
> > > >
> > > > Regards
> > > >
> > > > Rakesh
> > > >
> > > >
> __________________________________________________
> > > > Do You Yahoo!?
> > > > Tired of spam? Yahoo! Mail has the best spam
> protection around
> > > > http://mail.yahoo.com
> > > >
> > > >
> > > > Please note that this group is for discussion
> between users only.
> > > >
> > > > To get support from AmiBroker please send an
> e-mail directly to
> > > > SUPPORT {at} amibroker.com
> > > >
> > > > For other support material please check also:
> > > > http://www.amibroker.com/support.html
> > > >
> > > >
> > > > Yahoo! Groups Links
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > > --
> > > Cheers
> > > Graham
> > > http://e-wire.net.au/~eb_kavan/
> >
> >
> > Please note that this group is for discussion
> between users only.
> >
> > To get support from AmiBroker please send an
> e-mail directly to
> > SUPPORT {at} amibroker.com
> >
> > For other support material please check also:
> > http://www.amibroker.com/support.html
> >
> >
> > Yahoo! Groups Links
> >
> >
> >
> >
> >
>
>
> --
> Cheers
> Graham
> http://e-wire.net.au/~eb_kavan/
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Has someone you know been affected by illness or disease?
Network for Good is THE place to support health awareness efforts!
http://us.click.yahoo.com/Rcy2bD/UOnJAA/cosFAA/GHeqlB/TM
--------------------------------------------------------------------~->
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For other support material please check also:
http://www.amibroker.com/support.html
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/amibroker/
<*> To unsubscribe from this group, send an email to:
amibroker-unsubscribe@xxxxxxxxxxxxxxx
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
|