I used the Perl program that you've shown many years back... If you make the change I have noted you will have the script working flawlessly.
There should be nothing else to change.... unless you wish to customize the output file. Being able to control the data is really interesting.... because this will allow you to make charts that were not possible prior to your modifications. At this moment in my trading .... I am trying to chart with "less" as in less lines ... less indicators. Have fun with it John Rakesh Sahgal wrote: > John > > Thanks very much for your suggestion. Followed it but the problem > remains. Any other fix that you can suggest? > > Once again thanks for your time. > > > Regards > > > Rakesh > > ps: > > if it is any help this is what the input file looks like > > Date Time Open High Low Close Vol > 09/19/07 2:00:00 137.6 138 137.6 138 136234 > 09/19/07 3:00:00 137.5 137.6 137.15 137.15 40269 > 09/19/07 4:00:00 137.15 137.7 137.15 137.45 37317 > 09/19/07 5:00:00 137.2 148.6 137.2 147.6 784848 > 09/19/07 6:00:00 148 148 147.25 147.25 59836 > > > The output after change suggested by you is as follows > > 19000101,Open,High,Low,Close,Vol > 19000102,137.6000,138.0000,137.6000,138.0000,136234 > 19000103,137.5000,137.6000,137.1500,137.1500,40269 > 19000104,137.1500,137.7000,137.1500,137.4500,37317 > 19000105,137.2000,148.6000,137.2000,147.6000,784848 > 19000106,148.0000,148.0000,147.2500,147.2500,59836 > > > On Sun, Jul 27, 2008 at 7:48 PM, John <[EMAIL PROTECTED]> wrote: > >> Rakesh Sahgal wrote: >> >>> Hello >>> >>> I have downloaded the following script from xmlworks.com >>> <http://xmlworks.com>. The purpose of this scrip is to convert >>> Intraday data exported from AB(using AFL code provided by Graham ) >>> into a pseudo EOD format for use elsewhere(TA programs that do not >>> support IntraDay format). >>> >>> >>> //////////==========////////// >>> use strict; >>> my $infile = shift; >>> my $outfile = shift; >>> my $ticker = shift; >>> open (IN,$infile) || die "Open IN failed $!"; >>> open (OUT,">$outfile") || die "Open OUT failed $!"; >>> >> ------------------------------------ >> >> 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 NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: >> http://www.amibroker.com/devlog/ >> >> For other support material please check also: >> http://www.amibroker.com/support.html >> Yahoo! Groups Links >> >> >> >> > > ------------------------------------ > > 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 NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: > http://www.amibroker.com/devlog/ > > For other support material please check also: > http://www.amibroker.com/support.html > Yahoo! Groups Links > > > > >
