spCalc_intscr

Адрес этой странички : http://spcalc.narod.ru/spcalc_intscr.htm
spCalc.exe
Простой программируемый калькулятор.

Интерпретатор скриптов.

Встроенный интерпретатор позволяет разрабатывать и выполнять скрипты (синтаксис pascal), реализующие достаточно сложные алгоритмы расчетов (включая обмен информацией с Excel, 1С:Предприятие 7.7, таблицами баз данных).

Так выглядит вкладка "Выполнить", где реализован режим "Интерпретатор".

Ниже показано назначение элементов управления "Интерпретатора".

Для " обслуживания" режима "Интерпретатор" предназначено меню "Скрипт".

Здесь,
    "Новый" - подготовить интерпретатор для создания нового скрипта
    "Открыть" - загрузить скрипт из файла
    "Сохранить, как" - сохранить скрипт в файл
    "Контроль ошибок" - проверка синтаксиса скрипта (поиск ошибок).
    "Выполнить" - запустить скрипт на выполнение.

Здесь следует отметить, что если при запуске программы в командной строке есть параметр, он воспринимается, как имя файла-скрипта и автоматически загружается в интерпретатор.

Как было указано в начале , интерпретатор скриптов основан на использовании
библиотеки FastScript версии 1.4 (сopyright (c) 1998-2004 by Fast Reports Inc.).
Подробное описание библиотеки скриптов (Руководство разработчика)
можно скачать здесь (50 кб).

Подробное описание констант, процедур и функций интерпретатора скриптов (spCalc.exe) см. здесь.

Интерпретатор поддерживает модульность в том смысле, что переменные, константы, функции и процедуры могут располагаться в разных файлах. Файлы могут подгружаться в процессе выполнения скриптов.
Следует отметить, что сначала подключаемые модули загружаются и "выстраивается" единый скрипт, который компилируется и выполняется. Отсюда следует, что имена глобальных констант и переменных, а также процедур и функций во всех подгружаемых модулях не должны повторяться.

При разработке скриптов часто возникает необходимость разработки диалоговых форм.
Для этих целей можно использовать возможности среды Delphi-5 (дизайнер форм).
Подробно этом см. здесь.

Пакет BDE-5 можно взять здесь.

Как именно использовать spCalc.exe для разработки и выполнения скриптов см. здесь .

Примеры скриптов.

Работа с Excel :

//Пример работы с Excel Var fnExcel, Sx : string; sSep : string; List : TStrings; Excel : Variant; ListExcel : Variant; NRow, cw,iw,i : integer; BEGIN UnAssignedVariant(Excel); UnAssignedVariant(ListExcel); List:=TStringList.Create; TRY Excel:=ConnectToExcel(1,1); //Запускаем Excel, как OLE Automation server if YesLinkToOLE(Excel) then begin ListExcel:=Excel_GetList(Excel,1); //Получаем ссылку на 1-й лист Excel if YesLinkToOLE(ListExcel) then begin NRow:=1; Excel_PutValue_to_Cell(ListExcel,NRow,1,1,0,'Дата: '+DateTimeToStr(NOW)); NRow:=NRow+1; NRow:=NRow+1; Excel_PutValue_to_Cell(ListExcel,NRow,1,1,0,'Пример работы с Excel'); NRow:=NRow+1; //------------------------------------ //Формируем данные (ест-нно, что они могут быть прочитаны из файла) List.Clear; List.Add('1|11.1|12.01.2005'); List.Add('2|5.55|01.12.2003'); List.Add('3|3.333|01.01.2007'); List.Add('4|2.5|31.01.2007'); List.Add('5|0.979|01.02.2007'); List.Add('6|0.9781|---'); List.Add('7|100|'); //------------------------------------ NRow:=NRow+1; //------------------------------------ //Читаем данные из списка и записываем в Excel sSep:='|'; for i:=0 to (List.Count-1) do begin cw:=Get_CountWordInString(sSep,List[i]); if cw>0 then begin NRow:=NRow+1; for iw:=1 to cw do begin Sx:=Get_WordFromString(sSep,List[i],iw); Excel_PutValue_to_Cell(ListExcel,NRow,iw,0,1,Sx); end; end; Application_ProcessMessages; end; //------------------------------------ //------------------------------------ //Сохраним Excel-таблицу в файл fnExcel:='*.xls'; fnExcel:=SelectFile_Save('', fnExcel, '', 'Куда сохранить Excel-файл'); if length(fnExcel)>0 then begin ListExcel.SaveAs(fnExcel); if MessageDlg('Закрыть Excel ?', mtConfirmation,mbOkCancel) = mrOk then begin Excel.Quit; end; end; //------------------------------------ end; end; FINALLY List_Clear(List); //Освободить ресурсы, занимаемые объектом List UnAssignedVariant(Excel); UnAssignedVariant(ListExcel); END; END.

Работа с 1С:Предприятие 7.7 :

//Пример работы с 1С версии 7.7 //Метаданные //Считывание списков справочников, документов, регистров, констант Var handle1C : variant; List : TStrings; BEGIN //"Обнуляем" переменные UnAssignedVariant(handle1C); //Соединение с 1С handle1C := ConnectTo_1Cv7('','',''); if YesLinkToOLE(handle1C) then begin //Проверка, что ссылка на 1C не пуста List := TStringList.Create; TRY //---------------------------------------------- //Читаем константы конфигурации if Get_Count_Consts_1Cv7(handle1C)>0 then begin Get_Consts_to_List_1Cv7(handle1C,List); List_View('Список констант конфигурации',List); //Визуализируем end else begin ShowMessage('Констант нет в этой конфигурации'); end; //---------------------------------------------- //---------------------------------------------- //Читаем справочники конфигурации if Get_Count_SbCnts_1Cv7(handle1C)>0 then begin Get_SbCnts_to_List_1Cv7(handle1C,List); List_View('Список справочников конфигурации',List); //Визуализируем end else begin ShowMessage('Справочников нет в этой конфигурации'); end; //---------------------------------------------- //---------------------------------------------- //Читаем документы конфигурации if Get_Count_Docs_1Cv7(handle1C)>0 then begin Get_Docs_to_List_1Cv7(handle1C,List); List_View('Список документов конфигурации',List); //Визуализируем end else begin ShowMessage('Документов нет в этой конфигурации'); end; //---------------------------------------------- //---------------------------------------------- //Читаем регистры конфигурации if Get_Count_Regs_1Cv7(handle1C)>0 then begin Get_Regs_to_List_1Cv7(handle1C,0, List); List_View('Список регистров конфигурации',List); //Визуализируем end else begin ShowMessage('Регистров нет в этой конфигурации'); end; //---------------------------------------------- FINALLY List_Clear(List); //очищаем ресурсы END; end else begin ShowMessage('Не удачный запуск 1С'); end; //разрываем соединение с 1С и выгружаем 1С из памяти DisconnectFrom_1Cv7(handle1C); END.

Еще примеры скриптов ...