y = Year()%100;
ds = StrFormat( "%02.f%02.f%02.f,", y[i], m[i], d[i] ); // date string
--
Cheers
Graham
AB-Write >< Professional AFL Writing Service
Yes, I write AFL code to your requirements
http://e-wire.net.au/~eb_kavan/ab_write.htm
On 12/06/06, Lester Vanhoff <[EMAIL PROTECTED]> wrote:
> > 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 amibroker@yahoogroups.com, 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****/
>
>
>
>
>
>
>
> 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
>
>
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Home is just a click away. Make Yahoo! your home page now.
http://us.click.yahoo.com/DHchtC/3FxNAA/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/
