Вверх ↑
Ответов: 691
Рейтинг: 142
#1: 2020-07-07 12:03:39 ЛС | профиль | цитата
andrestudio, спасибо! Ответил в "личке".


Данная библиотека не плохо работает с файлами XLS напрямую, можно загружать, сохранять и т.д.
Для тех, кто хочет попробовать,
Схема

Add(MainForm,10991964,42,42)
{
Width=861
Height=567
Point(Handle)
link(onCreate,5102647:doEvent1,[])
}
Add(Menu,3505617,49,245)
{
Menu=#13:Сохранить XLS|13:Загрузить XLS|4:Test|
Point(onSelectNum)
link(onSelectNum,10942873:doEvent,[])
}
Add(IndexToChanel,10942873,98,252)
{
Count=4
link(onEvent1,10161142:doString,[])
link(onEvent2,14597536:doString,[(151,265)(151,300)])
}
Add(UseActiveX,15397503,588,266)
{
Top=8
Width=845
Height=520
Align=5
CLSID="TTF161.TTF1.6"
Point(Handle)
}
Add(LineBreakEx,12712413,532,287)
{
Caption="p"
Type=1
link(OnEvent,15397503:doSetProp,[(571,293)(571,286)])
}
Add(LineBreakEx,6623097,504,266)
{
Caption="e"
Type=1
link(OnEvent,15397503:doExecute,[])
}
Add(LineBreakEx,16522725,266,245)
{
Caption="e"
}
Add(Memory,10178505,161,196)
{
Default=String(Смета.xls)
}
Add(FormatStr,10161142,161,252)
{
Mask="WriteEx;%1;11"
link(onFString,8232158:doMT,[])
link(Str1,10178505:Value,[])
}
Add(MT_String,8232158,210,245)
{
link(onResult,16522725:doWork,[])
}
Add(FormatStr,14597536,161,294)
{
Mask="ReadEx;Шаблон.xls"
link(onFString,15709898:doMT,[])
}
Add(MT_String,15709898,210,287)
{
link(onResult,5461950:doWork,[])
}
Add(LineBreakEx,5461950,266,287)
{
Caption="e"
}
Add(Hub,5102647,98,56)
{
OutCount=3
link(onEvent1,4387360:doWork,[(144,62)(144,66)])
link(onEvent2,1512985:doEnum,[(144,69)(144,104)])
link(onEvent3,10727968:doString,[(137,76)(137,132)])
}
Add(StrList,13732325,301,49)
{
Strings=#56:23544122;Carbon disc ?44,7/38,3x5,8mm;10;PC;16,92;169,20|56:23544122;Carbon disc ?44,7/38,3x5,8mm;10;PC;16,92;169,20|54:23544122;Carbon disc ?44,7/38,3x5,8mm;2;PC;16,92;33,84|64:21200159;Top part UNIFL3/4 for steel bot.part;25;PC;30,09;752,25|57:24400111;Hose f. pump compl. UNIWASH;153;PC;10,58;1618,74|58:13225;Piston complete for valve UNIWASH3;4;PC;27,09;108,36|60:12200105;Vacuumgauge glycerine ?100mm 3/8";5;PC;40,57;202,85|54:21200141;Thread bush UNIFLOW3 steel;130;PC;1,93;250,90|45:25100146;O-ring ?16,1x1,6mm;175;PC;0,36;63,00|57:21200127;Holder rocking lever, UNIFLOW3;170;PC;0,26;44,20|50:21200131;Rocking lever UNIFLOW3;150;PC;0,89;133,50|65:25200132;Valve button inside UNIFLOW3 steel FA;225;PC;0,72;162,00|61:21200129;Bar closing device UNIFLOW3 steel;225;PC;1,09;245,25|55:25200124;Valve flap outside UNIFLOW3;225;PC;1,56;351,00|60:14400212;Solenoid valve sgl. invensys 230vac;5;PC;8,50;42,50|62:14400213;Solenoid valve dobb. invensys 230vac;5;PC;14,13;70,65|48:21200131;Rocking lever UNIFLOW3;20;PC;0,89;17,80|63:25200132;Valve button inside UNIFLOW3 steel FA;20;PC;0,72;14,40|43:25100146;O-ring ?16,1x1,6mm;20;PC;0,36;7,20|55:21200127;Holder rocking lever, UNIFLOW3;20;PC;0,26;5,20|58:21200130;Bar closing device UNIFLOW3 steel;20;PC;0,34;6,80|58:25200119;Guard bracket UNIFLOW3 steel SBS;20;PC;3,38;67,60|55:13474;Valve flap exterior UNIFLOW3 SBS;20;PC;1,56;31,20|59:26400104;Terminal wheel for lock guide str;20;PC;1,12;22,40|67:25215022;Rubber liner UNIFL. 15022-?22 UNIFLEX FA;96;PC;2,39;229,44|55:14800695;Hose guide f. SAC115 complete;10;PC;9,17;91,70|36:14306;Filter for IDC;20;PC;0,40;8,00|51:25515435;Rubber hose ?27/16 mm - FA;15;M;5,24;78,60|63:13930;Double-action Quickstart II rem. L=740mm;1;PC;98,66;98,66|54:13100201;Spray gun for udder washer;20;PC;17,77;355,40|0:|
}
Add(ArrayEnum,1512985,315,98)
{
link(onItem,9903169:doEnum,[])
link(Array,13732325:Array,[])
}
Add(WinExec,5579035,238,56)
{
FileName="regsvr32.exe"
Param="TTF16.ocx"
}
Add(Check,4387360,164,60)
{
Check=1
link(onEvent,5579035:doExec,[(221,66)(221,62)])
}
Add(FormatStr,10727968,154,126)
{
Mask="SetColWidthAuto;-1;1;-1;6;False"
link(onFString,7297172:doMT,[])
}
Add(MT_String,7297172,203,119)
{
link(onResult,6613276:doWork,[])
}
Add(Str_Enum,9903169,364,98)
{
link(onEnum,313789:doOperation,[])
}
Add(MT_AddData,9295751,462,98)
{
Count=4
link(onAdd,13205398:doWork,[])
link(Data1,2736491:Value,[])
link(Data2,313789:Result,[(475,89)(454,89)(454,138)(412,138)])
link(Data3,9903169:NumSubStr,[(482,82)(514,82)(514,156)(370,156)])
link(Data4,9903169:Part,[(489,89)(503,89)(503,145)(377,145)])
}
Add(Memory,2736491,462,42)
{
Default=String(TextRC)
}
Add(Math,313789,406,98)
{
Op2=1
link(onResult,9295751:doAdd,[])
link(Op1,1512985:Index,[(412,89)(356,89)(356,138)(328,138)])
}
Add(LineBreakEx,13205398,532,98)
{
Caption="p"
}
Add(LineBreakEx,6613276,259,119)
{
Caption="e"
}


Файлы
https://yadi.sk/d/GYTJhq46odLlhg
карма: 15

0
Редактировалось 4 раз(а), последний 2020-07-07 12:08:40