Revision: 37344
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at December 8, 2010 17:40 by forexgenuine
Initial Code
//+------------------------------------------------------------------+
//| script program start function |
//+------------------------------------------------------------------+
int start()
{
//----
string symbols[]={"_US30","_FRA40","EURUSD","EURGPB"};
int periods[] = {1,5,15,60,240,1440,10080,43200};
int count = ArraySize(symbols);
int counttf = ArraySize(periods);
string symbol;
int period;
for (int ii=0; ii<count; ii++){
symbol = symbols[ii];
for (int jj=0; jj<counttf; jj++){
period = periods[jj];
export(symbol, period);
}
}
//----
Alert("the end");
return(0);
}
//+------------------------------------------------------------------+
int export(string symbol, int theperiod)
{
string filename = StringSubstr(symbol,0,6) + theperiod + ".csv";
int handle = FileOpen(filename, FILE_CSV|FILE_WRITE, ";");
if(handle>0)
{
// table column headers recording
FileWrite(handle, "Time;Open;High;Low;Close;Volume");
// data recording
for(int i=iBars(symbol,theperiod); i>=0; i--) {
datetime t = iTime(symbol,theperiod,i);
// int year = TimeYear(Time[i]);
int year = TimeYear(t);
if (year > 1970) {
string strdatetime = TimeToStr(t);
strdatetime = StringSetChar(strdatetime,4,'-');
strdatetime = StringSetChar(strdatetime,7,'-');
double Open_i = iOpen(symbol,theperiod,i);
double High_i = iHigh(symbol,theperiod,i);
double Low_i = iLow(symbol,theperiod,i);
double Close_i = iClose(symbol,theperiod,i);
double Volume_i = iVolume(symbol,theperiod,i);
//FileWrite(handle, year + "-" + month + "-" + month + " " + hour + ":" + minute + ":" + seconds, Open[i], High[i], Low[i], Close[i], Volume[i]);
FileWrite(handle, strdatetime, Open_i, High_i, Low_i, Close_i, Volume_i);
}
}
FileClose(handle);
}
return(0);
}
Initial URL
Initial Description
Opt("WinTitleMatchMode", 2) ;1=complete, 2=quick
$title = WinGetHandle("MetaTrader - Alpari UK")
If $title = 0 Then
MsgBox(0,"Not Found", "The window title specified was not found!")
Else
WinActivate($title)
WinWaitActive($title)
Send("^x")
WinWaitActive("Signal")
Send("{ENTER}")
EndIf
Initial Title
Export Alpari from Server
Initial Tags
Initial Language
C