Add(MainForm,8523800,385,287)
{
 Left=20
 Top=105
 Width=611
 Height=283
}
Add(StringTableMT,4591889,616,287)
{
 Left=340
 Top=50
 Width=240
 Height=185
 Columns=#1:1|1:2|1:3|
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
}
Add(FormatStr,4253483,532,287)
{
 DataCount=3
 Mask="%1#%2;%3"
 link(onFString,4591889:doAdd,[])
 link(Str1,15730349:Index,[(538,254)(510,254)])
 link(Str2,9871569:CurrentColor,[])
 link(Str3,1275146:Text,[(552,254)(587,254)])
}
Add(Edit,1275146,581,189)
{
 Left=15
 Top=20
 Width=160
 Height=25
 Text="a;b;c"
}
Add(Button,8175405,462,287)
{
 Left=15
 Top=55
 Width=175
 Caption="

Add(MainForm,8523800,385,287)
{
 Left=20
 Top=105
 Width=611
 Height=283
}
Add(StringTableMT,4591889,616,287)
{
 Left=260
 Top=10
 Width=240
 Height=185
 Columns=#1:1|1:2|1:3|
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
}
Add(Button,8175405,462,287)
{
 Left=155
 Top=205
 Width=175
 Caption="Добавить в таблицу"
 Flat=0
 link(onClick,11317201:doEnum,[])
}
Add(ListBox,4348613,532,196)
{
 Left=10
 Top=10
 Width=235
 Height=185
 Strings=#13:1#65523;a;b;c|13:2#65525;a;b;c|13:3#65527;a;b;c|13:4#65529;a;b;c|13:5#65531;a;b;c|13:6#65533;a;b;c|13:7#65535;a;b;c|13:8#32750;a;b;c|13:9#32752;a;b;c|14:10#32754;a;b;c|14:11#32756;a;b;c|14:12#32758;a;b;c|14:13#32760;a;b;c|14:14#32763;a;b;c|14:15#32767;a;b;c|
}
Add(ArrayEnum,11317201,546,287)
{
 link(onItem,4591889:doAdd,[])
 link(Array,4348613:Array,[])
}

#sha
Add(MainForm,16078593,35,77)
{
 Left=20
 Top=105
 Width=868
 Height=643
 Caption="xls"
}
Add(ODialog,16073511,91,126)
{
 Filter="*.xls|*.xls|All|*.*"
 link(onExecute,11221787:doEvent1,[])
}
Add(VBJScript,7134762,238,182)
{
 @Hint=#16:Query SQL Server|
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|7:onExcel|7:onError|
 Script=#15:Option Explicit|0:|7:Dim FSO|0:|27:Function doWork(Data,Index)|10: Dim strIn|19: strIn = CStr(Data)|53: Set FSO = CreateObject("Scripting.FileSystemObject")|8: Dim Ext|28: Ext = GetAnExtension(strIn)|28: If LCase(Ext) <> "xls" Then|19:  Sys.onEvent strIn|5: Else|8:  Dim XL|44:  Set XL = CreateObject("Excel.Application")|25:  XL.WorkBooks.Open strIn|12:  Dim strOut|13:  strOut = ""|10:  Dim rows|10:  rows = 1|10:  Dim colm|10:  colm = 1|47:  Do While Not IsEmpty(XL.Cells(rows, 1).Value)|51:   Do While Not IsEmpty(XL.Cells(rows, colm).Value)|54:    strOut = strOut & XL.Cells(rows, colm).Value & ";"|19:    colm = colm + 1|7:   Loop|27:   strOut = strOut & vbCrLf|11:   colm = 1|18:   rows = rows + 1|6:  Loop|9:  XL.Quit|18:  Set XL = Nothing|20:  Sys.onExcel strOut|7: End If|12:End Function|0:|33:Function GetAnExtension(FileSpec)|23:   On Error Resume Next|50:   GetAnExtension = FSO.GetExtensionName(FileSpec)|100:   If CStr(Err.Number) <> 0 Then call LogMsg(EventError, "Can't get extension of file: " & FileSpec)|12:End Function|0:|27:Sub LogMsg(intType, strMsg)|37:   Sys.onError strMsg & ";" & intType|7:End Sub|
 link(onExcel,2115300:doText,[(310,195)(310,55)])
}
Add(StrList,2115300,336,28)
{
 Point(doSort)
}
Add(Hub,11221787,140,126)
{
 OutCount=5
 link(onEvent1,2115300:doClear,[(189,132)(189,41)])
 link(onEvent3,7134762:doWork,[(191,146)(191,188)])
 link(onEvent4,2115300:doSort,[(254,153)(254,76)])
}
Add(Button,1385885,28,126)
{
 Left=20
 Top=5
 Caption="Open"
 link(onClick,16073511:doExecute,[])
}
Add(StringTableMT,4591889,588,371)
{
 Left=25
 Top=40
 Width=805
 Height=295
 Columns=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:11|
 Grid=0
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doTextColor)
 link(Str,4253483:FString,[(594,359)(531,359)(531,436)(468,436)])
}
Add(FormatStr,4253483,462,392)
{
 Mask="%1;%2"
 Point(FString)
 link(onFString,4591889:doAdd,[(541,398)(541,377)])
 link(Str1,8582034:Result,[(468,380)(426,380)(426,436)(384,436)])
 link(Str2,4051247:Item,[])
}
Add(MathParse,8582034,378,392)
{
 MathStr="%1 + %2+1"
 link(onResult,4253483:doString,[])
 link(X2,8428275:Selected,[])
}
Add(RadioButton,8428275,385,273)
{
 Left=85
 Top=5
 Width=80
 Caption="