> Graham> If you are wanting to export the data so you can use it in another
> package then use the export AFL rather than explorations.
That's how I started but I couldn't figure out "c" code to get two digit year
so I decided to try explorations first. Here is the looping code that generates
the required data file (C:\Test\Ms_eod.csv) with four digit year. The question
is how to change the following line to get yymmdd instead of yyyymmdd:
ds = StrFormat( "%4.f%02.f%02.f,", y[i], m[i], d[i] );
I tried these two options but both still give four digit year:
ds = StrFormat( "%02.f%02.f%02.f,", y[i], m[i], d[i] );
ds = StrFormat( "%2.f%02.f%02.f,", y[i], m[i], d[i] );
Here is the full code:
/****START****/
folder = "C:\\Test";
fmkdir( folder ); // this automatically creates the directory
fh = fopen( folder + "\\" + "Ms_eod.csv", "a");
if (fh)
{
t = Name();
p = "D";
y = Year();
m = Month();
d = Day();
for( i = 0; i < BarCount; i++ ) // loop
{
fputs( t + "," , fh );
fputs( p + "," , fh );
ds = StrFormat( "%4.f%02.f%02.f,", y[i], m[i], d[i] ); // date string
fputs( ds, fh );
qs = StrFormat("%.4f, %.4f, %.4f, %.4f, %.0f, %.0f\n", O[i], H[i], L[i],
C[i], V[i], OI[i] ); // quote string
fputs( qs, fh );
}
fclose( fh );
}
Buy = 0; // link to "scan" button
/****END****/
> On 12/06/06, Lester Vanhoff <[EMAIL PROTECTED]> wrote:
> > Thanks, Graham, but your code has the same issue of exploration returning
> > the date of the last available quote in all rows (see below). If you can't
> > figure this out then I'm starting to lose my hope.
> >
> > I just want to look at my Metastock ver.4.51rt (for DOS) and need ASCii
> > with two digit year. Updating to a bit newer version is obviously not an
> > option.
> >
> > Lester
> >
> > /****START****/
> >
> > Filter = 1;
> >
> > yy = Year();
> > mm = Month();
> > dd = Day();
> >
> > ThisDate = StrFormat( "%4.f%02.f%02.f",yy,mm,dd );
> >
> > SetOption("NoDefaultColumns", True);
> > AddTextColumn(Name(), "Ticker");
> > AddColumn(DateTime(), "Real Date", formatDateTime);
> > AddTextColumn(ThisDate, "yyyymmdd");
> >
> > /****END****/
> >
> > --- In [email protected], Graham <kavemanperth@> wrote:
> > >
> > > Try this as one method
> > > yy = Year();
> > > mm = Month();
> > > dd = Day();
> > > ThisDate = StrFormat( "%4.f%02.f%02.f",yy,mm,dd );
> > >
> > > --
> > > Cheers
> > > Graham
> > >
> > > On 11/06/06, Lester Vanhoff <ebsn247lsm@> wrote:
> > > >
> > > > 1) Thanks, Wavemechanic, but when you use Year(), Month() and Day() and
> > > > then run exploration with the date range set to, let's say, last 15
> > > > quotations all the rows will have the same date (the date of the last
> > > > quote). In the formula below I included the column "Real Date"; compare
> > > > it with columns "yyyy", "mm", "dd".
> > > >
> > > > 2) Another question is: how to get month and day with leading zeros?
> > > >
> > > > Lester
> > > >
> > > > /****START****/
> > > >
> > > > Filter = 1;
> > > >
> > > > yy = NumToStr(Year(),1.0,0);
> > > > mm = NumToStr(Month(),1.0);
> > > > dd = NumToStr(Day(),1.0);
> > > >
> > > > SetOption("NoDefaultColumns", True);
> > > > AddTextColumn(Name(), "Ticker");
> > > > AddColumn( DateTime(), "Real Date", formatDateTime );
> > > > AddTextColumn( yy, "yyyy");
> > > > AddTextColumn( mm, "mm");
> > > > AddTextColumn( dd, "dd");
> > > > AddTextColumn(yy+mm+dd, "yymmdd");
> > > >
> > > > AddColumn( Close, "Close", 1.4 );
> > > > AddColumn( Volume, "Volume", 1.0 );
> > > >
> > > > /****END****/
------------------------ Yahoo! Groups Sponsor --------------------~-->
Everything you need is one click away. Make Yahoo! your home page now.
http://us.click.yahoo.com/AHchtC/4FxNAA/yQLSAA/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:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
