完整程序 VARIABLE:写文件时间=0,写文件时间1=0; 文件名:=STRCAT(CHAR(盘号+96) ,':\HLTODAY.INI'); //到价提醒 开多条件:=CROSS(c,提醒价格);//开多平空条件 开空条件:=CROSS(提醒价格,c);//开空平多条件 开多1条件:=CROSS(c,提醒价格1);//开多平空条件 开空1条件:=CROSS(提醒价格1,c);//开空平多条件
if 开多条件 or 开空条件 then BEGIN if NOT(写文件时间1=INTPART( TIMETOT0(TIME)/600)) then BEGIN PLAYSOUND(零为声音报警=0 ,'c:\到价提醒.mp3' ); WRITEINIFILESTRING(文件名 ,'123456789','NEW',NUMTOSTR(提醒价格,小数位数 ) ); WRITEINIFILESTRING(文件名 ,'123456789','PER',NUMTOSTR((提醒价格/DYNAINFO( 3)-1)*100 ,小数位数 ) ); WRITEINIFILESTRING(文件名 ,'123456789','tim',NUMTOSTR(TIME,0 ) ); 写文件时间1:=INTPART( TIMETOT0(TIME)/600); end end if 开多1条件 or 开空1条件 then BEGIN if NOT(写文件时间1=INTPART( TIMETOT0(TIME)/600)) then BEGIN PLAYSOUND(零为声音报警=0 ,'c:\到价提醒.mp3' ); WRITEINIFILESTRING(文件名 ,'123456789','NEW',NUMTOSTR(提醒价格1,小数位数 ) ); WRITEINIFILESTRING(文件名 ,'123456789','PER',NUMTOSTR((提醒价格1/DYNAINFO( 3)-1)*100 ,小数位数 ) ); WRITEINIFILESTRING(文件名 ,'123456789','tim',NUMTOSTR(TIME,0 ) ); 写文件时间1:=INTPART( TIMETOT0(TIME)/600); end end
写入文件结果: 创建时间 ?2018?年?7?月?4?日,??11:38:36 [123456789] NEW=1251.00 PER=-0.13 tim=164000
|