slinger
2
All posts from slinger
  slinger in slinger,

Запись в файл на QPILE

 

PORTFOLIO_EX запись в файл;
DESCRIPTION записываем в файл;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;

PROGRAM


client_code="SPBFUT" 'имя клиента писать именно так. 
firm_id="SPBFUTXXXXX" 'идентификтор фирмы. это счет наверно. 

NEW_GLOBAL("log_string_num","0")' переменная для добавления новой строчки в таблицу логов


file_stroka="то, что пишем в файл"' строка для записи в файл
file_stroka_2="вторая строка"
probel=""' пустая строка. используем ее как символ перевода на новую строку
clear_file("string_test_file.txt")' очищаем файл

z=write("string_test_file.txt",file_stroka)' в z поступает мап массив значений результатов работы функции записи в файл
write("string_test_file.txt",file_stroka)
writeln("string_test_file.txt",probel)
write("string_test_file.txt",file_stroka_2)

x=get_value(z,"result")' выдираем из мап массива поле result и кладем его в переменную x
if x="1"
log("запись в файл удалась")
end if


FUNC log(log_string)' функция добавления строчки в таблицу логов

log_string_num=log_string_num+1' каждую новую запись пишем в таблиуц в новую строчку
time_value=get_value(GET_DATETIME(), "Datetime")' получаем время
st=CREATE_MAP() 'создаем мап массив
st=SET_VALUE(st,"x", log_string)' записываем в этот массив первую пару значений x=слова
st=SET_VALUE(st,"time", time_value)' записываем вторую пару time=time_value
ADD_ITEM(log_string_num,st)' пишем весь массив в таблицу

END FUNC


END_PROGRAM

PARAMETER x;
PARAMETER_TITLE x;
PARAMETER_DESCRIPTION x;
PARAMETER_TYPE STRING(20);
END

PARAMETER time;
PARAMETER_TITLE time;
PARAMETER_DESCRIPTION time;
PARAMETER_TYPE STRING(20);
END

END_PORTFOLIO_EX