//+------------------------------------------------------------------+
//| mq4tomq5_script_sample.mq4 |
//| keiji |
//| http://www.dr-ea.com/meta-blog/ |
//+------------------------------------------------------------------+
#property copyright "keiji"
#property link "http://www.dr-ea.com/meta-blog/"
#property show_inputs
#include <stdlib.mqh>
extern string MQL4FileName = "FileName";
extern int FileType = 1;
extern string note = "FileType 0 :Indicator, 1 :EA, 2 :Script";
//top code
string FuncAddTop()
{
return("\n//:::::::::::::::::::::::::::::::::::::::::::::\n"+
"#include <mt4accountinfo.mqh>\n"+
"#include <mt4string.mqh>\n"+
"#include <mt4datetime.mqh>\n"+
"#include <mt4objects_1.mqh>\n"+
"#include <mt4timeseries_2.mqh>\n"+
"//Etc.\n"+
"//:::::::::::::::::::::::::::::::::::::::::::::::\n");
}
//code in OnInit()
string FuncAddInInit()
{
return("\n //:::::::::::::::::::::::::::::::::::::::::::::\n"+
" double Ask=SymbolInfoDouble(Symbol(),SYMBOL_ASK);\n"+
" double Bid=SymbolInfoDouble(Symbol(),SYMBOL_BID);\n"+
" int Bars=Bars(Symbol(),PERIOD_CURRENT);\n"+
" double Point=Point();\n"+
" //Etc.\n"+
" //:::::::::::::::::::::::::::::::::::::::::::::::\n");
}
//code in OnCalculate(),OnTick(),OnStart()
string FuncAddInStart()
{
return("\n //:::::::::::::::::::::::::::::::::::::::::::::\n"+
" double Ask=SymbolInfoDouble(Symbol(),SYMBOL_ASK);\n"+
" double Bid=SymbolInfoDouble(Symbol(),SYMBOL_BID);\n"+
" int Bars=Bars(Symbol(),PERIOD_CURRENT);\n"+
" double Point=Point();\n"+
" //Etc.\n"+
" //:::::::::::::::::::::::::::::::::::::::::::::::\n");
}
//code in OnDeinit()
string FuncAddInDeinit()
{
return("\n //:::::::::::::::::::::::::::::::::::::::::::::\n"+
" double Ask=SymbolInfoDouble(Symbol(),SYMBOL_ASK);\n"+
" double Bid=SymbolInfoDouble(Symbol(),SYMBOL_BID);\n"+
" int Bars=Bars(Symbol(),PERIOD_CURRENT);\n"+
" double Point=Point();\n"+
" //Etc.\n"+
" //:::::::::::::::::::::::::::::::::::::::::::::::\n");
}
string text;
//+------------------------------------------------------------------+
//| script program start function |
//+------------------------------------------------------------------+
int start()
{
//----
string filename=MQL4FileName+".mq4";
int handle;
int linecnt=0,includeline=0;
handle=FileOpen(filename,FILE_CSV|FILE_READ,"\t");
if(handle<0)
{
Alert("File " + filename + " not found, the last error is ", ErrorDescription(GetLastError()));
return(false);
}
else
{
while(!FileIsEnding(handle))
{
text=FileReadString(handle);
linecnt++;
if(StringSubstr(text,0,2)!="//" && StringSubstr(text,0,2)!="#p")
{
if(FuncFind(text, "int ") || FuncFind(text, "double ") || FuncFind(text, "string ") || FuncFind(text, "bool ") ||
FuncFind(text, "color ") || FuncFind(text, "datetime "))
{
includeline=linecnt;
break;
}
}
}
FileSeek(handle,0,SEEK_SET);
}
string filename1="mq4_"+MQL4FileName+".mq5";
int handle1;
handle1=FileOpen(filename1,FILE_CSV | FILE_WRITE,"\t");
if(handle1<0)
{
Alert("File " + filename1+" not Open, the last error is ", ErrorDescription(GetLastError()));
return(false);
}
string filename2="mq4_"+MQL4FileName+".txt";
int handle2;
handle2=FileOpen(filename2,FILE_CSV | FILE_READ | FILE_WRITE,"\t");
if(handle2<0)
{
Alert("File " + filename2+" not Open, the last error is ", ErrorDescription(GetLastError()));
return(false);
}
if(handle>0 && handle1>0 && handle2>0)
{
bool init=false,start=false,deinit=false;
bool changeinit=false,changestart=false,changedeinit=false;
linecnt=0;
while(!FileIsEnding(handle))
{
text=FileReadString(handle);
linecnt++;
string mq4word,mq5word;
//-------------------------------FuncRewrite(string mql4 word, stirng mql5 word);
//REWRITE************************************************************************
//extern to input
mq4word= "extern";
mq5word= "input";
FuncRewrite(mq4word, mq5word);
//Account Info
mq4word= "AccountBalance(";
mq5word= "AccountInfoDouble(ACCOUNT_BALANCE";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountCredit(";
mq5word= "AccountInfoDouble(ACCOUNT_CREDIT";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountCompany(";
mq5word= "AccountInfoString(ACCOUNT_COMPANY";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountCurrency(";
mq5word= "AccountInfoString(ACCOUNT_CURRENCY";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountEquity(";
mq5word= "AccountInfoDouble(ACCOUNT_EQUITY";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountFreeMargin(";
mq5word= "AccountInfoDouble(ACCOUNT_FREEMARGIN";
FuncRewrite(mq4word, mq5word);
//AccountFreeMarginCheck(string symbol, int cmd, double volume)
//AccountFreeMarginMode()
mq4word= "AccountLeverage(";
mq5word= "AccountInfoInteger(ACCOUNT_LEVERAGE";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountMargin(";
mq5word= "AccountInfoDouble(ACCOUNT_MARGIN";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountName(";
mq5word= "AccountInfoString(ACCOUNT_NAME";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountNumber(";
mq5word= "AccountInfoInteger(ACCOUNT_LOGIN";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountProfit(";
mq5word= "AccountInfoDouble(ACCOUNT_PROFIT";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountServer(";
mq5word= "AccountInfoString(ACCOUNT_SERVER";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountStopoutLevel(";
mq5word= "AccountInfoDouble(ACCOUNT_MARGIN_SO_SO";
FuncRewrite(mq4word, mq5word);
mq4word= "AccountStopoutMode(";
mq5word= "AccountInfoInteger(ACCOUNT_MARGIN_SO_MODE";
FuncRewrite(mq4word, mq5word);
//String Function
mq4word= "CharToStr(";
mq5word= "CharToString(";
FuncRewrite(mq4word, mq5word);
mq4word= "DoubleToStr(";
mq5word= "DoubleToString(";
FuncRewrite(mq4word, mq5word);
mq4word= "StrToDouble(";
mq5word= "StringToDouble(";
FuncRewrite(mq4word, mq5word);
mq4word= "StrToInteger(";
mq5word= "StringToInteger(";
FuncRewrite(mq4word, mq5word);
mq4word= "StrToTime(";
mq5word= "StringToTime(";
FuncRewrite(mq4word, mq5word);
mq4word= "TimeToStr(";
mq5word= "TimeToString(";
FuncRewrite(mq4word, mq5word);
int i=0;
//Change & ADD****************************************************
//top part
if(linecnt==includeline) text=FuncAddTop()+"\n"+text;
//init
if(!init && !changeinit)
{
for(i=0;i<StringLen(text)-5;i++)
{
if(StringSubstr(text,i,6)==" init(")
{
init=true;
break;
}
}
}
if(init)
{
if(!changeinit)
{
text=StringSubstr(text,0,i)+" OnInit("+StringSubstr(text,i+6);
changeinit=true;
}
while(i<StringLen(text))
{
if(StringSubstr(text,i,1)=="{")
{
text=StringSubstr(text,0,i+1)+FuncAddInInit()+StringSubstr(text,i+1);
init=false;
break;
}
i++;
}
}
//start
if(!start && !changestart)
{
for(i=0;i<StringLen(text)-6;i++)
{
if(StringSubstr(text,i,7)==" start(")
{
start=true;
break;
}
}
}
if(start)
{
if(!changestart)
{
switch(FileType)
{
case 0: text="int OnCalculate(const int rates_total,\n"+
" const int prev_calculated,\n"+
" const datetime& time[],\n"+
" const double& open[],\n"+
" const double& high[],\n"+
" const double& low[],\n"+
" const double& close[],\n"+
" const long& tick_volume[],\n"+
" const long& volume[],\n"+
" const int& spread[]"+
StringSubstr(text,i+7);break;
case 1: text="void OnTick("+StringSubstr(text,i+7);break;
case 2: text=StringSubstr(text,0,i)+" OnStart("+StringSubstr(text,i+7);break;
}
changestart=true;
}
while(i<StringLen(text))
{
if(StringSubstr(text,i,1)=="{")
{
text=StringSubstr(text,0,i+1)+FuncAddInStart()+StringSubstr(text,i+1);
start=false;
break;
}
i++;
}
}
//deinit
if(!deinit && !changedeinit)
{
for(i=0;i<StringLen(text)-7;i++)
{
if(StringSubstr(text,i,8)==" deinit(")
{
deinit=true;
break;
}
}
}
if(deinit)
{
if(!changedeinit)
{
text=StringSubstr(text,0,i)+" OnDeinit("+StringSubstr(text,i+8);
changedeinit=true;
}
while(i<StringLen(text))
{
if(StringSubstr(text,i,1)=="{")
{
text=StringSubstr(text,0,i+1)+FuncAddInDeinit()+StringSubstr(text,i+1);
deinit=false;
break;
}
i++;
}
}
FileWrite(handle2,text);
}
FileClose(handle);
FileFlush(handle2);
bool findstart=false,findfirst=false;
int cnt=0,lastsemi=0,lastreturn=0;
int strtlinecnt=0;
if(FileType==0 && changestart)
{
FileSeek(handle2,0,SEEK_SET);
while(!FileIsEnding(handle2))
{
text=FileReadString(handle2);
strtlinecnt++;
if(!findstart)
{
for(i=0;i<StringLen(text)-12;i++)
{
if(StringSubstr(text,i,12)=="OnCalculate(")
{
findstart=true;
break;
}
}
}
if(findstart)
{
for(i=0;i<StringLen(text);i++)
{
if(StringSubstr(text,i,1)=="{")
{
cnt++;
if(!findfirst) findfirst=true;
}
else if(StringSubstr(text,i,1)=="}") cnt--;
else if(StringSubstr(text,i,6)=="return") lastreturn=strtlinecnt;
else if(StringSubstr(text,i,1)==";") lastsemi=strtlinecnt;
}
}
if(findfirst && cnt==0) break;
}
}
else if(FileType==1 && changestart)
{
FileSeek(handle2,0,SEEK_SET);
while(!FileIsEnding(handle2))
{
text=FileReadString(handle2);
strtlinecnt++;
if(!findstart)
{
for(i=0;i<=StringLen(text)-12;i++)
{
if(StringSubstr(text,i,12)=="void OnTick(")
{
findstart=true;
break;
}
}
}
if(findstart)
{
for(i=0;i<StringLen(text);i++)
{
if(StringSubstr(text,i,1)=="{")
{
cnt++;
if(!findfirst) findfirst=true;
}
else if(StringSubstr(text,i,1)=="}") cnt--;
else if(StringSubstr(text,i,6)=="return") lastreturn=strtlinecnt;
else if(StringSubstr(text,i,1)==";") lastsemi=strtlinecnt;
}
}
if(findfirst && cnt==0) break;
}
}
linecnt=0;
FileSeek(handle2, 0, SEEK_SET);
while(!FileIsEnding(handle2))
{
linecnt++;
text=FileReadString(handle2);
if(FileType==0)
{
if(lastreturn==lastsemi && lastreturn==linecnt) text=" return(rates_total);";
if(lastreturn==0 && strtlinecnt==linecnt) text=" return(rates_total);\n"+text;
}
if(FileType==1 && lastreturn==lastsemi && lastreturn==linecnt) text="//"+text;
FileWrite(handle1,text);
}
FileClose(handle1);
FileClose(handle2);
FileDelete(filename2);
}
Alert("Complete rewriting!");
//----
return(0);
}
bool FuncFind(string txt, string word)
{
int length=StringLen(word);
for(int i=0;i<=StringLen(txt)-length;i++)
{
if(StringSubstr(txt,i,length)==word) return(true);
}
return(false);
}
string FuncRewrite(string mq4word, string mq5word)
{
int length=StringLen(mq4word);
for(int i=0;i<=StringLen(text)-length;i++)
{
if(StringSubstr(text,i,length)==mq4word)
{
if(i==0) text=mq5word+StringSubstr(text,length);
else text=StringSubstr(text,0,i)+mq5word+StringSubstr(text,i+length);
}
}
}