MetaStockToDataset(S : String) : Dataset
Преобразовать формат данных Metastock в датасет

Функция MetaStockToDataset предназначена для загрузки курсов валют с сайта www.rbc.ru.

Все колонки датасета имеют тип String.

Пример:

Procedure OnCreate;
Var
  From, To : DateTime;
  Name : String;
  D : Dataset;
Begin
  // Параметры
  From := EncodeDate(2011, 1, 1);
  To   := EncodeDate(2011, 1, 31);
  Name := 'USD';
  
  // Запрос к сайту
  D := MetaStockToDataset(LoadFile('http://export.rbc.ru/free/cb.0/free.fcgi' +
             '?d1='+ToStr(DayOf(From)) + '&m1='+ToStr(MonthOf(From)) + '&y1='+ToStr(YearOf(From)) +
             '&d2='+ToStr(DayOf(To  )) + '&m2='+ToStr(MonthOf(To  )) + '&y2='+ToStr(YearOf(To  )) +
             '&period=DAILY&tickers=' + Name + '&separator=TAB&data_format=MetaStock&header=1'));

  // Вывод
  Warning(ToStr(D));

  // USD;D;20110201;;;;29.8018;
  // USD;D;20110202;;;;29.6548;
  // USD;D;20110203;;;;29.4219;
  // USD;D;20110204;;;;29.3489;
  // USD;D;20110205;;;;29.4136;
  // USD;D;20110208;;;;29.3689;
  // USD;D;20110209;;;;29.255;
  // USD;D;20110210;;;;29.301;
End;

© RTIT