フルパスとファイル名を指定して引用符をtxtファイルに書き込む関数 - MetaTrader 4のためのライブラリ

関数の詳細:

#import "ITTPSymbol.dll"  
    int CreateFile(string Path, string symbol, int Priсe);

関数呼び出しの例:

 CreateFile(Path, Symbol(), Ask);

ご覧の通り簡単です。この関数はシンボルの名前を持つテキストファイルを生成し、ファイルに'Price'値を書き込みます。Patchでフルパスを指定します。Delphiで開発されたライブラリです。お好みに合わせて変更することができます。

ソースコード:

library ITTPSymbol;
 
 uses classes, Dialogs,sysutils;



{$r *.res}
function CreateFile(Path: Pchar ;  Symbol: Pchar;  Priсe: integer ): integer; stdcall;
 
var outfile: TextFile;
 
begin
AssignFile(outfile, string(Path)+'\' + string(Symbol) + '.txt');
 
 try
   Rewrite(outfile);
   writeln(outfile, Priсe);
   CloseFile(outfile);
   Result:=0;
 except
   Result:=1;
 end;
   Result:=0;
 
end;
 
exports CreateFile;
 
end.

CreateFile()関数を正確に実行すれば0を返し、不正確に実行すれば-1を返します。

С:\ドライブに現在のシンボルの名前を持つファイルを書き込むスクリプトの例は以下の通りです。ただし、Integer型で'Price'値を書きます。:

//+------------------------------------------------------------------+
//|                                                   ITTPSymbol.mq4 |
//|                                        Copyright © 2007 ITTP Gr. |
//|                                            http://www.ITTPortal.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007 ITTP Gr."
#property link      "http://www.ITTPortal.net"
//---- 
#import "ITTPSymbol.dll"  
    int CreateFile(string Path, string symbol, int Priсe);
string Path;
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
      Path = "C:"; // Последний слеш "\" не указывается! 
   CreateFile(Path, Symbol(), 53); 
//----
   return(0);
  }
//+-------

これで以上です。お楽しみください。

2007年4月16日更新:  最新バージョンではdllに関するバグを幾つか修正した；

• PatchをPathに変えた;
• 要らないコードの部分を削除した

旧バージョンが削除されたので、心配せずにダウンロードしてください。