Building .hst files with MQL4

int start()
  {
//----
   Comment("Starting......");
   int intTotalCount=10;
   bool bolLoopFinished=false;
   int intHandle=FileOpen("myfile.csv",FILE_CSV|FILE_WRITE,',');
   string strDate;
   FileWrite(intHandle,"Date","Open","High","Low","Close");
   if (intHandle<0) return(0);
   int intShiftLoop=1, intShift=0;
   while(!bolLoopFinished)
   {
      Comment("Loop: ",intShiftLoop,".  Bars: ",Bars);
      iBarShift(NULL,PERIOD_H1,Time[intShiftLoop],true);
      intShiftLoop++;
      if (intShiftLoop>Bars) bolLoopFinished=true;
   }
   intShiftLoop=1; intShift=1;
   bolLoopFinished=false;
   while(!bolLoopFinished)
   {
      Comment("gethering historical values......");
      strDate=funcBuildDate(iTime(NULL,PERIOD_H1,intShift));
      FileWrite(intHandle,
                strDate,
                iOpen(NULL,PERIOD_H1,intShift),
                iHigh(NULL,PERIOD_H1,intShift),
                iLow(NULL,PERIOD_H1,intShift),
                iClose(NULL,PERIOD_H1,intShift));
      intShift++;
      if (intShift>10) bolLoopFinished=true;
   }
   FileClose(intHandle);
   Comment("Indicator finished");
//----
   return(0);
  }
//+------------------------------------------------------------------+

string funcBuildDate(datetime dtTime)
{
 //YYYY.MM.DD HH:MM:SS
     int intYear=TimeYear(dtTime);
     int intMonth=TimeMonth(dtTime);
     int intDay=TimeDay(dtTime);
     int intHour=TimeHour(dtTime);
     int intMinute=TimeMinute(dtTime);
     int intSeconds=TimeSeconds(dtTime);
     string strReturnValue=StringConcatenate(intYear,".",intMonth,".",intDay," ",intHour,":",intMinute,":",intSeconds);
     return(strReturnValue);
}

Quoting nondisclosure00

Disliked

Well, I've seen period_converter.mq4 that comes with Metatrader 4. It's what I want to do to build .hst files for an mql4 indicator/ea. Question now is, how can I get this to do it for more than one time frame?

Ignored

Quoting RaptorUK

Disliked

{quote} Have you tried Period_Converter_ALL_Rev01.mq4 ? but bear in mind this: http://forum.mql4.com/51224/page5

Ignored

Quoting nondisclosure00

Disliked

Thanks. But what I'm looking for is something that can create the .hst files from the current chart data. Then continue to build them as the day/week moves on. Basically I want to build the history live. I could open up the 3 chart time frames for each pair I trade (5min, 15min, 1hr). That would get me the .hst files I need, but there has to be an easier way in code to do it so I don't have to open all the charts. With the .hst files there, I can then use the iOpen, iHigh, iEtc. stuff. {quote}

Ignored

Quoting RaptorUK

Disliked

{quote} OK, perhaps I am missing something, if you have a chart you already have the hst files and they are already being updated as you get fresh data from your Broker . . . what am I/you missing ?

Ignored

Quoting nondisclosure00

Disliked

The only history being updated is the history for the time frame of the chart(s) you have open. Say you have the chart open for EURUSD 5min. Then in the history folder you'll have EURUSD5.hst. But what I want the history for EURUSD 15 min and 1 hr as well. That history you don't have unless you have open or have opened in the past for that symbol and time frame. Try it. delete all your .hst files. then open a terminal and open your favorite pair and time frame. then close out the terminal. Look in the history folder again and you'll only have history...

Ignored

Quoting nondisclosure00

Disliked

The only history being updated is the history for the time frame of the chart(s) you have open. Say you have the chart open for EURUSD 5min. Then in the history folder you'll have EURUSD5.hst. But what I want the history for EURUSD 15 min and 1 hr as well. That history you don't have unless you have open or have opened in the past for that symbol and time frame. Try it. delete all your .hst files. then open a terminal and open your favorite pair and time frame. then close out the terminal. Look in the history folder again and you'll only have history...

Ignored

Quoting RaptorUK

Disliked

{quote} OK, it's easy to address this issue, attempt to read data for the other timeframes you want to update and check for error 4066, when you no longer get error 4066 your data has been updated, use iHigh() for example and specify the timeframe . . .

Ignored

Quoting Gumrai

Disliked

{quote} Not always a good idea to delete the history. When it updates you may find that you don't have as much history as before. If doing it as an experiment, best to copy the files to another folder first.

Ignored

Quoting hayseed

Disliked

hey non d..... you do not need hst files to use iopen, ihigh and such.... with the exception of when your platform is not connected of course.... anytime you call any of the hst files components, with your platform connected, it will load the hst file for you.... as a test, make sure no audcad chart is open and close the platform..... open the history folder and delete all your history for the audcad on all timeframes.... write a ea with the single line below....... or add it to any indicator or ea.... Print(iMA("AUDCADm",5,50,0,MODE_SMMA,PRICE_MEDIAN,1),...

Ignored

Quoting nondisclosure00

Disliked

Got it, done it, worked as you stated. But the values, after the initial calculation after the 0's, never change. Load it up on a chart and let it go for a while, you'll see that the values will never change. Not unless you have the .hst files being built. {quote}

Ignored

Quoting nondisclosure00

Disliked

That's what the code I posted above does; it builds the history first then I call the iEtc. stuff. Downside is that it would have to rebuild on each call and that building takes a while per pair (X by a few pairs and now it's going take a good amount of time). {quote}

Ignored

//+------------------------------------------------------------------+
//|                                                        Blank.mq4 |
//|                                    Copyright 2013, Nondisclosure |
//|                                               http://no.link.yet |
//+------------------------------------------------------------------+
#property copyright "Copyright 2013, Nondisclosure"
#property link      "http://no.link.yet"

int intHandle=0;
string strFileName;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   strFileName=StringConcatenate("AUDCAD","15",".csv");
   intHandle=FileOpen(strFileName,FILE_CSV|FILE_WRITE,',');
   FileWrite(intHandle,"Actual Date","History Date","Open","High","Low","Close","MA");
   bool bolNoHistory=true;
   int intCount=1;
   while (bolNoHistory)
   {
      if (iOpen("AUDCAD",15,0)!=0 &&
          iHigh("AUDCAD",15,0)!=0 &&
          iLow("AUDCAD",15,0)!=0 &&
          iClose("AUDCAD",15,0)!=0 &&
          iMA("AUDCAD",15,50,0,MODE_SMA,PRICE_MEDIAN,1)!=0 &&
          TimeYear(iTime("AUDCAD",PERIOD_M15,0))>1970)
      {
         Comment("history donwloaded!  continuing EA.  It took ",intCount," attempts to download history");
         bolNoHistory=false;
         break;
      }
      Comment("no history downloaded on attempt #",intCount,".  Waiting one second.");
      intCount++;
      Sleep(1000);
   }
       

//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   FileClose(intHandle);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
   bool bolNewBar=funcIsNewBar(15);
   if (bolNewBar) 
   {
      FileWrite(intHandle,
                TimeToStr(Time[0],TIME_DATE|TIME_MINUTES),
                TimeToStr(iTime("AUDCAD",PERIOD_M15,0),TIME_DATE|TIME_MINUTES),
                iOpen("AUDCAD",15,0),
                iHigh("AUDCAD",15,0),
                iLow("AUDCAD",15,0),
                iClose("AUDCAD",15,0),
                iMA("AUDCAD",15,50,0,MODE_SMA,PRICE_MEDIAN,0));
      FileFlush(intHandle);
   }
//----
   return(0);
  }
//+------------------------------------------------------------------+

bool funcIsNewBar(int timeFrame)
   {
   bool res=false;
   
   // the array contains open time of the current (zero) bar
   // for 7 (seven) timeframes
   static datetime _sTime[7];  
   int i=6;
   //Note: i below will be 6 or timeframe will be day.
   switch (timeFrame) 
      {
      case 1  : i=0; break;
      case 5  : i=2; break;
      case 15 : i=3; break;
      case 30 : i=4; break;
      case 60 : i=5; break;
      case 240: break;
      case 1440:break;
      default:  timeFrame = 1440;
      }
//----
   if (_sTime==0 || _sTime!=iTime(Symbol(),timeFrame,0))
      {
      _sTime = iTime(Symbol(),timeFrame,0);
      res=true;
      }
      
//----
   return(res);   
   }

Quoting sangmane

Disliked

{quote} iEtc stuff

Ignored

Quoting nondisclosure00

Disliked

Ok, I've been working on this a few days now. Here's what I've got so far:

Ignored

Quoting RaptorUK

Disliked

{quote} I don't understand why you are spending time on something you don't need to do ? if you don't want to listen to good advice when given why on earth did you ask for help ? http://forum.mql4.com/56741#816493 http://forum.mql4.com/56349#807290 http://forum.mql4.com/53894

Ignored

Quoting nondisclosure00

Disliked

Oh yes, I get data; it's just not accurate data. Sorry, but I prefer ACCURATE data, not just any old data. {quote}

Ignored

22:08:32 VariousFunctionTest GBPUSD,M15: initialized
22:08:33 VariousFunctionTest GBPUSD,M15: 0.9475 0.9512 0.9517
22:08:35 VariousFunctionTest GBPUSD,M15: 0.9475 0.9512 0.9517
22:08:39 VariousFunctionTest GBPUSD,M15: 0.9475 0.9512 0.9517

22:14:46 VariousFunctionTest GBPUSD,M15: 0.9476 0.9512 0.9517
22:15:09 VariousFunctionTest GBPUSD,M15: 0.9476 0.9502 0.9517
22:15:10 VariousFunctionTest GBPUSD,M15: 0.9476 0.9502 0.9517

22:29:57 VariousFunctionTest GBPUSD,M15: 0.9477 0.9502 0.9517
22:29:58 VariousFunctionTest GBPUSD,M15: 0.9477 0.9502 0.9517
22:29:59 VariousFunctionTest GBPUSD,M15: 0.9478 0.9499 0.9502
22:30:13 VariousFunctionTest GBPUSD,M15: 0.9478 0.9499 0.9502

22:45:20 VariousFunctionTest GBPUSD,M15: 0.9479 0.9499 0.9502
22:45:25 VariousFunctionTest GBPUSD,M15: 0.9479 0.9499 0.9502
22:45:36 VariousFunctionTest GBPUSD,M15: 0.9479 0.9503 0.9502
22:45:38 VariousFunctionTest GBPUSD,M15: 0.9479 0.9503 0.9502

22:59:55 VariousFunctionTest GBPUSD,M15: 0.948 0.9503 0.9502
22:59:57 VariousFunctionTest GBPUSD,M15: 0.948 0.9503 0.9502
22:59:58 VariousFunctionTest GBPUSD,M15: 0.948 0.9497 0.9503
22:59:58 VariousFunctionTest GBPUSD,M15: 0.948 0.9497 0.9503

Print(iMA("AUDCADm",5,50,0,MODE_SMM A,PRICE_MEDIAN,1), " " , iOpen("AUDCADm",15,1) , " " , iOpen("AUDCADm",30,1) ); // remove 'm' if not ibfx mini...

Quoting RaptorUK

Disliked

{quote} I get accurate data . . . 22:08:32 VariousFunctionTest GBPUSD,M15: initialized 22:08:33 VariousFunctionTest GBPUSD,M15: 0.9475 0.9512 0.9517 22:08:35 VariousFunctionTest GBPUSD,M15: 0.9475 0.9512 0.9517 22:08:39 VariousFunctionTest GBPUSD,M15: 0.9475 0.9512 0.9517 22:14:46 VariousFunctionTest GBPUSD,M15: 0.9476 0.9512 0.9517 22:15:09 VariousFunctionTest GBPUSD,M15: 0.9476 0.9502 0.9517 22:15:10 VariousFunctionTest GBPUSD,M15: 0.9476 0.9502 0.9517 22:29:57 VariousFunctionTest GBPUSD,M15: 0.9477 0.9502 0.9517 22:29:58 VariousFunctionTest GBPUSD,M15:...

Ignored