[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[amibroker] Re: FAO-GRAHAM.........Request help with modifying your data export afl code



PureBytes Links

Trading Reference Links


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/





------------------------ 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/