c**y
发帖数: 419 | | u****s
发帖数: 372 | 2 象是要逼瑞士政府出来放血干预。这帮邪恶的投机分子。 | m********0
发帖数: 2717 | 3 送你一个EA,（copyright "Andrew Whaley"）
专门从MT下载intraday data的。
别搞这么恶心的标题了。
//+---------------------------+
//| Historic Data Dumping EA |
//+---------------------------+
#property copyright "Andrew Whaley"
extern int min_year = 2010;
extern int max_year = 2012;
// Global scope
int handle;
int init()
{
int p = Period();
string pd;
if (p == 1) pd = "M1";
else if (p == 5) pd = "M5";
else if (p == 15) pd = "M15";
else if (p == 30) pd = "M30";
else if (p == 60) pd = "H1";
else if (p == 240) pd = "H4";
else pd = "D1";
string filename = StringConcatenate(Symbol(), "_", pd, ".csv");
handle = FileOpen(filename, FILE_CSV|FILE_WRITE, ',');
FileWrite(handle, "Time", "Volume", "Low", "Open", "Close", "High", "Bid"
, "Ask");
return(0);
}
int deinit()
{
FileClose(handle);
return(0);
}
int start()
{
string d,m,y,h,mi;
double open,close,high,low;
double vol;
if ((Year() >= min_year) && (Year() <= max_year))
{
if (Day() < 10) d = StringConcatenate("0", DoubleToStr(Day(),0));
else d = DoubleToStr(Day(),0);
if (Month() < 10) m = StringConcatenate("0", DoubleToStr(Month(),0));
else m = DoubleToStr(Month(),0);
y = DoubleToStr(Year(),0);
if (TimeHour(TimeCurrent()) < 10) h = StringConcatenate("0",
DoubleToStr(TimeHour(TimeCurrent()),0));
else h = DoubleToStr(TimeHour(TimeCurrent()),0);
if (TimeMinute(TimeCurrent()) < 10) mi = StringConcatenate("0",
DoubleToStr(TimeMinute(TimeCurrent()),0));
else mi = DoubleToStr(TimeMinute(TimeCurrent()),0);
string ds = StringConcatenate(y, "-", m, "-", d, " ", h, ":", mi);
open = iOpen(NULL, 0, 1);
close = iClose(NULL, 0, 1);
high = iHigh(NULL, 0, 1);
low = iLow(NULL, 0, 1);
vol = iVolume(NULL, 0, 1);
FileWrite(handle, ds, vol, low, open, close, high, Bid, Ask);
}
return(0);
}
【在 c**y 的大作中提到】
: CHF比黄金波动更小, 趋势更明显
|
|
