设为首页 收藏本站 切换语言

断线时间写入磁盘文件  

| 发表于 2021-2-20 08:00:34 | 显示全部楼层 |复制链接
  1. #property strict
  2. bool first = true;
  3. bool Now_IsConnected = false;
  4. bool Pre_IsConnected = true;
  5. datetime Connect_Start = 0, Connect_Stop = 0;
  6. int init()
  7.     {
  8.      start();
  9.      return(0);
  10.     }
  11. int start()
  12.     {
  13.      int handle = FileOpen("_IsConnected.txt", FILE_WRITE | FILE_READ, " ");
  14.      FileSeek(handle, 0, SEEK_END);
  15.      FileWrite(handle, "- - - - - - - - - - - Expert initialized  - - - - - - - - - -");
  16.      while(!IsStopped())
  17.          {
  18.           Pre_IsConnected = Now_IsConnected;
  19.           Now_IsConnected = IsConnected();
  20.           if(first)
  21.               {
  22.                Pre_IsConnected = !Now_IsConnected;
  23.               }
  24.           if(Now_IsConnected != Pre_IsConnected)
  25.               {
  26.                if(Now_IsConnected)
  27.                    {
  28.                     Connect_Start = LocalTime();
  29.                     if(!first)
  30.                         {
  31.                          FileSeek(handle, -55, SEEK_CUR);
  32.                          FileWrite(handle, "- - - OffLine- - -       " + TimeToStr(Connect_Stop, TIME_DATE) + "       " + TimeToStr(Connect_Stop, TIME_SECONDS) + " - " + TimeToStr(Connect_Start, TIME_SECONDS));
  33.                         }
  34.                     if(IsStopped())
  35.                         {
  36.                          break;
  37.                         }
  38.                     FileWrite(handle, "+ + + OnLine + + +       " + TimeToStr(Connect_Start, TIME_DATE) + "       " + TimeToStr(Connect_Start, TIME_SECONDS) + " - ");
  39.                    }
  40.                else
  41.                    {
  42.                     Connect_Stop = LocalTime();
  43.                     if(!first)
  44.                         {
  45.                          FileSeek(handle, -55, SEEK_CUR);
  46.                          FileWrite(handle, "+ + + OnLine + + +       " + TimeToStr(Connect_Start, TIME_DATE) + "       " + TimeToStr(Connect_Start, TIME_SECONDS) + " - " + TimeToStr(Connect_Stop, TIME_SECONDS));
  47.                         }
  48.                     if(IsStopped())
  49.                         {
  50.                          break;
  51.                         }
  52.                     FileWrite(handle, "- - - OffLine- - -       " + TimeToStr(Connect_Stop, TIME_DATE) + "       " + TimeToStr(Connect_Stop, TIME_SECONDS) + " - ");
  53.                    }
  54.               }
  55.           first = false;
  56.           FileFlush(handle);
  57.           Sleep(1000);
  58.          }
  59.      if(Now_IsConnected)
  60.          {
  61.           FileSeek(handle, -55, SEEK_CUR);
  62.           FileWrite(handle, "+ + + OnLine + + +       " + TimeToStr(Connect_Start, TIME_DATE) + "       " + TimeToStr(Connect_Start, TIME_SECONDS) + " - " + TimeToStr(LocalTime(), TIME_SECONDS));
  63.          }
  64.      else
  65.          {
  66.           FileSeek(handle, -55, SEEK_CUR);
  67.           FileWrite(handle, "- - - OffLine- - -       " + TimeToStr(Connect_Stop, TIME_DATE) + "       " + TimeToStr(Connect_Stop, TIME_SECONDS) + " - " + TimeToStr(LocalTime(), TIME_SECONDS));
  68.          }
  69.      FileWrite(handle, "- - - - - - - - - - - Expert was stoped - - - - - - - - - - -\n");
  70.      FileClose(handle);
  71.      return(0);
  72.     }
复制代码
举报

评论 使用道具

精彩评论17

wangddtt
CC
| 发表于 2021-2-20 09:10:19 | 显示全部楼层
非常好,正在找这个代码
举报

点赞 评论 使用道具

thekof32
CC
| 发表于 2021-2-20 11:25:49 | 显示全部楼层
感谢分享
举报

点赞 评论 使用道具

latage
未及格
| 发表于 2021-2-20 11:30:06 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

liuzizai
DDD
| 发表于 2021-2-21 08:46:34 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

addat
DD
| 发表于 2021-5-5 16:47:50 | 显示全部楼层
Thanks for sharing.
举报

点赞 评论 使用道具

luo518
C
| 发表于 2021-5-25 11:31:41 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

巴比伦雄鹰
D
| 发表于 2021-5-26 10:52:34 | 显示全部楼层
感謝分享
举报

点赞 评论 使用道具

jongjongyoshen
D
| 发表于 2021-5-28 08:31:19 | 显示全部楼层
感谢分享
举报

点赞 评论 使用道具

鸿运当归
DD
 楼主 | 发表于 2021-10-15 12:13:54 | 显示全部楼层
是ea,自己写的
举报

点赞 评论 使用道具

交易者
DDD
| 发表于 2022-1-10 13:55:45 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

nanaliu
CC
| 发表于 2022-4-27 00:20:24 | 显示全部楼层
看看。。感谢分享。。。。
举报

点赞 评论 使用道具

紫竹青荷
CC
| 发表于 2022-4-27 09:22:09 | 显示全部楼层
感谢分享
举报

点赞 评论 使用道具

翠翠6666
DD
| 发表于 2022-5-8 15:03:40 来自手机 | 显示全部楼层
不错不错
举报

点赞 评论 使用道具

刘先生io
未及格
| 发表于 2022-5-8 16:02:40 | 显示全部楼层
感谢分享
举报

点赞 评论 使用道具

零度°
DDD
| 发表于 2022-5-8 21:02:34 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

qwe11
CCC
| 发表于 2022-5-8 21:09:24 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

davidwu
DDD
| 发表于 2022-5-8 21:29:34 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

发新帖
EA交易
您需要登录后才可以评论 登录 | 立即注册

简体中文
繁體中文
English(英语)
日本語(日语)
Deutsch(德语)
Русский язык(俄语)
بالعربية(阿拉伯语)
Türkçe(土耳其语)
Português(葡萄牙语)
ภาษาไทย(泰国语)
한어(朝鲜语/韩语)
Français(法语)