' в реальном времени сравнивает ценыдвух инструментов и выводит значения в файл PORTFOLIO_EX scaner; DESCRIPTION scaner; CLIENTS_LIST ALL_CLIENTS; FIRMS_LIST ALL_FIRMS; INCLUDE func_gr.txt; PROGRAM NEW_GLOBAL ("MegaMap", 0) NEW_GLOBAL ("Fiststart", 1) if Fiststart=1 Fiststart=0 MegaMap=CREATE_MAP () Values=CREATE_MAP () end if file_log = "C:\program1\scaner\log.txt" 'Файл для хранения логов. file_units = "C:\program1\scaner\units.txt" 'файл со списком классов бумаг и их кодов CurrentHour = GET_VALUE(GET_DATETIME(), "HOUR") CurrentMin = GET_VALUE(GET_DATETIME(), "MIN") CurrentSec = GET_VALUE(GET_DATETIME(), "SEC") CurrentTime = str2num(fTextTime(CurrentHour,CurrentMin,CurrentSec) & "") IF (CurrentTime > 103500 AND CurrentTime units_len=GET_FILE_LEN(file_units) units_len=units_len/2 ni=0 DELETE_ALL_ITEMS() for ii from 1 to units_len error=0 ClassCodeList = "" & READ_LINE (file_units, ii*2-1, error) Instrument = "" & READ_LINE (file_units, ii*2, error) CurrentHour = GET_VALUE(GET_DATETIME(), "HOUR") CurrentMin = GET_VALUE(GET_DATETIME(), "MIN") CurrentSec = GET_VALUE(GET_DATETIME(), "SEC") if ii=1 price1 = get_param(ClassCodeList,Instrument,"last") else price2 = get_param(ClassCodeList,Instrument,"last") end if end for WRITELN(File_Log, CurrentTime & ";" & price1 & ";" & price2 &";" & (price2-price1)) END IF END_PROGRAM PARAMETER time; PARAMETER_TITLE время; PARAMETER_DESCRIPTION время; PARAMETER_TYPE string(10); END PARAMETER class; PARAMETER_TITLE класс; PARAMETER_DESCRIPTION класс; PARAMETER_TYPE string(10); END PARAMETER unit; PARAMETER_TITLE бумага; PARAMETER_DESCRIPTION бумага; PARAMETER_TYPE string(10); END PARAMETER price; PARAMETER_TITLE price; PARAMETER_DESCRIPTION price; PARAMETER_TYPE NUMERIC(10,2); END PARAMETER bid; PARAMETER_TITLE bid; PARAMETER_DESCRIPTION bid; PARAMETER_TYPE NUMERIC(10,2); END PARAMETER offer; PARAMETER_TITLE offer; PARAMETER_DESCRIPTION offer; PARAMETER_TYPE NUMERIC(10,2); END PARAMETER speed; PARAMETER_TITLE speed; PARAMETER_DESCRIPTION speed; PARAMETER_TYPE NUMERIC(10,2); END PARAMETER accel; PARAMETER_TITLE accel; PARAMETER_DESCRIPTION offer; PARAMETER_TYPE NUMERIC(10,2); END