//+------------------------------------------------------------------+ //| hanover --- extensible functions (np).mqh | //+------------------------------------------------------------------+ //+------------------------------------------------------------------+ string EmbedString(string str, string mask, string embedchar="#", bool complete=false) { //+------------------------------------------------------------------+ // Example: string s1 = "abcdefghi"; string s2 = "## ##12 ##-"; // FormatString(s1,s2) returns "ab cd12 ef-" // FormatString(s1,s2,"#",true) returns "ab cd12 ef-ghi" string res=""; int p1=0; for (int p2=0; p2= "A" && s <= "Z" && StringFind(test,"A") >= 0) || (s >= "a" && s <= "z" && StringFind(test,"a") >= 0) || (s >= "0" && s <= "9" && StringFind(test,"1") >= 0) || StringFind(test,s) >= 0) ok=true; if (!ok) { val = false; break; } } return(val); } //+------------------------------------------------------------------+ string ExtractAlpha(string istr, string other="Aa") { //+------------------------------------------------------------------+ // Returns alphabetic (or other) characters in a string, strips out everything else // parameter 'other' defaults to 'Aa' which will return all uppercase & lowercase alpha chars // appending '1' to 'other' will return digits 0-9 also // appending any other chars to 'other' will cause those chars to be returned also // Example: ExtractAlpha("-34.5°C","1-.") will return "-34.5" // Note: to strip a numeric value from a string, see StrToNumber() function string ostr = ""; for (int i=0; i= "A" && s <= "Z" && StringFind(other,"A") >= 0) || (s >= "a" && s <= "z" && StringFind(other,"a") >= 0) || (s >= "0" && s <= "9" && StringFind(other,"1") >= 0) || StringFind(other,s) >= 0) ostr = ostr + s; } return(ostr); } //+------------------------------------------------------------------+ string ExtractUnique(string istr, string sort="") { //+------------------------------------------------------------------+ // Returns a string (ostr) where there is only one occurrence of each character // in the input string (istr) // Example: ExtractUnqiue("aaabb") returns "ab" // sort parameter may be null (no sort), "a" (sort ascending), "d" (sort descending) // if "a" or "d", sorts chars in resulting string into ASCII order // Example: ExtractUnique("the quick brown fox jumps over the lazy dog","a") // returns " abcdefghijklmnopqrstuvwxyz" string ostr = ""; for (int i=0; i48) result--; result = result+7-MathMod(year+MathInt(year/4)+result+1,7); result = YMDtoDate(year,3,1)+(result-1)*86400; return(result); } //+------------------------------------------------------------------+ int GetHash(string str) { //+------------------------------------------------------------------+ // returns a hash (checksum) value for a given string int sum = 0; for (int i=0; i= 0) vis += OBJ_PERIOD_M1; if (StringFind(timeframes,"M5,") >= 0) vis += OBJ_PERIOD_M5; if (StringFind(timeframes,"M15,") >= 0) vis += OBJ_PERIOD_M15; if (StringFind(timeframes,"M30,") >= 0) vis += OBJ_PERIOD_M30; if (StringFind(timeframes,"H1,") >= 0) vis += OBJ_PERIOD_H1; if (StringFind(timeframes,"H4,") >= 0) vis += OBJ_PERIOD_H4; if (StringFind(timeframes,"D1,") >= 0) vis += OBJ_PERIOD_D1; if (StringFind(timeframes,"W1,") >= 0) vis += OBJ_PERIOD_W1; if (StringFind(timeframes,"MN,") >= 0) vis += OBJ_PERIOD_MN1; return(vis); } //+------------------------------------------------------------------+ string ListGlobals(string mask="-,12.2") { //+------------------------------------------------------------------+ // Returns a string that contains a list of all Global Variables // Numbers are formatted according to 'mask' (see NumberToStr() function) // (Note: press F3 in MT4 to give list of Globals also) // // e.g. to output all globals to the file GLOBALS.TXT: // int h = FileOpen("Globals.TXT",FILE_BIN|FILE_WRITE); // string s = ListGlobals(); // FileWriteString(h,s,StringLen(s)); // FileClose(h); // string str = ""; for (int i=0; i 0) str = str + "\n"; str = str + StrToStr(GVname,"L72") + NumberToStr(GVvalue,mask); } return(str); } //+------------------------------------------------------------------+ string ListOrders(string types="POCDNU") { //+------------------------------------------------------------------+ // Returns a string that contains a lists of all orders of given type(s): // P=pending, O=open, C=closed, D=deleted, N=non-existent ticket, U=unknown // // e.g. to output all pending and open orders to the file ORDERS.TXT: // int h = FileOpen("ORDERS.TXT",FILE_BIN|FILE_WRITE); // string s = ListOrders("PO"); // FileWriteString(h,s,StringLen(s)); // FileClose(h); // /* Output format From Thru Length MQL4 from ------------- ---- ---- ------ --------- Pool (T/H) 1 1 1 0 Order# 3 12 10 2 Status 15 15 1 14 Type 18 27 10 17 Pair symbol 32 41 10 31 Volume (lot size) 42 49 8 41 Open Time 53 73 21 52 Open Price 75 84 10 74 SL 87 96 10 86 TP 98 107 10 97 Close/expiry Time 111 131 21 110 Close Price 133 142 10 132 Commission 147 157 11 146 Swap 160 170 11 159 Profit/Loss 172 186 15 171 Comment 188 219 32 187 Magic Number 222 233 12 221 */ types = StringUpper(types); string type[6] = {"buy","sell","buy limit","sell limit","buy stop","sell stop"}; string str = "Pool Order# St Type Symbol Size [Open Time Price] S/L T/P [Close/Expire Time Price]" + " Commission Swap Profit Comment Magic#\r\n"; str = str + "---- ------ -- ---------- ------ ------ ---------------------- -------- ------- ------- ---------------------- --------" + " ---------- ---------- ------------ -------------------------------- ------------\r\n"; int total = OrdersTotal(); for (int i=total-1; i>=0; i--) { OrderSelect(i, SELECT_BY_POS, MODE_TRADES); if (StringFind(types,OrderStatus(OrderTicket())) < 0) continue; string info = "T " + StrToStr(NumberToStr(OrderTicket(),"10' '") + OrderStatus(OrderTicket()) + " " + StrToStr(type[OrderType()],"L14") + OrderSymbol(),"L36") + NumberToStr(OrderLots(),",6.2") + DateToStr(OrderOpenTime()," [w D n Y H:I") + NumberToStr(OrderOpenPrice(),"5.5']'") + NumberToStr(OrderStopLoss(),"5.5") + NumberToStr(OrderTakeProfit(),"5.5") + DateToStr(OrderExpiration(),"' ['Bw D n Y H:I") + NumberToStr(OrderClosePrice(),"5.5']'") + NumberToStr(OrderCommission(),",-7.2") + NumberToStr(OrderSwap(),",-7.2") + NumberToStr(OrderProfit(),",-9.2' '") + StrToStr(OrderComment(),"L32") + NumberToStr(OrderMagicNumber(),",11"); str = str + info + "\r\n"; } total = OrdersHistoryTotal(); for (i=total-1; i>=0; i--) { OrderSelect(i, SELECT_BY_POS, MODE_HISTORY); if (StringFind(types,OrderStatus(OrderTicket())) < 0) continue; info = "H " + StrToStr(NumberToStr(OrderTicket(),"10' '") + OrderStatus(OrderTicket()) + " " + StrToStr(type[OrderType()],"L14") + OrderSymbol(),"L36") + NumberToStr(OrderLots(),",6.2") + DateToStr(OrderOpenTime()," [w D n Y H:I") + NumberToStr(OrderOpenPrice(),"5.5']'") + NumberToStr(OrderStopLoss(),"5.5") + NumberToStr(OrderTakeProfit(),"5.5") + DateToStr(OrderCloseTime(),"' ['Bw D n Y H:I") + NumberToStr(OrderClosePrice(),"5.5']'") + NumberToStr(OrderCommission(),",-7.2") + NumberToStr(OrderSwap(),",-7.2") + NumberToStr(OrderProfit(),",-9.2' '") + StrToStr(OrderComment(),"L32") + NumberToStr(OrderMagicNumber(),",11"); str = str + info + "\r\n"; } return(str); } //+------------------------------------------------------------------+ string OrderStatus(int tkt) { //+------------------------------------------------------------------+ // Given a ticket number, returns the status of an order: // P=pending, O=open, C=closed, D=deleted, N=non-existent ticket, U=unknown bool exist = OrderSelect(tkt,SELECT_BY_TICKET); if (!exist) return("N"); // unknown datetime ctm = OrderCloseTime(); if (ctm == 0) { if (OrderType() == OP_BUY || OrderType() == OP_SELL) return("O"); // open else return("P"); // pending } else { if (OrderType() == OP_BUY || OrderType() == OP_SELL) return("C"); // closed (for profit or loss) else return("D"); // cancelled (deleted) } return("U"); // unknown } //+------------------------------------------------------------------+ void log(string s1, string s2="", string s3="", string s4="", string s5="", string s6="", string s7="", string s8="", string s9="", string s10="", string s11="", string s12="", string s13="", string s14="", string s15="") { //+------------------------------------------------------------------+ // Outputs up to 15 values to Microsoft DebugView app (debugging alternative for MQL4) // see http://www.forexfactory.com/showthread.php?t=245303 thread for more info string out = StringTrimRight(StringConcatenate(WindowExpertName(), ".mq4 ", Symbol(), " ", s1, " ", s2, " ", s3, " ", s4, " ", s5, " ", s6, " ", s7, " ", s8, " ", s9, " ", s10, " ", s11, " ", s12, " ", s13, " ", s14, " ", s15)); OutputDebugStringA(out); } //+------------------------------------------------------------------+ int BarConvert(int bar, string FromTF, string ToTF, string ccy="") { //+------------------------------------------------------------------+ // Usage: returns bar# on ToTF that matches same time of bar# on FromTF // e.g. bar = BarConvert(40,"M15","H4",Symbol()); // will find the bar# on H4 chart whose time matches bar# 40 on M15 chart ccy = ExpandCcy(ccy); return(iBarShift(ccy,StrToTF(ToTF),iTime(ccy,StrToTF(FromTF),bar))); } //+------------------------------------------------------------------+ int StrToColor(string str) //+------------------------------------------------------------------+ // Returns the numeric value for an MQL4 color descriptor string // Usage: int x = StrToColor("Aqua") returns x = 16776960 // // or: int x = StrToColor("0,255,255") returns x = 16776960 // i.e. StrToColor(",,") // // or: int x = StrToColor("0xFFFF00") returns x = 16776960 // i.e. StrToColor("0xbbggrr") // // or: int x = StrToColor("r0g255b255") returns x = 16776960 // i.e. StrToColor("rgb") // // or: int x = StrToColor("16776960") returns x = 16776960 // i.e. StrToColor("numbervalue") { str = StringLower(StringReplace(str," ","")); if (str == "") return(CLR_NONE); if (str == "aliceblue") return(0xFFF8F0); if (str == "antiquewhite") return(0xD7EBFA); if (str == "aqua") return(0xFFFF00); if (str == "aquamarine") return(0xD4FF7F); if (str == "beige") return(0xDCF5F5); if (str == "bisque") return(0xC4E4FF); if (str == "black") return(0x000000); if (str == "blanchedalmond") return(0xCDEBFF); if (str == "blue") return(0xFF0000); if (str == "blueviolet") return(0xE22B8A); if (str == "brown") return(0x2A2AA5); if (str == "burlywood") return(0x87B8DE); if (str == "cadetblue") return(0xA09E5F); if (str == "chartreuse") return(0x00FF7F); if (str == "chocolate") return(0x1E69D2); if (str == "coral") return(0x507FFF); if (str == "cornflowerblue") return(0xED9564); if (str == "cornsilk") return(0xDCF8FF); if (str == "crimson") return(0x3C14DC); if (str == "darkblue") return(0x8B0000); if (str == "darkgoldenrod") return(0x0B86B8); if (str == "darkgray") return(0xA9A9A9); if (str == "darkgreen") return(0x006400); if (str == "darkkhaki") return(0x6BB7BD); if (str == "darkolivegreen") return(0x2F6B55); if (str == "darkorange") return(0x008CFF); if (str == "darkorchid") return(0xCC3299); if (str == "darksalmon") return(0x7A96E9); if (str == "darkseagreen") return(0x8BBC8F); if (str == "darkslateblue") return(0x8B3D48); if (str == "darkslategray") return(0x4F4F2F); if (str == "darkturquoise") return(0xD1CE00); if (str == "darkviolet") return(0xD30094); if (str == "deeppink") return(0x9314FF); if (str == "deepskyblue") return(0xFFBF00); if (str == "dimgray") return(0x696969); if (str == "dodgerblue") return(0xFF901E); if (str == "firebrick") return(0x2222B2); if (str == "forestgreen") return(0x228B22); if (str == "gainsboro") return(0xDCDCDC); if (str == "gold") return(0x00D7FF); if (str == "goldenrod") return(0x20A5DA); if (str == "gray") return(0x808080); if (str == "green") return(0x008000); if (str == "greenyellow") return(0x2FFFAD); if (str == "honeydew") return(0xF0FFF0); if (str == "hotpink") return(0xB469FF); if (str == "indianred") return(0x5C5CCD); if (str == "indigo") return(0x82004B); if (str == "ivory") return(0xF0FFFF); if (str == "khaki") return(0x8CE6F0); if (str == "lavender") return(0xFAE6E6); if (str == "lavenderblush") return(0xF5F0FF); if (str == "lawngreen") return(0x00FC7C); if (str == "lemonchiffon") return(0xCDFAFF); if (str == "lightblue") return(0xE6D8AD); if (str == "lightcoral") return(0x8080F0); if (str == "lightcyan") return(0xFFFFE0); if (str == "lightgoldenrod") return(0xD2FAFA); if (str == "lightgray") return(0xD3D3D3); if (str == "lightgreen") return(0x90EE90); if (str == "lightpink") return(0xC1B6FF); if (str == "lightsalmon") return(0x7AA0FF); if (str == "lightseagreen") return(0xAAB220); if (str == "lightskyblue") return(0xFACE87); if (str == "lightslategray") return(0x998877); if (str == "lightsteelblue") return(0xDEC4B0); if (str == "lightyellow") return(0xE0FFFF); if (str == "lime") return(0x00FF00); if (str == "limegreen") return(0x32CD32); if (str == "linen") return(0xE6F0FA); if (str == "magenta") return(0xFF00FF); if (str == "maroon") return(0x000080); if (str == "mediumaquamarine") return(0xAACD66); if (str == "mediumblue") return(0xCD0000); if (str == "mediumorchid") return(0xD355BA); if (str == "mediumpurple") return(0xDB7093); if (str == "mediumseagreen") return(0x71B33C); if (str == "mediumslateblue") return(0xEE687B); if (str == "mediumspringgreen") return(0x9AFA00); if (str == "mediumturquoise") return(0xCCD148); if (str == "mediumvioletred") return(0x8515C7); if (str == "midnightblue") return(0x701919); if (str == "mintcream") return(0xFAFFF5); if (str == "mistyrose") return(0xE1E4FF); if (str == "moccasin") return(0xB5E4FF); if (str == "navajowhite") return(0xADDEFF); if (str == "navy") return(0x800000); if (str == "none") return(CLR_NONE); if (str == "oldlace") return(0xE6F5FD); if (str == "olive") return(0x008080); if (str == "olivedrab") return(0x238E6B); if (str == "orange") return(0x00A5FF); if (str == "orangered") return(0x0045FF); if (str == "orchid") return(0xD670DA); if (str == "palegoldenrod") return(0xAAE8EE); if (str == "palegreen") return(0x98FB98); if (str == "paleturquoise") return(0xEEEEAF); if (str == "palevioletred") return(0x9370DB); if (str == "papayawhip") return(0xD5EFFF); if (str == "peachpuff") return(0xB9DAFF); if (str == "peru") return(0x3F85CD); if (str == "pink") return(0xCBC0FF); if (str == "plum") return(0xDDA0DD); if (str == "powderblue") return(0xE6E0B0); if (str == "purple") return(0x800080); if (str == "red") return(0x0000FF); if (str == "rosybrown") return(0x8F8FBC); if (str == "royalblue") return(0xE16941); if (str == "saddlebrown") return(0x13458B); if (str == "salmon") return(0x7280FA); if (str == "sandybrown") return(0x60A4F4); if (str == "seagreen") return(0x578B2E); if (str == "seashell") return(0xEEF5FF); if (str == "sienna") return(0x2D52A0); if (str == "silver") return(0xC0C0C0); if (str == "skyblue") return(0xEBCE87); if (str == "slateblue") return(0xCD5A6A); if (str == "slategray") return(0x908070); if (str == "snow") return(0xFAFAFF); if (str == "springgreen") return(0x7FFF00); if (str == "steelblue") return(0xB48246); if (str == "tan") return(0x8CB4D2); if (str == "teal") return(0x808000); if (str == "thistle") return(0xD8BFD8); if (str == "tomato") return(0x4763FF); if (str == "turquoise") return(0xD0E040); if (str == "violet") return(0xEE82EE); if (str == "wheat") return(0xB3DEF5); if (str == "white") return(0xFFFFFF); if (str == "whitesmoke") return(0xF5F5F5); if (str == "yellow") return(0x00FFFF); if (str == "yellowgreen") return(0x32CD9A); int t1 = StringFind(str,",",0); int t2 = StringFind(str,",",t1+1); if (t1>0 && t2>0) { int red = StrToInteger(StringSubstr(str,0,t1)); int green = StrToInteger(StringSubstr(str,t1+1,t2-1)); int blue = StrToInteger(StringSubstr(str,t2+1,StringLen(str))); return(blue*256*256+green*256+red); } if (StringSubstr(str,0,2) == "0x") { string cnvstr = "0123456789abcdef"; string seq = "234567"; int retval = 0; for (int i=0; i<6; i++) { int pos = StrToInteger(StringSubstr(seq,i,1)); int val = StringFind(cnvstr,StringSubstr(str,pos,1),0); if (val < 0) return(val); retval = retval * 16 + val; } return(retval); } string cclr = "", tmp = ""; red = 0; blue = 0; green = 0; if (StringFind("rgb",StringSubstr(str,0,1)) >= 0) { for (i=0; i= 0) cclr = tmp; else { if (cclr == "b") blue = blue * 10 + StrToInteger(tmp); if (cclr == "g") green = green * 10 + StrToInteger(tmp); if (cclr == "r") red = red * 10 + StrToInteger(tmp); } } return(blue*256*256+green*256+red); } return(StrToNumber(str)); } //+------------------------------------------------------------------+ string ColorToStr(color colr) { //+------------------------------------------------------------------+ // converts a MT4 color value to its string token, e.g. "DimGray","Red","Lime" or "b60g0r100" if (colr == 0xFFF8F0) return("AliceBlue"); if (colr == 0xD7EBFA) return("AntiqueWhite"); if (colr == 0xFFFF00) return("Aqua"); if (colr == 0xD4FF7F) return("Aquamarine"); if (colr == 0xDCF5F5) return("Beige"); if (colr == 0xC4E4FF) return("Bisque"); if (colr == 0x000000) return("Black"); if (colr == 0xCDEBFF) return("BlanchedAlmond"); if (colr == 0xFF0000) return("Blue"); if (colr == 0xE22B8A) return("BlueViolet"); if (colr == 0x2A2AA5) return("Brown"); if (colr == 0x87B8DE) return("BurlyWood"); if (colr == 0xA09E5F) return("CadetBlue"); if (colr == 0x00FF7F) return("Chartreuse"); if (colr == 0x1E69D2) return("Chocolate"); if (colr == 0x507FFF) return("Coral"); if (colr == 0xED9564) return("CornflowerBlue"); if (colr == 0xDCF8FF) return("Cornsilk"); if (colr == 0x3C14DC) return("Crimson"); if (colr == 0x8B0000) return("DarkBlue"); if (colr == 0x0B86B8) return("DarkGoldenrod"); if (colr == 0xA9A9A9) return("DarkGray"); if (colr == 0x006400) return("DarkGreen"); if (colr == 0x6BB7BD) return("DarkKhaki"); if (colr == 0x2F6B55) return("DarkOliveGreen"); if (colr == 0x008CFF) return("DarkOrange"); if (colr == 0xCC3299) return("DarkOrchid"); if (colr == 0x7A96E9) return("DarkSalmon"); if (colr == 0x8BBC8F) return("DarkSeaGreen"); if (colr == 0x8B3D48) return("DarkSlateBlue"); if (colr == 0x4F4F2F) return("DarkSlateGray"); if (colr == 0xD1CE00) return("DarkTurquoise"); if (colr == 0xD30094) return("DarkViolet"); if (colr == 0x9314FF) return("DeepPink"); if (colr == 0xFFBF00) return("DeepSkyBlue"); if (colr == 0x696969) return("DimGray"); if (colr == 0xFF901E) return("DodgerBlue"); if (colr == 0x2222B2) return("FireBrick"); if (colr == 0x228B22) return("ForestGreen"); if (colr == 0xDCDCDC) return("Gainsboro"); if (colr == 0x00D7FF) return("Gold"); if (colr == 0x20A5DA) return("Goldenrod"); if (colr == 0x808080) return("Gray"); if (colr == 0x008000) return("Green"); if (colr == 0x2FFFAD) return("GreenYellow"); if (colr == 0xF0FFF0) return("Honeydew"); if (colr == 0xB469FF) return("HotPink"); if (colr == 0x5C5CCD) return("IndianRed"); if (colr == 0x82004B) return("Indigo"); if (colr == 0xF0FFFF) return("Ivory"); if (colr == 0x8CE6F0) return("Khaki"); if (colr == 0xFAE6E6) return("Lavender"); if (colr == 0xF5F0FF) return("LavenderBlush"); if (colr == 0x00FC7C) return("LawnGreen"); if (colr == 0xCDFAFF) return("LemonChiffon"); if (colr == 0xE6D8AD) return("LightBlue"); if (colr == 0x8080F0) return("LightCoral"); if (colr == 0xFFFFE0) return("LightCyan"); if (colr == 0xD2FAFA) return("LightGoldenrod"); if (colr == 0xD3D3D3) return("LightGray"); if (colr == 0x90EE90) return("LightGreen"); if (colr == 0xC1B6FF) return("LightPink"); if (colr == 0x7AA0FF) return("LightSalmon"); if (colr == 0xAAB220) return("LightSeaGreen"); if (colr == 0xFACE87) return("LightSkyBlue"); if (colr == 0x998877) return("LightSlateGray"); if (colr == 0xDEC4B0) return("LightSteelBlue"); if (colr == 0xE0FFFF) return("LightYellow"); if (colr == 0x00FF00) return("Lime"); if (colr == 0x32CD32) return("LimeGreen"); if (colr == 0xE6F0FA) return("Linen"); if (colr == 0xFF00FF) return("Magenta"); if (colr == 0x000080) return("Maroon"); if (colr == 0xAACD66) return("MediumAquamarine"); if (colr == 0xCD0000) return("MediumBlue"); if (colr == 0xD355BA) return("MediumOrchid"); if (colr == 0xDB7093) return("MediumPurple"); if (colr == 0x71B33C) return("MediumSeaGreen"); if (colr == 0xEE687B) return("MediumSlateBlue"); if (colr == 0x9AFA00) return("MediumSpringGreen"); if (colr == 0xCCD148) return("MediumTurquoise"); if (colr == 0x8515C7) return("MediumVioletRed"); if (colr == 0x701919) return("MidnightBlue"); if (colr == 0xFAFFF5) return("MintCream"); if (colr == 0xE1E4FF) return("MistyRose"); if (colr == 0xB5E4FF) return("Moccasin"); if (colr == 0xADDEFF) return("NavajoWhite"); if (colr == 0x800000) return("Navy"); if (colr == 0xE6F5FD) return("OldLace"); if (colr == 0x008080) return("Olive"); if (colr == 0x238E6B) return("OliveDrab"); if (colr == 0x00A5FF) return("Orange"); if (colr == 0x0045FF) return("OrangeRed"); if (colr == 0xD670DA) return("Orchid"); if (colr == 0xAAE8EE) return("PaleGoldenrod"); if (colr == 0x98FB98) return("PaleGreen"); if (colr == 0xEEEEAF) return("PaleTurquoise"); if (colr == 0x9370DB) return("PaleVioletRed"); if (colr == 0xD5EFFF) return("PapayaWhip"); if (colr == 0xB9DAFF) return("PeachPuff"); if (colr == 0x3F85CD) return("Peru"); if (colr == 0xCBC0FF) return("Pink"); if (colr == 0xDDA0DD) return("Plum"); if (colr == 0xE6E0B0) return("PowderBlue"); if (colr == 0x800080) return("Purple"); if (colr == 0x0000FF) return("Red"); if (colr == 0x8F8FBC) return("RosyBrown"); if (colr == 0xE16941) return("RoyalBlue"); if (colr == 0x13458B) return("SaddleBrown"); if (colr == 0x7280FA) return("Salmon"); if (colr == 0x60A4F4) return("SandyBrown"); if (colr == 0x578B2E) return("SeaGreen"); if (colr == 0xEEF5FF) return("Seashell"); if (colr == 0x2D52A0) return("Sienna"); if (colr == 0xC0C0C0) return("Silver"); if (colr == 0xEBCE87) return("SkyBlue"); if (colr == 0xCD5A6A) return("SlateBlue"); if (colr == 0x908070) return("SlateGray"); if (colr == 0xFAFAFF) return("Snow"); if (colr == 0x7FFF00) return("SpringGreen"); if (colr == 0xB48246) return("SteelBlue"); if (colr == 0x8CB4D2) return("Tan"); if (colr == 0x808000) return("Teal"); if (colr == 0xD8BFD8) return("Thistle"); if (colr == 0x4763FF) return("Tomato"); if (colr == 0xD0E040) return("Turquoise"); if (colr == 0xEE82EE) return("Violet"); if (colr == 0xB3DEF5) return("Wheat"); if (colr == 0xFFFFFF) return("White"); if (colr == 0xF5F5F5) return("WhiteSmoke"); if (colr == 0x00FFFF) return("Yellow"); if (colr == 0x32CD9A) return("YellowGreen"); if (colr == CLR_NONE) return("None"); int blue = MathInt(colr/65536); int green = MathInt((colr-blue*65536)/256); int red = MathMod(colr,256); return("b"+NumberToStr(blue,"T3")+"g"+NumberToStr(green,"T3")+"r"+NumberToStr(red,"T3")); } //+------------------------------------------------------------------+ int StrToChar(string str) { //+------------------------------------------------------------------+ // Returns the (decimal) ASCII value from a 1 byte string // Example: StrToChar("A") returns 65 for (int i=0; i<256; i++) if (CharToStr(i) == StringSubstr(str,0,1)) return(i); return(0); } //+------------------------------------------------------------------+ bool StrToBool(string str) { //+------------------------------------------------------------------+ // Returns boolean value from a string: // If the string starts with t, T, y, Y or 1, true is returned // Otherwise (assuming the string starts with f, F, n, N or 0, false is returned str = StringLower(StringSubstr(str,0,1)); if (str == "t" || str == "y" || str == "1") return(true); return(false); } //+------------------------------------------------------------------+ string BoolToStr(bool bval) { //+------------------------------------------------------------------+ // Converts the boolean value true or false to the string "true" or "false" if (bval) return("true"); return("false"); } //+------------------------------------------------------------------+ int StrToTF(string str="") { //+------------------------------------------------------------------+ // Converts a timeframe string to its MT4-numeric value // Usage: int x=StrToTF("M15") returns x=15 // or: +1,+2,+3, etc return next higher TFs; // -1,-2,-3, etc return next lower TFs; // +0 returns current TF (i.e. Period()) // Note: // StrToTF(NULL) StrToTF(0) StrToTF("0") StrToTF("T") --- all return 0 // StrToTF("") StrToTF(" ") StrToTF() StrToTF(0.0) StrToTF("+0") --- all return Period() str = StringUpper(StringTrim(str)); int num = StrToNumber(str); string tfarr[9] = {"M1","M5","M15","M30","H1","H4","D1","W1","MN"}; if (StringSubstr(str,0,1) == "+" || StringSubstr(str,0,1) == "-") { int per = LookupStringArray(TFToStr(Period()),tfarr); if (per<0) return(-1); if (per+num<0 || per+num>8) return(-1); str = tfarr[per+num]; } if (str == "MN" || str == "MN1" || num >= 43200) return(43200); if (str == "W1" || num >= 10080) return(10080); if (str == "D1" || num >= 1440) return(1440); if (str == "H4" || num >= 240) return(240); if (str == "H1" || num >= 60) return(60); if (str == "M30" || num >= 30) return(30); if (str == "M15" || num >= 15) return(15); if (str == "M5" || num >= 5) return(5); if (str == "M1" || num >= 1) return(1); if (str == "I" || num < 0) return(-1); if (str == "T" || str == "0") return(0); if (str == "" || num == 0) return(Period()); return(-1); } //+------------------------------------------------------------------+ string TFToStr(int tf=0) { //+------------------------------------------------------------------+ // Converts a MT4-numeric timeframe to its descriptor string // Usage: string s=TFToStr(15) returns s="M15" if (tf == 0) tf = Period(); if (tf >= 43200) return("MN"); if (tf >= 10080) return("W1"); if (tf >= 1440) return("D1"); if (tf >= 240) return("H4"); if (tf >= 60) return("H1"); if (tf >= 30) return("M30"); if (tf >= 15) return("M15"); if (tf >= 5) return("M5"); if (tf >= 1) return("M1"); return(""); } //+------------------------------------------------------------------+ string err_msg(int e) //+------------------------------------------------------------------+ // Returns error message text for a given MQL4 error number // Usage: string s=err_msg(146) returns s="Error 0146: Trade context is busy." { switch (e) { case 0: return("Error 0000: No error returned."); case 1: return("Error 0001: No error returned, but the result is unknown."); case 2: return("Error 0002: Common error."); case 3: return("Error 0003: Invalid trade parameters."); case 4: return("Error 0004: Trade server is busy."); case 5: return("Error 0005: Old version of the client terminal."); case 6: return("Error 0006: No connection with trade server."); case 7: return("Error 0007: Not enough rights."); case 8: return("Error 0008: Too frequent requests."); case 9: return("Error 0009: Malfunctional trade operation."); case 64: return("Error 0064: Account disabled."); case 65: return("Error 0065: Invalid account."); case 128: return("Error 0128: Trade timeout."); case 129: return("Error 0129: Invalid price."); case 130: return("Error 0130: Invalid stops."); case 131: return("Error 0131: Invalid trade volume."); case 132: return("Error 0132: Market is closed."); case 133: return("Error 0133: Trade is disabled."); case 134: return("Error 0134: Not enough money."); case 135: return("Error 0135: Price changed."); case 136: return("Error 0136: Off quotes."); case 137: return("Error 0137: Broker is busy."); case 138: return("Error 0138: Requote."); case 139: return("Error 0139: Order is locked."); case 140: return("Error 0140: Long positions only allowed."); case 141: return("Error 0141: Too many requests."); case 145: return("Error 0145: Modification denied because order too close to market."); case 146: return("Error 0146: Trade context is busy."); case 147: return("Error 0147: Expirations are denied by broker."); case 148: return("Error 0148: The amount of open and pending orders has reached the limit set by the broker."); case 149: return("Error 0149: An attempt to open a position opposite to the existing one when hedging is disabled."); case 150: return("Error 0150: An attempt to close a position contravening the FIFO rule."); case 4000: return("Error 4000: No error."); case 4001: return("Error 4001: Wrong function pointer."); case 4002: return("Error 4002: Array index is out of range."); case 4003: return("Error 4003: No memory for function call stack."); case 4004: return("Error 4004: Recursive stack overflow."); case 4005: return("Error 4005: Not enough stack for parameter."); case 4006: return("Error 4006: No memory for parameter string."); case 4007: return("Error 4007: No memory for temp string."); case 4008: return("Error 4008: Not initialized string."); case 4009: return("Error 4009: Not initialized string in array."); case 4010: return("Error 4010: No memory for array string."); case 4011: return("Error 4011: Too long string."); case 4012: return("Error 4012: Remainder from zero divide."); case 4013: return("Error 4013: Zero divide."); case 4014: return("Error 4014: Unknown command."); case 4015: return("Error 4015: Wrong jump (never generated error)."); case 4016: return("Error 4016: Not initialized array."); case 4017: return("Error 4017: DLL calls are not allowed."); case 4018: return("Error 4018: Cannot load library."); case 4019: return("Error 4019: Cannot call function."); case 4020: return("Error 4020: Expert function calls are not allowed."); case 4021: return("Error 4021: Not enough memory for temp string returned from function."); case 4022: return("Error 4022: System is busy (never generated error)."); case 4050: return("Error 4050: Invalid function parameters count."); case 4051: return("Error 4051: Invalid function parameter value."); case 4052: return("Error 4052: String function internal error."); case 4053: return("Error 4053: Some array error."); case 4054: return("Error 4054: Incorrect series array using."); case 4055: return("Error 4055: Custom indicator error."); case 4056: return("Error 4056: Arrays are incompatible."); case 4057: return("Error 4057: Global variables processing error."); case 4058: return("Error 4058: Global variable not found."); case 4059: return("Error 4059: Function is not allowed in testing mode."); case 4060: return("Error 4060: Function is not confirmed."); case 4061: return("Error 4061: Send mail error."); case 4062: return("Error 4062: String parameter expected."); case 4063: return("Error 4063: Integer parameter expected."); case 4064: return("Error 4064: Double parameter expected."); case 4065: return("Error 4065: Array as parameter expected."); case 4066: return("Error 4066: Requested history data in updating state."); case 4067: return("Error 4067: Some error in trading function."); case 4099: return("Error 4099: End of file."); case 4100: return("Error 4100: Some file error."); case 4101: return("Error 4101: Wrong file name."); case 4102: return("Error 4102: Too many opened files."); case 4103: return("Error 4103: Cannot open file."); case 4104: return("Error 4104: Incompatible access to a file."); case 4105: return("Error 4105: No order selected."); case 4106: return("Error 4106: Unknown symbol."); case 4107: return("Error 4107: Invalid price."); case 4108: return("Error 4108: Invalid ticket."); case 4109: return("Error 4109: Trade is not allowed. Enable checkbox 'Allow live trading' in the expert properties."); case 4110: return("Error 4110: Longs are not allowed. Check the expert properties."); case 4111: return("Error 4111: Shorts are not allowed. Check the expert properties."); case 4200: return("Error 4200: Object exists already."); case 4201: return("Error 4201: Unknown object property."); case 4202: return("Error 4202: Object does not exist."); case 4203: return("Error 4203: Unknown object type."); case 4204: return("Error 4204: No object name."); case 4205: return("Error 4205: Object coordinates error."); case 4206: return("Error 4206: No specified subwindow."); case 4207: return("Error 4207: Some error in object function."); // case 9001: return("Error 9001: Cannot close entire order - insufficient volume previously open."); // case 9002: return("Error 9002: Incorrect net position."); // case 9003: return("Error 9003: Orders not completed correctly - details in log file."); default: return("Error " + e + ": ??? Unknown error."); } return(0); } //+------------------------------------------------------------------+ string StringTranslate(string str, string str1, string str2, string delim=",") { //+------------------------------------------------------------------+ // str is the string to be translated // str1 is a list of strings (dictionary) that will be replaced by // the corresponding string in str2 // delim is the delimiter between strings in the str1 and str2 lists // Example: StringTranslate("0123456789", "12;4;89", "X;YZ;000", ";") // will result in "0X3YZ567000", i.e. // every occurrence of "12" is replaced with "X" // every occurrence of "4" is replaced with "YZ" // every occurrence of "89" is replaced with "000" string outstr = ""; string arr1[0], arr2[0]; int i = 1+StringFindCount(str1,delim); ArrayResize(arr1,i); ArrayResize(arr2,i); for (i=0; i 0) return(StringSubstr(str,0,n)); if (n < 0) return(StringSubstr(str,0,StringLen(str)+n)); return(""); } //+------------------------------------------------------------------+ string StringRight(string str, int n=1) //+------------------------------------------------------------------+ // Returns the rightmost N characters of STR, if N is positive // Usage: string x=StringRight("ABCDEFG",2) returns x = "FG" // // Returns all but the leftmost N characters of STR, if N is negative // Usage: string x=StringRight("ABCDEFG",-2) returns x = "CDEFG" { if (n > 0) return(StringSubstr(str,StringLen(str)-n,n)); if (n < 0) return(StringSubstr(str,-n,StringLen(str)-n)); return(""); } //+------------------------------------------------------------------+ string StringLeftPad(string str, int n=1, string str2=" ") //+------------------------------------------------------------------+ // Prepends occurrences of the string STR2 to the string STR to make a string N characters long // Usage: string x=StringLeftPad("ABCDEFG",9," ") returns x = " ABCDEFG" { return(StringRepeat(str2,n-StringLen(str)) + str); } //+------------------------------------------------------------------+ string StringRightPad(string str, int n=1, string str2=" ") //+------------------------------------------------------------------+ // Appends occurrences of the string STR2 to the string STR to make a string N characters long // Usage: string x=StringRightPad("ABCDEFG",9," ") returns x = "ABCDEFG " { return(str + StringRepeat(str2,n-StringLen(str))); } //+------------------------------------------------------------------+ string StringReverse(string str) //+------------------------------------------------------------------+ // Reverses the content of a string, e.g. "ABCDE" becomes "EDCBA" { string outstr = ""; for (int i=StringLen(str)-1; i>=0; i--) outstr = outstr + StringSubstr(str,i,1); return(outstr); } //+------------------------------------------------------------------+ string StringExtract(string str, string str1, string str2) { //+------------------------------------------------------------------+ // Extract all characters from str berween the first occurrence of str1, // and the first occurrence of str2 that occurs after str1 int f1 = StringFind(str,str1); if (f1<0) return(""); int f2 = StringFind(str,str2,f1+1); if (f2<0) f2=StringLen(str)+1; if (f2==f1+1) return(""); return(StringSubstr(str,f1+1,f2-f1-1)); } //+------------------------------------------------------------------+ string StringLeftExtract(string str, string str2, int n=1, int m=0) { //+------------------------------------------------------------------+ // extracts all chars to left of the nth occurrence of string str2 // in string str, plus the next m characters // If n > 0, occurrences are counted forward from the left in str // If n < 0, occurrences are counted backward from the right in str2 // If omitted, n defaults to 1 // If omitted, m defaults to 0 // Example: StringLeftExtract("C:\Program Files\MT4\experts","\\",1) returns "C:" // Example: StringLeftExtract("C:\Program Files\MT4\experts","\\",-1) returns "C:\Program Files\MT4" if (n > 0) { int j = -1; for(int i=1; i<=n; i++) j=StringFind(str,str2,j+1); if (j > 0) return(StringLeft(str,j+m)); } if (n < 0) { int c = 0; j = 0; for (i=StringLen(str)-1; i>=0; i--) { if (StringSubstr(str,i,StringLen(str2)) == str2) { c++; if (c==-n) { j = i; break; } } } if (j > 0) return(StringLeft(str,j+m)); } return(""); } //+------------------------------------------------------------------+ string StringRightExtract(string str, string str2, int n=1, int m=0) { //+------------------------------------------------------------------+ // extracts all chars to right of the nth occurrence of string str2 // in string str, plus a further m characters // If n > 0, occurrences are counted forward from the left in str // If n < 0, occurrences are counted backward from the right in str // If omitted, n defaults to 1 // If omitted, m defaults to 0 // Example: StringRightExtract("C:\Program Files\MT4\experts","\\",1) returns "Program Files\MT4\experts" // Example: StringRightExtract("C:\Program Files\MT4\experts","\\",-1) returns "experts" if (n > 0) { int j = -1; for(int i=1; i<=n; i++) j=StringFind(str,str2,j+1); if (j > 0) return(StringRight(str,StringLen(str)-j-1+m)); } if (n < 0) { int c = 0; j = 0; for (i=StringLen(str)-1; i>=0; i--) { if (StringSubstr(str,i,StringLen(str2)) == str2) { c++; if (c==-n) { j = i; break; } } } if (j > 0) return(StringRight(str,StringLen(str)-j-1+m)); } return(""); } //+------------------------------------------------------------------+ int StringFindCount(string str, string str2) //+------------------------------------------------------------------+ // Returns the number of occurrences of STR2 in STR // Usage: int x = StringFindCount("ABCDEFGHIJKABACABB","AB") returns x = 3 { int c = 0; for (int i=0; i=0; i--) { if (StringFind(char,StringSubstr(str,i,1)) < 0) { pos = i; break; } } string outstr = StringSubstr(str,0,pos+1); return(outstr); } //+------------------------------------------------------------------+ string StringRepeat(string str, int n=1) //+------------------------------------------------------------------+ // Repeats the string STR N times // Usage: string x=StringRepeat("-",10) returns x = "----------" { string outstr = ""; for(int i=0; i=0) outstr = outstr + StringSubstr(upper,t1,1); else outstr = outstr + StringSubstr(str,i,1); } return(outstr); } //+------------------------------------------------------------------+ string StringLower(string str) //+------------------------------------------------------------------+ // Converts any uppercase characters in a string to lowercase // Usage: string x=StringUpper("The Quick Brown Fox") returns x = "the quick brown fox" { string outstr = ""; string lower = "abcdefghijklmnopqrstuvwxyz"; string upper = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; for(int i=0; i=0) outstr = outstr + StringSubstr(lower,t1,1); else outstr = outstr + StringSubstr(str,i,1); } return(outstr); } //+------------------------------------------------------------------+ string StringEncrypt(string str) { //+------------------------------------------------------------------+ // Return encrypted string string outstr = ""; for (int i=StringLen(str)-1; i>=0; i--) { int x=StringGetChar(str,i); outstr = outstr + CharToStr(255-x); } return(outstr); } //+------------------------------------------------------------------+ string StringDecrypt(string str) { //+------------------------------------------------------------------+ // Return decrypted string (inverse function of String Encrypt) string outstr = ""; for (int i=StringLen(str)-1; i>=0; i--) { int x=StringGetChar(str,i); outstr = outstr + CharToStr(255-x); } return(outstr); } //+------------------------------------------------------------------+ string StringReplace(string str, string str1, string str2) { //+------------------------------------------------------------------+ // Usage: replaces every occurrence of str1 with str2 in str // e.g. StringReplace("ABCDE","CD","X") returns "ABXE" string outstr = ""; for (int i=0; i 0) return(str+str1); return(str); } //+------------------------------------------------------------------+ string ExpandCcy(string str) { //+------------------------------------------------------------------+ // Expands a currency (e.g. G to GBP) or a currency pair (e.g. EU to EURUSD) // as shown in the code if (StringLen(str) <= 0) return(Symbol()); string suff = ""; if (StringLen(str) > 6) { suff = StringSubstr(str,6); str = StringSubstr(str,0,6); } str = StringTrim(StringUpper(str)); string str2 = str; if (StringLen(str) >= 1 && StringLen(str) <= 2) { str2 = ""; for (int i=0; i 0) return(1); else if (n < 0) return (-1); else return(0); } //+------------------------------------------------------------------+ datetime StrToDate(string str, string mask, string delim="") { //+------------------------------------------------------------------+ /* Converts a string to a MQL4 datetime value; mask is used to determine the positions where the components (year, month, day, hour, minute, second) are within the string. If delim="", then the position within the mask gives a component's ABSOLUTE position in the string (delimiter characters in the mask are optional): str = "23/06/2000 18:05:00" mask = "DD MM YYYY HH:II:SS" Otherwise delim may contain any number of delimiting characters, e.g. delim = " /:" means that a space, slash or colon may be used to separate variable-width components: str = "23/6/00 18:05:0" mask = "DD/MM/YYYY HH:II:SS" Special tokens in the mask: DD = Day as a 1 or 2 digit value MM = Month as a 1 or 2 digit value MMM = Month as a 3 character ID, e.g. Jan, AUG YY = 2 digit year value (if > 50, assumed to be 19xx; otherwise, assumed to be 20xx) YYYY = Y2K compliant 4 digit year value HH = Hours as a 1 or 2 digit value II = Minutes as a 1 or 2 digit value SS = Seconds as a 1 or 2 digit value AM or A.M. = Hours will be converted to military format PM or P.M. = Hours will be converted to military format */ mask = StringUpper(mask); str = StringUpper(str); if (delim > "") { string tmp = ""; for (int i=0; i= 0) hh = StrToNumber(StringSubstr(str,x,2)); x = StringFind(mask,"II"); if (x >= 0) ii = StrToNumber(StringSubstr(str,x,2)); x = StringFind(mask,"SS"); if (x >= 0) ss = StrToNumber(StringSubstr(str,x,2)); x = StringFind(mask,"DD"); if (x >= 0) dd = StrToNumber(StringSubstr(str,x,2)); x = StringFind(mask,"MM"); if (x >= 0) mm = StrToNumber(StringSubstr(str,x,2)); x = StringFind(mask,"YYYY"); if (x >= 0) { yy = StrToNumber(StringSubstr(str,x,4)); } else { x = StringFind(mask,"YY"); if (x >= 0) yy = StrToNumber(StringSubstr(str,x,2)); } if (yy < 100) { if (yy > 50) yy+=1900; else yy+=2000; } x = StringFind(mask,"MMM"); if (x >= 0 && mm == 0) { x = StringFind(" JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC"," "+StringSubstr(str,x,3)); if (x >= 0) mm = (x+4)/4; } x = StringFind(str,"PM"); if (x >= 0 && hh >= 1 && hh <= 11) hh += 12; x = StringFind(str,"P.M."); if (x >= 0 && hh >= 1 && hh <= 11) hh += 12; x = StringFind(str,"AM"); if (x >= 0 && hh == 12) hh = 0; x = StringFind(str,"A.M."); if (x >= 0 && hh == 12) hh = 0; mt4date = StrToTime(NumberToStr(yy,"4'.'")+NumberToStr(mm,"Z2'.'")+NumberToStr(dd,"Z2' '")+NumberToStr(hh,"Z2':'")+NumberToStr(ii,"Z2':'")+NumberToStr(ss,"Z2")); return(mt4date); } //+------------------------------------------------------------------+ string DateToStr(datetime mt4date, string mask="") { //+------------------------------------------------------------------+ // Special characters in mask are replaced as follows: // Y = 4 digit year // y = 2 digit year // M = 2 digit month // m = 1-2 digit Month // N = full month name, e.g. November // n = 3 char month name, e.g. Nov // D = 2 digit day of Month, e.g. 01, 31 // d = 1-2 digit day of Month, e.g. 1, 31 // T or t = append 'th' to day of month, e.g. 14th, 23rd, etc // W = full weekday name, e.g. Tuesday // w = 3 char weekday name, e.g. Tue // H = 2 digit hour (defaults to 24-hour time unless 'a' or 'A' included) // h = 1-2 digit hour (defaults to 24-hour time unless 'a' or 'A' included) // a = convert to 12-hour time and append lowercase am/pm // A = convert to 12-hour time and append uppercase AM/PM // I or i = minutes in the hour // S or s = seconds in the minute // // All other characters in the mask are output 'as is' // You can output reserved characters 'as is', by preceding them with an exclamation point // e.g. DateToStr(StrToTime("2010.07.30"),"(!D=DT N)") results in output: (D=30th July) // // You can also embed any text inside single quotes at the far left, or far right, of the mask: // e.g. DateToStr(StrToTime("2010.07.30"),"'xxx'w D n Y'yyy'") results in output: xxxFri 30 Jul 2010yyy string ltext = "", rtext = ""; if (StringSubstr(mask,0,1) == "'") { for (int k1=1; k1=0; k2--) { if (StringSubstr(mask,k2,1) == "'") break; rtext = StringSubstr(mask,k2,1) + rtext; } mask = StringSubstr(mask,0,k2); } if (mask == "") mask = "Y.M.D H:I:S"; bool blank = false; if (StringSubstr(StringUpper(mask),0,1) == "B") { blank = true; mask = StringRight(mask,-1); } string mth[12] = {"January","February","March","April","May","June","July","August","September","October","November","December"}; string dow[7] = {"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"}; int dd = TimeDay(mt4date); int mm = TimeMonth(mt4date); int yy = TimeYear(mt4date); int dw = TimeDayOfWeek(mt4date); int hr = TimeHour(mt4date); int min = TimeMinute(mt4date); int sec = TimeSeconds(mt4date); bool h12f = false; if (StringFind(StringUpper(mask),"A",0) >= 0) h12f = true; int h12 = 12; if (hr > 12) h12 = hr - 12; else if (hr > 0) h12 = hr; string ampm = "am"; if (hr >= 12) ampm = "pm"; switch (MathMod(dd,10)) { case 1 : string d10 = "st"; break; case 2 : d10 = "nd"; break; case 3 : d10 = "rd"; break; default : d10 = "th"; break; } if (dd > 10 && dd < 14) d10 = "th"; int days = MathInt(mt4date/86400); int hrs = MathInt(mt4date/3600); int mins = MathInt(mt4date/60); string outdate = ""; for(int i=0; i= "0" && s <= "9") { if (dp >= 0) dp++; if (dp > 0) num = num + StrToInteger(s) / MathPow(10,dp); else num = num * 10 + StrToInteger(s); } } return(num*sgn); } //+------------------------------------------------------------------+ string NumberToStr(double n, string mask="") //+------------------------------------------------------------------+ // Formats a number using a mask, and returns the resulting string // Usage: string result = NumberToStr(number,mask) // // Mask parameters: // n = number of digits to output, to the left of the decimal point // n.d = output n digits to left of decimal point; d digits to the right // -n.d = floating minus sign at left of output // n.d- = minus sign at right of output // +n.d = floating plus/minus sign at left of output // // These characters may appear anywhere in the string: // ( or ) = enclose negative number in parentheses // $ or £ or ¥ or € = include floating currency symbol at left of output // % = include trailing % sign // , = use commas to separate thousands, millions, etc // Z or z = left fill with zeros instead of spaces // * = left fill with asterisks instead of spaces // R or r = round result in rightmost displayed digit // B or b = blank entire field if number is 0 // ~ = show tilde in leftmost position if overflow occurs // ; = switch use of comma and period (European format) // L or l = left align final string // T ot t = trim (remove all spaces from) end result { if (MathAbs(n) == 2147483647) n = 0; string ltext = "", rtext = ""; if (StringSubstr(mask,0,1) == "'") { for (int k1=1; k1=0; k2--) { if (StringSubstr(mask,k2,1) == "'") break; rtext = StringSubstr(mask,k2,1) + rtext; } mask = StringSubstr(mask,0,k2); } if (mask == "") mask = "TR-9.2"; mask = StringUpper(mask); if (mask == "B") return(ltext+rtext); int dotadj = 0; int dot = StringFind(mask,".",0); if (dot < 0) { dot = StringLen(mask); dotadj = 1; } int nleft = 0; int nright = 0; for (int i=0; i= "0" && char <= "9") nleft = 10 * nleft + StrToInteger(char); } if (dotadj == 0) { for (i=dot+1; i<=StringLen(mask); i++) { char = StringSubstr(mask,i,1); if (char >= "0" && char <= "9") nright = 10 * nright + StrToInteger(char); } } nright = MathMin(nright,7); if (dotadj == 1) { for (i=0; i= "0" && char <= "9") { dot = i; break; } } } string csym = ""; if (StringFind(mask,"$",0) >= 0) csym = "$"; if (StringFind(mask,"£",0) >= 0) csym = "£"; if (StringFind(mask,"€",0) >= 0) csym = "€"; if (StringFind(mask,"¥",0) >= 0) csym = "¥"; string leadsign = ""; string trailsign = ""; if (StringFind(mask,"+",0) >= 0 && StringFind(mask,"+",0) < dot) { leadsign = " "; if (n > 0) leadsign = "+"; if (n < 0) leadsign = "-"; } if (StringFind(mask,"-",0) >= 0 && StringFind(mask,"-",0) < dot) if (n < 0) leadsign = "-"; else leadsign = " "; if (StringFind(mask,"-",0) >= 0 && StringFind(mask,"-",0) > dot) if (n < 0) trailsign = "-"; else trailsign = " "; if (StringFind(mask,"(",0) >= 0 || StringFind(mask,")",0) >= 0) { leadsign = " "; trailsign = " "; if (n < 0) { leadsign = "("; trailsign = ")"; } } if (StringFind(mask,"%",0) >= 0) trailsign = "%" + trailsign; if (StringFind(mask,",",0) >= 0) bool comma = true; else comma = false; if (StringFind(mask,"Z",0) >= 0) bool zeros = true; else zeros = false; if (StringFind(mask,"*",0) >= 0) bool aster = true; else aster = false; if (StringFind(mask,"B",0) >= 0) bool blank = true; else blank = false; if (StringFind(mask,"R",0) >= 0) bool round = true; else round = false; if (StringFind(mask,"~",0) >= 0) bool overf = true; else overf = false; if (StringFind(mask,"L",0) >= 0) bool lftsh = true; else lftsh = false; if (StringFind(mask,";",0) >= 0) bool swtch = true; else swtch = false; if (StringFind(mask,"T",0) >= 0) bool trimf = true; else trimf = false; if (round) n = MathFix(n,nright); string outstr = n; int dleft = 0; for (i=0; i= "0" && char <= "9") dleft++; if (char == ".") break; } // Insert fill characters....... string fill = " "; if (zeros) fill = "0"; if (aster) fill = "*"; if (n < 0) outstr = "-" + StringRepeat(fill,nleft-dleft) + StringSubstr(outstr,1,StringLen(outstr)-1); else outstr = StringRepeat(fill,nleft-dleft) + StringSubstr(outstr,0,StringLen(outstr)); outstr = StringSubstr(outstr,StringLen(outstr)-9-nleft,nleft+1+nright-dotadj); // Insert the commas....... if (comma) { bool digflg = false; bool stpflg = false; string out1 = ""; string out2 = ""; for (i=0; i= "0" && char <= "9") digflg = true; } outstr = out1; } // Add currency symbol and signs........ outstr = csym + leadsign + outstr + trailsign; // 'Float' the currency symbol/sign....... out1 = ""; out2 = ""; bool fltflg = true; for (i=0; i= "0" && char <= "9") fltflg = false; if ((char == " " && fltflg) || (blank && n == 0) ) out1 = out1 + " "; else out2 = out2 + char; } outstr = out1 + out2; // Overflow........ if (overf && dleft > nleft) outstr = "~" + StringSubstr(outstr,1,StringLen(outstr)-1); // Left shift....... if (lftsh) { int len = StringLen(outstr); outstr = StringLeftTrim(outstr); outstr = outstr + StringRepeat(" ",len-StringLen(outstr)); } // Switch period and comma....... if (swtch) { out1 = ""; for (i=0; i=0; k2--) { if (StringSubstr(mask,k2,1) == "'") break; rtext = StringSubstr(mask,k2,1) + rtext; } mask = StringSubstr(mask,0,k2); } if (mask == "") mask = "L20"; string outstr = ""; int n = 0; for (int i=0; i= "0" && s <= "9") { n = n * 10 + StrToInteger(s); i++; continue; } else break; } i--; if (n","","","","","","","",""}; int z=0; for (int x=0; x") maska[z] = ""; string s = StringSubstr(mask,x,1); if (s == "_") { if (StringLower(StringSubstr(maska[z],1,1)) == "@") { int yy = StrToNumber(StringSubstr(maska[z],0,1)); maska[z] = StringSubstr(maska[z],2); for (int y=1; y","","","","","","","",""}; int z=0; for (int x=0; x") maska[z] = ""; string s = StringSubstr(mask,x,1); if (s == "_") { if (StringLower(StringSubstr(maska[z],1,1)) == "@") { int yy = StrToNumber(StringSubstr(maska[z],0,1)); maska[z] = StringSubstr(maska[z],2); for (int y=1; y","","","","","","","",""}; int z=0; for (int x=0; x") maska[z] = ""; string s = StringSubstr(mask,x,1); if (s == "_") { if (StringLower(StringSubstr(maska[z],1,1)) == "@") { int yy = StrToNumber(StringSubstr(maska[z],0,1)); maska[z] = StringSubstr(maska[z],2); for (int y=1; y0) { int x = MathMod(n,base); outstr = StringSubstr(cnvstr,x,1) + outstr; n /= base; } x = StringLen(outstr); if (x < pad) outstr = StringRepeat("0",pad-x) + outstr; return(outstr); } //+------------------------------------------------------------------+ int YMDtoDate(int yy, int mm, int dd) { //+------------------------------------------------------------------+ // Converts a year, month and day value to a valid MT4 datetime value string dt = NumberToStr(yy,"4") + "." + NumberToStr(mm,"2") + "." + NumberToStr(dd,"2") + " 00:00:00"; return(StrToTime(dt)); } //+------------------------------------------------------------------+ string ReadWebPage(string url) { //+------------------------------------------------------------------+ // Returns the HTML from the designated URL as one long string if (!IsDllsAllowed()) { Alert("'Allow DLL imports' on the 'Common' tab must be checked ON"); return(""); } int rv = InternetAttemptConnect(0); if (rv != 0) { Alert("Unknown error attempting to connect to Internet"); return(""); } int hInternetSession = InternetOpenA("Microsoft Internet Explorer", 0, "", "", 0); if(hInternetSession <= 0) { Alert("Unknown error while attempting to acquire internet session"); return(""); } int hURL = InternetOpenUrlA(hInternetSession, url, "", 0, INTERNET_FLAG_NO_CACHE_WRITE | INTERNET_FLAG_PRAGMA_NOCACHE | INTERNET_FLAG_RELOAD, 0); if(hURL <= 0) { Alert("Unable to find requested URL"); InternetCloseHandle(hInternetSession); return(""); } int cBuffer[256], dwBytesRead[1]; string TXT = ""; while (!IsStopped()) { for (int i = 0; i<256; i++) cBuffer[i] = 0; bool bResult = InternetReadFile(hURL, cBuffer, 1024, dwBytesRead); if (dwBytesRead[0] == 0) break; string text = ""; for (i = 0; i < 256; i++) { text = text + CharToStr(cBuffer[i] & 0x000000FF); if (StringLen(text) == dwBytesRead[0]) break; text = text + CharToStr(cBuffer[i] >> 8 & 0x000000FF); if (StringLen(text) == dwBytesRead[0]) break; text = text + CharToStr(cBuffer[i] >> 16 & 0x000000FF); if (StringLen(text) == dwBytesRead[0]) break; text = text + CharToStr(cBuffer[i] >> 24 & 0x000000FF); } TXT = TXT + text; Sleep(1); } if (TXT == "") Alert("No news events meet your selected criteria"); InternetCloseHandle(hInternetSession); return(TXT); } //+------------------------------------------------------------------+ void ArrayInitializeString(string &a[], string value="") { //+------------------------------------------------------------------+ for (int i=0; i0) n=size; int j,i,k,m; double mid; for(m=n/2; m>0; m/=2) { for(j=m; j=0; i-=m) { if (desc) { if (a[i+m] <= a[i]) break; else { mid = a[i]; a[i] = a[i+m]; a[i+m] = mid; } } else { if (a[i+m] >= a[i]) break; else { mid = a[i]; a[i] = a[i+m]; a[i+m] = mid; } } } } } return(0); } //+------------------------------------------------------------------+ void ShellsortIntegerArray(int &a[], int size=0, bool desc=false) { //+------------------------------------------------------------------+ // Performs a shell sort (rapid resorting) of integer array 'a' // default is ascending order, unless 'desc' is set to true int n=ArraySize(a); if (size>0) n=size; int j,i,k,m,mid; for(m=n/2; m>0; m/=2) { for(j=m; j=0; i-=m) { if (desc) { if (a[i+m] <= a[i]) break; else { mid = a[i]; a[i] = a[i+m]; a[i+m] = mid; } } else { if (a[i+m] >= a[i]) break; else { mid = a[i]; a[i] = a[i+m]; a[i+m] = mid; } } } } } return(0); } //+------------------------------------------------------------------+ void ShellsortStringArray(string &a[], int size=0, bool desc=false) { //+------------------------------------------------------------------+ // Performs a shell sort (rapid resorting) of string array 'a' // default is ascending order, unless 'desc' is set to true int n=ArraySize(a); if (size>0) n=size; int j,i,k,m; string mid; for(m=n/2; m>0; m/=2) { for(j=m; j=0; i-=m) { if (desc) { if (a[i+m] <= a[i]) break; else { mid = a[i]; a[i] = a[i+m]; a[i+m] = mid; } } else { if (a[i+m] >= a[i]) break; else { mid = a[i]; a[i] = a[i+m]; a[i+m] = mid; } } } } } return(0); } //+------------------------------------------------------------------+ string ShellsortString(string a, bool desc=false) { //+------------------------------------------------------------------+ // Performs a shell sort (rapid resorting) of string 'a' // default is ascending order, unless 'desc' is set to true // e.g. ShellsortString("cedab") returns "abcde" // e.g. ShellsortString("cedab",true) returns "edcba" int n=StringLen(a); int j,i,k,m; string mid; for(m=n/2; m>0; m/=2) { for(j=m; j=0; i-=m) { if (desc) { if (StringSubstr(a,i+m,1) <= StringSubstr(a,i,1)) break; else { mid = StringSubstr(a,i,1); a = StringOverwrite(a,i,StringSubstr(a,i+m,1)); a = StringOverwrite(a,i+m,mid); } } else { if (StringSubstr(a,i+m,1) >= StringSubstr(a,i,1)) break; else { mid = StringSubstr(a,i,1); a = StringOverwrite(a,i,StringSubstr(a,i+m,1)); a = StringOverwrite(a,i+m,mid); } } } } } return(a); } //+------------------------------------------------------------------+ int StrToDoubleArray(string str, double &a[], string delim=",", int init=0) { //+------------------------------------------------------------------+ // Breaks down a single string into double array 'a' (elements delimited by 'delim') // e.g. string is "1,2,3,4,5"; if delim is "," then the result will be // a[0]=1.0 a[1]=2.0 a[2]=3.0 a[3]=4.0 a[4]=5.0 // Unused array elements are initialized by value in 'init' (default is 0) for (int i=0; iz1+1) a[i] = StrToNumber(StringSubstr(str,z1+1,z2-z1-1)); if (z2 >= StringLen(str)-1) break; z1 = z2; } return(StringFindCount(str,delim)); } //+------------------------------------------------------------------+ int StrToIntegerArray(string str, int &a[], string delim=",", int init=0) { //+------------------------------------------------------------------+ // Breaks down a single string into integer array 'a' (elements delimited by 'delim') // e.g. string is "1,2,3,4,5"; if delim is "," then the result will be // a[0]=1 a[1]=2 a[2]=3 a[3]=4 a[4]=5 // Unused array elements are initialized by value in 'init' (default is 0) for (int i=0; iz1+1) a[i] = StrToNumber(StringSubstr(str,z1+1,z2-z1-1)); if (z2 >= StringLen(str)-1) break; z1 = z2; } return(StringFindCount(str,delim)); } //+------------------------------------------------------------------+ int StrToStringArray(string str, string &a[], string delim=",", string init="") { //+------------------------------------------------------------------+ // Breaks down a single string into string array 'a' (elements delimited by 'delim') for (int i=0; iz1+1) a[i] = StringSubstr(str,z1+1,z2-z1-1); if (z2 >= StringLen(str)-1) break; z1 = z2; } return(StringFindCount(str,delim)); } //+------------------------------------------------------------------+ int StrToColorArray(string str, int &a[], string delim=",", int init=0) { //+------------------------------------------------------------------+ // Breaks down a single string into color array 'a' (elements delimited by 'delim') // e.g. string is "Blue,Green,Red,Yellow,White"; if delim is "," then the result will be // a[0]=16711680 a[1]=32768 a[2]=255 a[3]=65535 a[4]=16777215 // Unused array elements are initialized by value in 'init' (default is 0) for (int i=0; iz1+1) a[i] = StrToColor(StringSubstr(str,z1+1,z2-z1-1)); if (z2 >= StringLen(str)-1) break; z1 = z2; } return(StringFindCount(str,delim)); } //+------------------------------------------------------------------+ string DoubleArrayToStr(double a[], string mask="", string delim=",", int fromidx=0, int thruidx=0) { //+------------------------------------------------------------------+ // Concatenates the elements of an double array into a single string, after using 'mask' to format each element if (thruidx == 0) thruidx = ArraySize(a); string str = ""; for (int i=MathMax(0,fromidx); imm) { mm=MathAbs(ai[ii,kk]); ll=ii; } } if (ll==0) return(0); if (ll!=kk) { for (jj=1; jj<=nn; jj++) { tt=ai[kk,jj]; ai[kk,jj]=ai[ll,jj]; ai[ll,jj]=tt; } tt=b[kk]; b[kk]=b[ll]; b[ll]=tt; } for (ii=kk+1; ii<=nn; ii++) { qq=ai[ii,kk]/ai[kk,kk]; for (jj=1;jj<=nn;jj++) { if (jj==kk) ai[ii,jj]=0; else ai[ii,jj]=ai[ii,jj]-qq*ai[kk,jj]; } b[ii]=b[ii]-qq*b[kk]; } } x[nn]=b[nn]/ai[nn,nn]; for (ii=nn-1; ii>=1; ii--) { tt=0; for (jj=1; jj<=nn-ii; jj++) { tt=tt+ai[ii,ii+jj]*x[ii+jj]; x[ii]=(1/ai[ii,ii])*(b[ii]-tt); } } //=========================================================================================================================== for (n=i0; n<=i0+p; n++) { sum=0; for (kk=1; kk<=polynomial_degree; kk++) { sum+=x[kk+1]*MathPow(n,kk); } fx[n]=x[1]+sum; } //-----------------------------------Std----------------------------------------------------------------------------------- sq=0.0; for (n=i0; n<=i0+p; n++) { sq+=MathPow(iClose(symbol,period,n)-fx[n],2); } sq=MathSqrt(sq/(p+1)); for (n=i0; n<=i0+p; n++) { sqh[n]=fx[n]+sq*std_deviations; sql[n]=fx[n]-sq*std_deviations; } pips = (fx[i0]-fx[i0+p])/pnt; slope = pips/p; stdev = sq/pnt; return(0); } // =========================================== DEBUGGING =========================================== //+------------------------------------------------------------------+ string d(string s1="", string s2="", string s3="", string s4="", string s5="", string s6="", string s7="", string s8="", string s9="", string s10="", string s11="", string s12="", string s13="", string s14="", string s15="") { //+------------------------------------------------------------------+ // Outputs up to 15 values to the DEBUG.TXT file (after creating the file, if it doesn't already exist) string out = StringTrimRight(StringConcatenate(s1, " ", s2, " ", s3, " ", s4, " ", s5, " ", s6, " ", s7, " ", s8, " ", s9, " ", s10, " ", s11, " ", s12, " ", s13, " ", s14, " ", s15)); int h = FileOpen("debug.txt",FILE_CSV|FILE_READ|FILE_WRITE,'~'); FileSeek(h,0,SEEK_END); FileWrite(h,out); FileClose(h); return(0); } //+------------------------------------------------------------------+ string dd(string s1="", string s2="", string s3="", string s4="", string s5="", string s6="", string s7="", string s8="", string s9="", string s10="", string s11="", string s12="", string s13="", string s14="", string s15="") { //+------------------------------------------------------------------+ // Deletes and re-creates the DEBUG.TXT file, and adds up to 15 values to it string out = StringTrimRight(StringConcatenate(s1, " ", s2, " ", s3, " ", s4, " ", s5, " ", s6, " ", s7, " ", s8, " ", s9, " ", s10, " ", s11, " ", s12, " ", s13, " ", s14, " ", s15)); int h = FileOpen("debug.txt",FILE_CSV|FILE_WRITE,'~'); FileWrite(h,out); FileClose(h); return(0); }