AnCh
AnCh личный блог
13 июня 2013, 21:37

WealthLabDataConverter

Представляю вашему вниманию программу конвертирующую файлы формата Wealth-Lab (WL файлы старше 4-й версии) в формат csv или txt.
Нужно указать программе директорию в которой лежат файлы, она просканирует все поддиректории, найдет файлы и сконвертирует их. Настройки программы позволяют указать формат даты и времени, количество знаков после запятой для чисел и разделители для полей.

О найденных ошибках просьба сообщать, буду исправлять.

Исходники тут:
https://github.com/AnCh7/WealthLabDataConverter

Сама прога тут:
https://sourceforge.net/projects/wldconverter/
1 Комментарий
  • Bearminator
    18 января 2023, 14:40

    Вдруг кому-то нужно будет 

    var Bar,FTri: integer;
    var Str: string;


    FTri:= FileOpen( 'C:\Quik\RTS.txt' );


    for Bar := 0 to BarCount — 1 do
    begin

    Str :=
    IntToStr(getdate(Bar))+','+
    FormatFloat('0000',gettime(Bar))+'00,'+
    FormatFloat('#0',PriceOpen( Bar ))+','+
    FormatFloat('#0',PriceHigh( Bar ))+','+
    FormatFloat('#0',PriceLow( Bar ))+','+
    FormatFloat('#0',PriceClose( Bar ))+','+
    FormatFloat('#0',Volume( Bar )) ;

    FileWrite( FTri, Str);

    end;

    FileClose(FTri);

     

Активные форумы
Что сейчас обсуждают

Старый дизайн
Старый
дизайн