Вверх ↑
Этот топик читают: Гость
Ответов: 199
Рейтинг: 44
#1: 2023-02-15 14:50:51 ЛС | профиль | цитата
При импорте таблицы Excel, важные для меня символы α β ϒ Δ заменяются знаком ?. Как с этим бороться? Может можно что-то в драйвере подключения к базе поправить или например, выводить Hex значения символов. В общем нужна помощь.




Add(MainForm,3171043,224,140)
{
Left=20
Top=105
Height=285
Caption="OLEXLS"
Position=1
link(onCreate,11947023:doStrCat,[])
}
Add(OLEdb,2142462,455,259)
{
link(onConnect,14252000:doCreate,[])
link(Driver,9469155:Var1,[])
}
Add(Button,941652,399,259)
{
Left=310
Top=10
Width=75
Caption="Подключить"
link(onClick,2142462:doOpen,[])
}
Add(OLEdb_Query,11136757,567,259)
{
link(onQuery,16321824:doStr,[(615,265)(615,230)])
link(onColumns,5673081:doEnum,[])
link(Text,9469155:Var2,[(580,243)(468,243)])
}
Add(OLEdb_Session,14252000,511,259)
{
link(onCreate,11136757:doQuery,[])
}
Add(StringTable,6078793,693,231)
{
Left=10
Top=40
Width=375
Height=210
Point(doAddColumn)
}
Add(MT_Enum,5673081,630,266)
{
link(onItem,6078793:doAddColumn,[])
}
Add(MT_String,16321824,630,224)
{
link(onResult,6078793:doAdd,[(678,230)(678,237)])
}
Add(Edit,11108326,399,196)
{
Left=10
Top=10
Width=295
Text=""
link(onChange,9469155:doWork1,[])
}
Add(Dir,5145339,273,105)
{
}
Add(StrCat,11947023,273,154)
{
Str2="test.xls"
link(onStrCat,2808741:doEvent1,[])
link(Str1,5145339:CurrentDir,[])
}
Add(MultiElement,9469155,455,196)
{
}
BEGIN_SDK
Add(EditMulti,3827619,21,21)
{
WorkCount=1
VarCount=2
Width=272
link(doWork1,7246550:doEvent1,[(56,27)(56,55)])
link(Var1,6365623:FString,[(27,175)(195,175)])
link(Var2,10216816:FString,[(34,195)(153,195)])
}
Add(StrPart,14854628,77,119)
{
Char="."
link(onPart,10216816:doString,[])
}
Add(FormatStr,10216816,147,126)
{
Mask="SELECT * FROM `%1`.`Лист1$` `Лист1$`"
Point(FString)
}
Add(FormatStr,6365623,189,98)
{
Mask="Driver={Microsoft Excel Driver (*.xls)};\r\nDriverID=22;\r\nDBQ=%1;\r\nDefaultDir=%2;\r\n\r\n"
Point(FString)
link(Str2,1388409:Value,[])
}
Add(Hub,7246550,91,49)
{
OutCount=3
link(onEvent1,6971676:doPart,[])
link(onEvent2,6365623:doString,[(128,62)(128,104)])
link(onEvent3,14854628:doSplit,[(117,69)(117,97)(65,97)(65,125)])
}
Add(FilePart,6971676,140,49)
{
link(onPath,1388409:doValue,[])
}
Add(Memory,1388409,196,49)
{
}
END_SDK
Add(MemoryStream,8116148,350,84)
{
Stream=[ZIP0070000078DAED5D07581349FB9F4D02846A28468A40A4284A911A10E9C88908829E67C1B3A086A21405AC88A0E229C2210A56383D0F11F51415C4AE800D3911B1222AF6868AED54C053F3CD6C124896CD1AEEBBEFFB3FFFE7CBF06C7B77E6F77B67DE77666726B34BDD45CD7B5BF6E9DF0784E001E8E02B5F19288AC930B87145172C00EFF3F9E8547474821B5F1EFE5F05652634A4A202080DBEA0540D68409109C07D78DCCBA8847B001EC0ED4730033000F8218117CFF96F051F5C87300CE950011DCF1D9E61201F4A35811EAE9916BED7C6F77BF078C7F0BD3BBCD39AE2AE913AA3AAAF8BD06FC7D0BCF0783FE37B137CAF0110E2413CCD4D5C62078CC06D7864826CE4EAB41AA084F98230100DA2C064100FF7FFAD1836E00DD48D098E21B5B01AD00D1B09E53180071200070C83C739F03802C4415918881562B6A7A0C0E4A774155398E2DFCAABF23763787C2306063C01B51E1870A48C618561B0F5A28AC1F8660CC4F2ED18CC6FC650A688D10F4462A89D1595873A21060704C27D04880489EDA5E7F60D5F6AB791CC760740E71B16A1811EDFB4AAE33763A87C3386E63F584F8C180E4001EA8D99022B600AFF6C61E3C6810DC2718E091808CFAD01D91D23863B7C10F694966C1C64E081A9603C058027500286E2003670A36227DE37620C811935A18690A64967B099D0CFB8009B08A3F5836232A5D13D8156D431441826F068427AD70BDF1B31A683BEC0411AE94498888AB2E37E6742C97B22BA4530BD07191DB138A4D192C793A4F7847F54794E02965042A90455CEC962912B405606F7602D46E1039F23D68FABE020B9B248FE5E2EFF27E4829E865839D308F1F70BE58CCD52E47BA4C8D3A5C8374A91E74991EF9422DFD5457DD64A91FFDE457C69F1F7FD1FE9731897AB74929F90222F93223F28455E2A45BE4F8A5CA08FAA489EABA9B94E759DAAA81CD4C4E4E5C6E5C6A27250EF145F543E5602792BD19FFB91CA3544385741083C3516C9BB49CAD92239AB430E77A9BA9DE484FAA2D9113F0CF6FFDAF1B5DAF50F0F17E44B509EDA527074A4D8BDBB94768FDD29FE6E5CDEE35BF53D5F5393ADCA56EDA877CAA4E5A6DB91AF49F0545F24D7938A6F29C52E7D49E5FA52EAB5A6A8FD614AB63F06F074381DA672D1D4F4E2787158B40AC9F81692720551FCB942B99057898803E50B983A6001537CDE6010F8E106AD4732D31A243389730A34E89B3A802E9C49103DB0342023AD7302ACAB09685D4D40EF6A024657132874358162571328753501B3AB0994BB9A40A5AB0954BB9A40ADAB09D4BB9A40A3AB09BA7D2B813721010B7740A90918F80D5E3872395137B03388A66C200A94205AB28128528268CB06A24409A2231B089312A4BB6C20CA94206C59406A02A9ADD34336106AEBE8CA06426D1D3DD940A8ADA32F1B08B5750C6403A1B64E4F5940EC1DA8AD63281B08B5758C6403A1B68EB16C20D4D6E1C806426D9D5EB281505BC74402049083081EA6D2414C6503A1B68E996C20D4D631970D84DA3ABD6503A1B64E1FD94024ADB38A006281EB8A40507FC9D37336BF1308BAC1AFD9C017812809652929297CD1F402534C269A7E5016937909272154C46422153A2BD597A09427B952EFDEBDEBA4148A4C540AC9884A211951299C48AA52FD2494FA940C6457EA9F2B29623FC3B2AB1D13ABAE764CAC25BC8C4E4CC094A9FADAC802C2F7A406E92F0B08B19927E6DF5622FFF4CEF9FF8190C00ECF9CD4025322C9BF789988CCDED99FECDBFD496AF545F62F2C2CFC0F3A39B1781C288B07EB6C14C776A320F0FCD1526A05FF453EBFC32816041027BC64C9CAB83321579210284A21ACAAE54BF702E7F66CB65731492F201ACB45C258983463F1F9359D8C555252D2C9584846341692118D8564D28D35A0AB75D955A2EC3A356122EDF8A91845D90D94283B3E00FC6F34396E5D6DA3DCBB9A2F0F897C8130294E78F635954F787E8B95E8B55E145E4B04F7A606CFA119C311A03AC0ECA16AE6D02D74381C60CB70657CC77062B8337C1876603533086E62F3210C23BE3A901E1F95080687C64A0C5E78C3FD777C05748E1303BEB98853938AD39E84D38482D3BE83538117FEF9D175724E2D2A4E0712CEDE149C0E1D9C8ABCF0E6E666724E6D2A4E4712CE7E149C8E1D9C4ABC70FEBB1A724E1D2A4E27124E1B0A4EA70E4E262FBCF1450B3967772A4E2E09A73D0527B783539917FEE0F54D724E36E274EC82DF1A434E4719FCB62670FFD9A7E49C3DA838C9FCD6948253DC6F6B025BCFEF26E7D4A5E224F3DB3E149CE27E5B1378EBD62D724E3D2A4E32BFB5A4E014F7DB9A40FE930DE49CFA549C647EDB9F8253DC6F6B028FD7BF22E734A0E224F35B070A4E71BFAD093C7B6F3F39674FC4C9ED82DF7220275706BFB577C8DA21C59E86549C647E6B46C129EEB7F60EEFF7A691731A517192F9AD0505A7B8DFDA3B54575793731A537192F9AD1505A7B8DFDA3BF01BC2C93939549C647E6B4BC129EEB7F60E79279F9073F6A2E224F35B470A4E71BFB577D8519745C6A90D4C60CF1263117CD59BC063C857022C29FE09C0A0F8D3026CE102CD766C5322B63D09762F02B6B81F02D09C6C478E6D46C47620C13627608BFB9B602C448A6D4EC47624C1EE4BC016F72B885701C8B17B13B19D48B0AD09D8E2FE03C0B8BC6BE4D87D88D85C126C3B02B6B89F003063F76032EC6EC0020DD8B418F60C0F86238303316749E2D27460BA8EFB687C833015F882D91E05E1399A12C2311581062E40A3250C4616BF624A5C294B5C215DFA0A74192A64EBAC4B775C17D17D715DD07C4A872E9E92BA2041872E822BA6C495B2C4550E4D0FF483A32B5C97C10C17863763205EAA2E70BF9A9942D08ACD57016431A5E9874654FF66593180652A83BF9AD95B521505061F8ECE70059C185CB81FCA1880A617F01456A94A30850D2185125FAD530A0E18071B9FF14090D2008E355501D68361CB7080E53E106EA8FC5D6134D4A60C9504A4B3F8AA803C2EF247DC07E1E066D0C869823240B9EE686C109B8D34367B12364D296CF6546C7CCFDF0EDD17B2F597C6E640C2A62585CD818A4DF0A0A7E16CB6D2D8504BE44E60D396C2E6888F123BB1E5D0D461213300A60B6BBF074CD5597F3D3E0388EEA289A74E4F0E45316B083C5274A508F5EF0B8B550B60FA303D6A61BC70BD02E1B92D2318EA150C6B8013741F5778BD9AB992504B7AF0B5802C29C56B0D694B2E5EAB15256AB5A244AD5694A8D548FFEED0504C8019421667589AB6ED35DA99504EDD603522C6222B730CD9D411D9D410D71FE5CC56983354915633874822633DA14DC9E38A5A6BBC657D91DFDE5AA0C932A17D619C5400EBB0130114C0A6DF886187374122301A20E916F4004EB05030C9B8828AE52881898A5B19748E872625C47173689AB0A3A2083063DC43FDE08672ED4950D00016BF780C89BC56D576E4152876A8EA8C543586F18361ABEA2ED6FE0E2078961354B5733C5111889A4D21AE1E70412DBB312C7D17861B8C3758CC0F6209C82AB065278B897E426AD79F5FC317B9249A88EB68C805574C892B65892B64D201A90AD0A4FD08CDB28290D9A3FD792EDE989B0357C002582FE89EC1D049915AE495F007428674F92CF0AD54A2A64CE25125CA139AF44355094D55EA00CC04A67285C5EE03313CA1BA4EF0B1ECCB109C71E1B9C018C15093608226AA7C1D206B6A7153F2815875704BA593941D1D969D194CE88E67D11B6F39C51F84EEA98A30953D2195225F833495E4C3501B78A0F6C91CDE46C6F1870990C3133A63983EAC919271C45D1ECD308AF283A621F1FC6431C7802C31906C7CA586261809634C06D18007BE0789601E7E16842FD78E02B3400CAC9421F06C368883773B62882FF6E78249F8EB2A4B61E33DCA075F618419E07D15D4E3DFC8D4859BE40A2AD1B180C9829BE472AC4CF8DC50827F9518136E00383DA781CFE008FE2B2453D0E7346158C356912138B1871AA800651ADE8944DD005BB8B9C0DACD01B9745491D0DB626AC40803A0D61CB08FCEC17FA2164452258F5442EF882285E8321D3D5594A17E42ED9C3AB473802EA502EF18380A96084D61B2E126B9A843B0506C2DD34E7DADD81DF54C1A08194A67E800453CE7BD40D39D6EE5C8A63D6982B52DE37CE3621379B1891347CE9BC14B186F3337267AD7AAF3C34ED9B2FC5AFC3F2F796C1D905FE2C5346F5A5C9555F5DB828A731BCCD8D5374A8A7EF8AB25F0F2489FED1C76B4558343CBA6810FE38F1B2B959D5A9F5F14B0E79D8FA5D90B83C1E30BEF3A0737EC1E95BE485FD72DACB0DBFAF7474E1CB3705E963A247DE388C2A4273322024BDCB3B2E38DB3B75EFEE4423BEF34BB77EA97548D0BB386DFD67D91BECAE561B56FFD63FA81BD8663DC5F3D6E5B6FF6207BFF114FEEB05D01BECC25A515ABAFBEDCDEF65D35DBC7E68FC37D3ED86CB54CDF7261ECC9916D7A7B9F4DE0395D72DA7E87F34E3553EBD45EB5F4891723387AD64FCA076E4A7F79EBFAD8E8638D5925590BB8136A8655F275267DF07CA67DA526655C0A0DB594744279155E2F7A5A817EADC104EBB926C6F3A213FADBA07DDACA8BD34ED9AA2D7BBDF4F8924BC9C32F9FD2359FDDBF30DBB77F4132B86F9112696270CBE0C5ADE02A4595A3CCB4ADAF5B76B87F2DCE68BB9FFB94C3DEB853F1D4035FCFF391F767BB97A72CAE5EBAB5C89C396EEE8C9F0A926E954D3C1672A9C0ED829D41A1FF01DB355ADD9637041F1B51EC33F55235EB7280DF2DC7C9662945AB664EAC375EBF49EF1E37F0CA07F6887AE749C52BB757F34B4FD9D66C0AAE4CD963F5D88F11EB9C1B18F568F296EDFD1F7E7F3C7B3B6FE755A3BAB2436DD7BF6064199D3E6F2D7B093C5B215C879218C98BE1F517DB0785C58645F0E29187A8D504A99CE2B0BCEE276F9993DDE03CE5A885DFE492F3C5473F02DF7C7DEFAA5F2F6FBE55FFF8E112E7DABB3AD7F286AA8FB5CA57525FC1BB60B3FCE09B05564506DB6FFAF73C63157DBFAAFB93A6B9BAD5FB7FD6BE3BE45CC2F064D36BD94B77973572AE97595EEBF5DAAA71C261B369EE1983473FBBD2D2F781DF0BCBDE2A341772E5B55E2C72DD01BB606D1C416DE8A4BC1D52FBE5D8F11906CE3D4EF47FEFA996F0BA75FA59E3A1F90F2E46E7349A9D1E16D0BFECC0CBE1A31CEC4DE7396F6304CCFF70E758FFFEFB0B9D971E703E6E51A81A14D5D7FA8BEAADBB2CFF67552B9FAD0A77336D882F399AB67A6DE3D246BDB6018357D60E707D3AE6C8A7EBA7B25D07BB3C49F3B33EB8A0F091AB8B7EA9727AB875CB9DC890C8431A3D2C3672FE30B91DBF6EFDD1B8F1497FFEFC7B241C8F9DD63837788152D96DAFE56DC3F69DABB2CD6CEDCEADD25CC0E5CD5CCE3876B6F481D97755BF3A6F3D13B063A4E54FCB07156B6F615DDDB470E6A7C6A6E0A23EB5CD4DB999FB92620ACB83C356FBCF1860BBED6DC8B42ACB2D17539217CC8FFFF46753CE959C8977973DDD7C9FCFCF7DF968AF9579EBEA39512F7BF6BA191FF65C79A0D1FD652767593CA079441E36FFF090BD67BCF56FBF8C5CBEC2BA64E36DAF2F5BE377543CDAFBDB93CC08A586AD9B9E2695CDDE3611DB7EE3F487175F42CBD7367D0F1C8D4EFDA16DB3AD767EE18BC231EAB96EA1892DCF8F4F6BA898FEE97783FC5B273E3BBD51C97DD6C27DB3C4BBC7AEC87BDD2D2AFF32985B7EE5E5FBC02F2AB9F7A61BB4CEDFD1F8E7F39F162AA858A46B38D799978F6A2E1E95E7BD2DF355E8FDA0BB06572D77BCEBA97029DB2F2F7FF21F2633AFDF50BD446777F3F2521961E6FF68F9E39EC1977469C7332C062C4F2F1D1C8E311EF4F4CB3C3563C708FDDC9D6F467F9DFF7CC83CDDE6495B870CDD549119A73664A18671D5549BD057EA75CFA76547787E7EF3FE6D4ED1CAF2944F954AC1C62939B5BB47EAC51FB5D8D8149FB2A08DEFE9997CB7EDCBAD8B5F5BDF144C7D3ECBADFEEDC5F2AF17FF344E99B76AFE9899B12B228C37BBA5C4BF7B99C3FFFAF1DA327673B3AEE1B3379ACA767362EF4F796AA31AB688FDB595E3B1F9B485D7E96C2FECD981EDAF322AC09D509369A766ED8D3AF997DD544383379F1E2CAA9CA57B5AD5DBCAE1AE9A0FFDD045DDE6BD37A6A5E6C5DB5C3859E0E7581A6CD43FF1F6F8B4ACE88439C3A7BA1C2A5FEFFBC99CBBA6113E015E87E8283B9ED264677DCE349C1C3DB6F1689AEEECC63E0FD7CFE476AF3D7ABA8933D9A97A794FDD45B9AACDAB599F4BF66B32461B1C68287F9DA85BB6FBC8B2958166D1AA83AC1F0D5EAF1F7E2C8B4D5BCA5D63AA33A2F15E923F83BBFA14CFEDFACC649B8A2B0E811BAE6C9E541B637F70CA983D4FDEE76587BD8CBD5B74BE6ED0D9C53D6F26BEEA753671EA4AC3D9749DDA981BBDD269867F713DD3587EB586BDA3DF2487BF62B5692CF4BA346ACEDD3E3766B49CD7AE74F72F762D74F37AD427E3C683F32FD6EBBD1DF8E3E5BE270F585DC9F2353D7A60CAE49FB36A2787A77D343AAB6358A07CB6F6F8416B35D7E8D81B6E7D924D53779564C42C9A45DFB0AFDF5DD39A7D059FF22FE81C1E7C48B3C4D76DCAB8D697FDEBB52E6AF9F55A7130EA84C284FA983BCBFA4504151E6C6A0D51BA6352D7CBE7D8989FE3F39668581F3A38EDB836A76076F59CD895F5BCE8D6D756496A1F1FD3979CD5FB687EEE5EC279AFC9F5BC0991799ABF9D65CCABC86439EA1E485435F9E9AF04CDB1A3D7DC38D9CFD9C939E69562646EE6C23E669786E66D2E3B50C54FBA69747E6D9293FACAF1FB5695D4363C8F1EDAF7E874F55AEE6DCFBDBB9BB6F8252AF99A37D48C5D37FE026FF4C3AF2F8E6E8C496A2B59D7707DE68F1FED6DDEEBAE3B1E38BFE4DDB4F91B8E252FAAFD6ED36CB3228FE76A166E7F6AD6E586B8EA0C5DD172C855E1C11BF508FB54EF1D837FC97EF072F90CA38A02AB24DB2D8BF2CEF857BBD869BF6669AAD11D9715FC5662B9A666EECEF9677F19F070C6E2AD3FED3E62BEC9E6643277C8309FF3BC79CF378C0CCD1AE431E15DE94C97322DE523A32E06B7D87F58D11CF8CB1FC54CFF863FB3EB7A3B0C19696DF6FC77EF28B3598A6ADF9566875826995B6D64B3D5772C7CBC539DED65FDA7CA028539F73292CE7F706761BD5CF297CC4E36F9927B68FEE3F18F6B463735C59C753401A1AF7E603CDA141B503C6E5D9FD1EBD26EEAB9C564D79DBC60B6C5AA40DFC3A8A2C74347D7C7CFC646E6D7D75FB85DA8E81EA5E2649C366A58C19DB99A19199FF41F5D4FA0FFFC3ED0DBF4E9A1C7D7777AA4D5E85E18F74A6758F67DBB7CDF9733DAACD52EE9DDBE9AE9971FDD9A3175EDBC1ABF6E6F397687025C877099E915FB7C87DC887FFCCEC1B9CEFF31EBCCEE1F17A5BDB9B97ABA4FE8BCC6738BAE04F579D8A4B372E9ABD93183425DE72D55DBFC48E54551C0E70793FA56B3EFBD0AB31D305BE399C9890CCEE9CFF3C7EACFF071F9D12C577BFA30E6ED5C5EBAD5CAF2B293B9DBC67FD9197026C43EEB999B5794DFA59C79B4D13BDC0A0AEED81B44C6356DACFC75E390CB3E736D73144639EF1C1E54BA73D58C1BA1B326DA985917995F3816AE3FD66F545012DB217CCC9A454EE326EC3A377DD7A8DE3FE56F1BDD6A366B4FD1ED27FDEA777F501EBB062C89F8583AB2D14187F173A8C706EF20FB3B81A7EC238A0AC29BC758BF31BF5A3BC26CFFAE89E3768C2F1D37CA74D795CA7B4BFB799EDB3DD85A2D6874F2B692FD4778F571950D95747F23F767F37B8C9CF138E0D0952C4DC741BED772CCA2E807CEF9AE8A559F1BCFB68B3AFC7ACDE703F5BB5B1B7D76DC6F519D70CDB2BBFEC2A3A1917F2D2CBBDD72BE7042D13BA64A06F364C9E6DB6FBADD0B5862732569A1D38999F5C6C5B131C59963C74C7DAE52BE7DF9EF47BFC69F39F422B8B8F59755C7AAE718D2863C3D1ECAABDBC51D58E6537AD348E7D884A2E191B3A7FFE2B3E7FAEE16C5E3C57723358C0ED7AEA225354FABFFFD83C1D2D0C3B7ACE796ADDE7A3792FD7C42E1E58FCF9BBFBB3BDD33E096EE9879AB3D468C4B9DD77DCFF414D287BBFAA5ECCD07D0125B4CB05450FCE12EE88E11FB27C2EE5990CA495B9DB496C573987171578EB056F56E5C5EB7FB2A3DED91933AD7D36CF8CB66F5622BA6CDB2B0131BA28EAEFBA55A7B8AFD1DBBC89DFA4CD7A635333756C61C7A99E535823D2CBD61E0D4BD931667C53937778F5835D422A8B7D9080B1BBBF5F11A7D0272F2EB568C6C4B2D76295839EA9149C136EF7347EBFC5B6625FFFA360F5B70C6ECF86456D235A0B7366423BFF48B8B7E7A447F63F6F8AFC3BD131A962A58FC76B6E69E69DECE40C61FE38E1C397D1788B28EC191ABF4FEBA6420E9BD1301881D58B11564984477969890D821145B754DA3EE1E129188BDB38E709D26ADAF46C4203A4147285591D92542862A280A5E5F5100E32150315E207970089947185E66425926615889DEFF107C558225F15509559A8EC48B318B070390EB8F5ECEA0E1E3691A1C0877C3CF35F1D53B2C98A5CF3BDE5E0E9A1CE2391197F7C3E596F87E312E49051DE4E668560D58618BE09D4A868EF055802578EC347CDF1BC60EC7C313CF3E62E716ED28CF3CFB8A9D07C1012800FE70588EDEB90F030970381E0F02E03E114A42E0791C08C7DF354F8083F438108BBF9D8EEED8E13FFA71F1C126C6A083DBC091DE6D33C0DFFCDFA8EAC844674A600C0D132C60FADBE1FB418382F0F5CB8AFF7E7AFF104E6058022F3E8097C809898F0BE7252444C5C586457342ECB8B6DCA9A4E9698417B694FF814D8485367D060B105FB309059DA73850484D4D45734A00FF168DD8091FF03BE98D56414FFD9B657E872ED83A88C9F5210BF32763618E626919A950C9CABA8AAA33D7A1C3DD7BF1B9F915F847C37F123B3E2A2C1AFCEF852DC004FAE954686BF44783B51800073C5CF1141D3190CFEC0D37E9286E0EA2B31F20061324C31610E1C5687613D42A9A467B4B29A8674C1A4B786E85BB592AE689CB042F4A6EC5651542198D444627913108B2E3F8DB6082E58BBDBDD09EEB85812F689E1D9EE3338EC22B0CF8E2BAA12B1A7E4FB1FD0A0382AFEDA02B3A7E0F6BBF42F7E8C22B067E4FA9FD0ADD43B27AA0019EC363087C0CF6C4FF3C685AE080A26811A648C30CF894C99028631F6008DB08BABA70D5A53AFCA3D323983D400453BCD1C2D04F50F4418267D5FF76F8CA07420B4A0664B17B4B37BF6B0B8E64FDBE8A092CFB9436A0B5F4BF0ADF75C184B640F6F2174E188F11BE4D18297C473355F8EA65A6F005C1F5424F7EC810BC3985D2A08F4A89DEA4225E237F0F8A9A121F9710179EC8F19B3B85172DB0FF8F318BFA793760E83CD529A2A7353CA70379900779900779900779900779900779900779900779F83BE37FDAB50BD7F26D0C5839EBE0F8DFAAAD188DFF8F01C12C2DBA8F3EFFD64D38EE471FBB4133AAE8A78268E1D83D5138EE5F00043F68A489CD07A0F9814D84F90086905B309667B5FF0E23ED68C412E8812686CE3F7BFBCE0EA8B104884662D2BF3A5EC1950779900779900779900779900779900779900779F81F0D98700C2EFA7E9D8270E48C7EE3670AC7FA2AC231B79A70FCAE211CF7A3313EFA04B196709C2F5A73C716CE07A06FD7A24FCFA22FC7A20FBFA2E59186C2D139FAE82907083E398ABE188A3EF8690604FF4B0C7D2D132D5E44ABB4D0A721D19718D1870FAD84F7D1D705D1C701D17C047A191DBDCD8A96D3380AEF7F81DB57F9BFF69229A0FF8D1387AF67F403B1F0180FE675C97FD840011361213FE2300573491582DBDF91CF39F1DB97E48D86ECF1603A988CEB31BDCBFEAB056898787E644D471B22382A80EFF1972FD1FF0742791F024B211CD709491285EB3AA5070BC88F09EB8FACFCE893B28025E21F0419A6E03AF0700B744D1F97BF917F6B31FE7F0188FAA5F1]
}
Add(FileStream,11349030,399,140)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
Point(doPosition)
link(FileName,11947023:Result,[(405,128)(315,128)(315,198)(279,198)])
}
Add(Hub,2808741,322,154)
{
link(onEvent1,3395958:doData,[])
link(onEvent2,11108326:doText,[(345,167)(345,202)])
}
Add(DoData,3395958,350,154)
{
link(onEventData,11349030:doCopyFromStream,[])
link(Data,8116148:Stream,[])
}

Редактировалось 3 раз(а), последний 2023-02-15 16:28:29
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 649
Рейтинг: 138
#2: 2023-02-15 22:39:28 ЛС | профиль | цитата
vovs писал(а):
При импорте таблицы Excel, важные для меня символы α β ϒ Δ заменяются знаком ?. Как с этим бороться?

Кодировка файлов Excel - UTF-8
Кодировка программ сделанных в Hiasm(delphi) - ASCII
Возможно, тебе поможет это – https://forum.hiasm.com/topic/66686
или это – https://forum.hiasm.com/topic/61538

Мои варианты танцев с бубном

Add(MainForm,2953706,77,105)
{
link(onCreate,11947023:doStrCat,[])
}
Add(FormatStr,6654860,252,119)
{
Mask="Set objExcel = CreateObject("Excel.Application")\r\nobjExcel.Workbooks.Open "%1"\r\nobjExcel.DisplayAlerts = False\r\nobjExcel.ActiveWorkbook.SaveAs "%2", 44\r\nobjExcel.DisplayAlerts = True\r\nobjExcel.Quit\r\nsys.onEnd nil"
link(onFString,4900988:##SetScript,[])
link(Str2,4273803:Var2,[])
}
Add(VBJScript,4900988,301,119)
{
WorkPoints=#11:##SetScript|
EventPoints=#5:onEnd|
Script=#0:|0:|
UseName=0
link(onEnd,5600566:doStrCat,[])
}
Add(Dir,5145339,133,70)
{
}
Add(StrCat,11947023,133,119)
{
Str2="MyPage.html"
link(onStrCat,16338796:doCreate,[])
link(Str1,5145339:CurrentDir,[])
}
Add(MemoryStream,8116148,196,70)
{
Stream=[ZIP0070000078DAED5D07581349FB9F4D02846A28468A40A4284A911A10E9C88908829E67C1B3A086A21405AC88A0E229C2210A56383D0F11F51415C4AE800D3911B1222AF6868AED54C053F3CD6C124896CD1AEEBBEFFB3FFFE7CBF06C7B77E6F77B67DE77666726B34BDD45CD7B5BF6E9DF0784E001E8E02B5F19288AC930B87145172C00EFF3F9E8547474821B5F1EFE5F05652634A4A202080DBEA0540D68409109C07D78DCCBA8847B001EC0ED4730033000F8218117CFF96F051F5C87300CE950011DCF1D9E61201F4A35811EAE9916BED7C6F77BF078C7F0BD3BBCD39AE2AE913AA3AAAF8BD06FC7D0BCF0783FE37B137CAF0110E2413CCD4D5C62078CC06D7864826CE4EAB41AA084F98230100DA2C064100FF7FFAD1836E00DD48D098E21B5B01AD00D1B09E53180071200070C83C739F03802C4415918881562B6A7A0C0E4A774155398E2DFCAABF23763787C2306063C01B51E1870A48C618561B0F5A28AC1F8660CC4F2ED18CC6FC650A688D10F4462A89D1595873A21060704C27D04880489EDA5E7F60D5F6AB791CC760740E71B16A1811EDFB4AAE33763A87C3386E63F584F8C180E4001EA8D99022B600AFF6C61E3C6810DC2718E091808CFAD01D91D23863B7C10F694966C1C64E081A9603C058027500286E2003670A36227DE37620C811935A18690A64967B099D0CFB8009B08A3F5836232A5D13D8156D431441826F068427AD70BDF1B31A683BEC0411AE94498888AB2E37E6742C97B22BA4530BD07191DB138A4D192C793A4F7847F54794E02965042A90455CEC962912B405606F7602D46E1039F23D68FABE020B9B248FE5E2EFF27E4829E865839D308F1F70BE58CCD52E47BA4C8D3A5C8374A91E74991EF9422DFD5457DD64A91FFDE457C69F1F7FD1FE9731897AB74929F90222F93223F28455E2A45BE4F8A5CA08FAA489EABA9B94E759DAAA81CD4C4E4E5C6E5C6A27250EF145F543E5602792BD19FFB91CA3544385741083C3516C9BB49CAD92239AB430E77A9BA9DE484FAA2D9113F0CF6FFDAF1B5DAF50F0F17E44B509EDA527074A4D8BDBB94768FDD29FE6E5CDEE35BF53D5F5393ADCA56EDA877CAA4E5A6DB91AF49F0545F24D7938A6F29C52E7D49E5FA52EAB5A6A8FD614AB63F06F074381DA672D1D4F4E2787158B40AC9F81692720551FCB942B99057898803E50B983A6001537CDE6010F8E106AD4732D31A243389730A34E89B3A802E9C49103DB0342023AD7302ACAB09685D4D40EF6A024657132874358162571328753501B3AB0994BB9A40A5AB0954BB9A40ADAB09D4BB9A40A3AB09BA7D2B813721010B7740A90918F80D5E3872395137B03388A66C200A94205AB28128528268CB06A24409A2231B089312A4BB6C20CA94206C59406A02A9ADD34336106AEBE8CA06426D1D3DD940A8ADA32F1B08B5750C6403A1B64E4F5940EC1DA8AD63281B08B5758C6403A1B68EB16C20D4D6E1C806426D9D5EB281505BC74402049083081EA6D2414C6503A1B68E996C20D4D631970D84DA3ABD6503A1B64E1FD94024ADB38A006281EB8A40507FC9D37336BF1308BAC1AFD9C017812809652929297CD1F402534C269A7E5016937909272154C46422153A2BD597A09427B952EFDEBDEBA4148A4C540AC9884A211951299C48AA52FD2494FA940C6457EA9F2B29623FC3B2AB1D13ABAE764CAC25BC8C4E4CC094A9FADAC802C2F7A406E92F0B08B19927E6DF5622FFF4CEF9FF8190C00ECF9CD4025322C9BF789988CCDED99FECDBFD496AF545F62F2C2CFC0F3A39B1781C288B07EB6C14C776A320F0FCD1526A05FF453EBFC32816041027BC64C9CAB83321579210284A21ACAAE54BF702E7F66CB65731492F201ACB45C258983463F1F9359D8C555252D2C9584846341692118D8564D28D35A0AB75D955A2EC3A356122EDF8A91845D90D94283B3E00FC6F34396E5D6DA3DCBB9A2F0F897C8130294E78F635954F787E8B95E8B55E145E4B04F7A606CFA119C311A03AC0ECA16AE6D02D74381C60CB70657CC77062B8337C1876603533086E62F3210C23BE3A901E1F95080687C64A0C5E78C3FD777C05748E1303BEB98853938AD39E84D38482D3BE83538117FEF9D175724E2D2A4E0712CEDE149C0E1D9C8ABCF0E6E666724E6D2A4E4712CE7E149C8E1D9C4ABC70FEBB1A724E1D2A4E27124E1B0A4EA70E4E262FBCF1450B3967772A4E2E09A73D0527B783539917FEE0F54D724E36E274EC82DF1A434E4719FCB62670FFD9A7E49C3DA838C9FCD6948253DC6F6B025BCFEF26E7D4A5E224F3DB3E149CE27E5B1378EBD62D724E3D2A4E32BFB5A4E014F7DB9A40FE930DE49CFA549C647EDB9F8253DC6F6B028FD7BF22E734A0E224F35B070A4E71BFAD093C7B6F3F39674FC4C9ED82DF7220275706BFB577C8DA21C59E86549C647E6B46C129EEB7F60EEFF7A691731A517192F9AD0505A7B8DFDA3B54575793731A537192F9AD1505A7B8DFDA3BF01BC2C93939549C647E6B4BC129EEB7F60E79279F9073F6A2E224F35B470A4E71BFB577D8519745C6A90D4C60CF1263117CD59BC063C857022C29FE09C0A0F8D3026CE102CD766C5322B63D09762F02B6B81F02D09C6C478E6D46C47620C13627608BFB9B602C448A6D4EC47624C1EE4BC016F72B885701C8B17B13B19D48B0AD09D8E2FE03C0B8BC6BE4D87D88D85C126C3B02B6B89F003063F76032EC6EC0020DD8B418F60C0F86238303316749E2D27460BA8EFB687C833015F882D91E05E1399A12C2311581062E40A3250C4616BF624A5C294B5C215DFA0A74192A64EBAC4B775C17D17D715DD07C4A872E9E92BA2041872E822BA6C495B2C4550E4D0FF483A32B5C97C10C17863763205EAA2E70BF9A9942D08ACD57016431A5E9874654FF66593180652A83BF9AD95B521505061F8ECE70059C185CB81FCA1880A617F01456A94A30850D2185125FAD530A0E18071B9FF14090D2008E355501D68361CB7080E53E106EA8FC5D6134D4A60C9504A4B3F8AA803C2EF247DC07E1E066D0C869823240B9EE686C109B8D34367B12364D296CF6546C7CCFDF0EDD17B2F597C6E640C2A62585CD818A4DF0A0A7E16CB6D2D8504BE44E60D396C2E6888F123BB1E5D0D461213300A60B6BBF074CD5597F3D3E0388EEA289A74E4F0E45316B083C5274A508F5EF0B8B550B60FA303D6A61BC70BD02E1B92D2318EA150C6B8013741F5778BD9AB992504B7AF0B5802C29C56B0D694B2E5EAB15256AB5A244AD5694A8D548FFEED0504C8019421667589AB6ED35DA99504EDD603522C6222B730CD9D411D9D410D71FE5CC56983354915633874822633DA14DC9E38A5A6BBC657D91DFDE5AA0C932A17D619C5400EBB0130114C0A6DF886187374122301A20E916F4004EB05030C9B8828AE52881898A5B19748E872625C47173689AB0A3A2083063DC43FDE08672ED4950D00016BF780C89BC56D576E4152876A8EA8C543586F18361ABEA2ED6FE0E2078961354B5733C5111889A4D21AE1E70412DBB312C7D17861B8C3758CC0F6209C82AB065278B897E426AD79F5FC317B9249A88EB68C805574C892B65892B64D201A90AD0A4FD08CDB28290D9A3FD792EDE989B0357C002582FE89EC1D049915AE495F007428674F92CF0AD54A2A64CE25125CA139AF44355094D55EA00CC04A67285C5EE03313CA1BA4EF0B1ECCB109C71E1B9C018C15093608226AA7C1D206B6A7153F2815875704BA593941D1D969D194CE88E67D11B6F39C51F84EEA98A30953D2195225F833495E4C3501B78A0F6C91CDE46C6F1870990C3133A63983EAC919271C45D1ECD308AF283A621F1FC6431C7802C31906C7CA586261809634C06D18007BE0789601E7E16842FD78E02B3400CAC9421F06C368883773B62882FF6E78249F8EB2A4B61E33DCA075F618419E07D15D4E3DFC8D4859BE40A2AD1B180C9829BE472AC4CF8DC50827F9518136E00383DA781CFE008FE2B2453D0E7346158C356912138B1871AA800651ADE8944DD005BB8B9C0DACD01B9745491D0DB626AC40803A0D61CB08FCEC17FA2164452258F5442EF882285E8321D3D5594A17E42ED9C3AB473802EA502EF18380A96084D61B2E126B9A843B0506C2DD34E7DADD81DF54C1A08194A67E800453CE7BD40D39D6EE5C8A63D6982B52DE37CE3621379B1891347CE9BC14B186F3337267AD7AAF3C34ED9B2FC5AFC3F2F796C1D905FE2C5346F5A5C9555F5DB828A731BCCD8D5374A8A7EF8AB25F0F2489FED1C76B4558343CBA6810FE38F1B2B959D5A9F5F14B0E79D8FA5D90B83C1E30BEF3A0737EC1E95BE485FD72DACB0DBFAF7474E1CB3705E963A247DE388C2A4273322024BDCB3B2E38DB3B75EFEE4423BEF34BB77EA97548D0BB386DFD67D91BECAE561B56FFD63FA81BD8663DC5F3D6E5B6FF6207BFF114FEEB05D01BECC25A515ABAFBEDCDEF65D35DBC7E68FC37D3ED86CB54CDF7261ECC9916D7A7B9F4DE0395D72DA7E87F34E3553EBD45EB5F4891723387AD64FCA076E4A7F79EBFAD8E8638D5925590BB8136A8655F275267DF07CA67DA526655C0A0DB594744279155E2F7A5A817EADC104EBB926C6F3A213FADBA07DDACA8BD34ED9AA2D7BBDF4F8924BC9C32F9FD2359FDDBF30DBB77F4132B86F9112696270CBE0C5ADE02A4595A3CCB4ADAF5B76B87F2DCE68BB9FFB94C3DEB853F1D4035FCFF391F767BB97A72CAE5EBAB5C89C396EEE8C9F0A926E954D3C1672A9C0ED829D41A1FF01DB355ADD9637041F1B51EC33F55235EB7280DF2DC7C9662945AB664EAC375EBF49EF1E37F0CA07F6887AE749C52BB757F34B4FD9D66C0AAE4CD963F5D88F11EB9C1B18F568F296EDFD1F7E7F3C7B3B6FE755A3BAB2436DD7BF6064199D3E6F2D7B093C5B215C879218C98BE1F517DB0785C58645F0E29187A8D504A99CE2B0BCEE276F9993DDE03CE5A885DFE492F3C5473F02DF7C7DEFAA5F2F6FBE55FFF8E112E7DABB3AD7F286AA8FB5CA57525FC1BB60B3FCE09B05564506DB6FFAF73C63157DBFAAFB93A6B9BAD5FB7FD6BE3BE45CC2F064D36BD94B77973572AE97595EEBF5DAAA71C261B369EE1983473FBBD2D2F781DF0BCBDE2A341772E5B55E2C72DD01BB606D1C416DE8A4BC1D52FBE5D8F11906CE3D4EF47FEFA996F0BA75FA59E3A1F90F2E46E7349A9D1E16D0BFECC0CBE1A31CEC4DE7396F6304CCFF70E758FFFEFB0B9D971E703E6E51A81A14D5D7FA8BEAADBB2CFF67552B9FAD0A77336D882F399AB67A6DE3D246BDB6018357D60E707D3AE6C8A7EBA7B25D07BB3C49F3B33EB8A0F091AB8B7EA9727AB875CB9DC890C8431A3D2C3672FE30B91DBF6EFDD1B8F1497FFEFC7B241C8F9DD63837788152D96DAFE56DC3F69DABB2CD6CEDCEADD25CC0E5CD5CCE3876B6F481D97755BF3A6F3D13B063A4E54FCB07156B6F615DDDB470E6A7C6A6E0A23EB5CD4DB999FB92620ACB83C356FBCF1860BBED6DC8B42ACB2D17539217CC8FFFF46753CE959C8977973DDD7C9FCFCF7DF968AF9579EBEA39512F7BF6BA191FF65C79A0D1FD652767593CA079441E36FFF090BD67BCF56FBF8C5CBEC2BA64E36DAF2F5BE377543CDAFBDB93CC08A586AD9B9E2695CDDE3611DB7EE3F487175F42CBD7367D0F1C8D4EFDA16DB3AD767EE18BC231EAB96EA1892DCF8F4F6BA898FEE97783FC5B273E3BBD51C97DD6C27DB3C4BBC7AEC87BDD2D2AFF32985B7EE5E5FBC02F2AB9F7A61BB4CEDFD1F8E7F39F162AA858A46B38D799978F6A2E1E95E7BD2DF355E8FDA0BB06572D77BCEBA97029DB2F2F7FF21F2633AFDF50BD446777F3F2521961E6FF68F9E39EC1977469C7332C062C4F2F1D1C8E311EF4F4CB3C3563C708FDDC9D6F467F9DFF7CC83CDDE6495B870CDD549119A73664A18671D5549BD057EA75CFA76547787E7EF3FE6D4ED1CAF2944F954AC1C62939B5BB47EAC51FB5D8D8149FB2A08DEFE9997CB7EDCBAD8B5F5BDF144C7D3ECBADFEEDC5F2AF17FF344E99B76AFE9899B12B228C37BBA5C4BF7B99C3FFFAF1DA327673B3AEE1B3379ACA767362EF4F796AA31AB688FDB595E3B1F9B485D7E96C2FECD981EDAF322AC09D509369A766ED8D3AF997DD544383379F1E2CAA9CA57B5AD5DBCAE1AE9A0FFDD045DDE6BD37A6A5E6C5DB5C3859E0E7581A6CD43FF1F6F8B4ACE88439C3A7BA1C2A5FEFFBC99CBBA6113E015E87E8283B9ED264677DCE349C1C3DB6F1689AEEECC63E0FD7CFE476AF3D7ABA8933D9A97A794FDD45B9AACDAB599F4BF66B32461B1C68287F9DA85BB6FBC8B2958166D1AA83AC1F0D5EAF1F7E2C8B4D5BCA5D63AA33A2F15E923F83BBFA14CFEDFACC649B8A2B0E811BAE6C9E541B637F70CA983D4FDEE76587BD8CBD5B74BE6ED0D9C53D6F26BEEA753671EA4AC3D9749DDA981BBDD269867F713DD3587EB586BDA3DF2487BF62B5692CF4BA346ACEDD3E3766B49CD7AE74F72F762D74F37AD427E3C683F32FD6EBBD1DF8E3E5BE270F585DC9F2353D7A60CAE49FB36A2787A77D343AAB6358A07CB6F6F8416B35D7E8D81B6E7D924D53779564C42C9A45DFB0AFDF5DD39A7D059FF22FE81C1E7C48B3C4D76DCAB8D697FDEBB52E6AF9F55A7130EA84C284FA983BCBFA4504151E6C6A0D51BA6352D7CBE7D8989FE3F39668581F3A38EDB836A76076F59CD895F5BCE8D6D756496A1F1FD3979CD5FB687EEE5EC279AFC9F5BC0991799ABF9D65CCABC86439EA1E485435F9E9AF04CDB1A3D7DC38D9CFD9C939E69562646EE6C23E669786E66D2E3B50C54FBA69747E6D9293FACAF1FB5695D4363C8F1EDAF7E874F55AEE6DCFBDBB9BB6F8252AF99A37D48C5D37FE026FF4C3AF2F8E6E8C496A2B59D7707DE68F1FED6DDEEBAE3B1E38BFE4DDB4F91B8E252FAAFD6ED36CB3228FE76A166E7F6AD6E586B8EA0C5DD172C855E1C11BF508FB54EF1D837FC97EF072F90CA38A02AB24DB2D8BF2CEF857BBD869BF6669AAD11D9715FC5662B9A666EECEF9677F19F070C6E2AD3FED3E62BEC9E6643277C8309FF3BC79CF378C0CCD1AE431E15DE94C97322DE523A32E06B7D87F58D11CF8CB1FC54CFF863FB3EB7A3B0C19696DF6FC77EF28B3598A6ADF9566875826995B6D64B3D5772C7CBC539DED65FDA7CA028539F73292CE7F706761BD5CF297CC4E36F9927B68FEE3F18F6B463735C59C753401A1AF7E603CDA141B503C6E5D9FD1EBD26EEAB9C564D79DBC60B6C5AA40DFC3A8A2C74347D7C7CFC646E6D7D75FB85DA8E81EA5E2649C366A58C19DB99A19199FF41F5D4FA0FFFC3ED0DBF4E9A1C7D7777AA4D5E85E18F74A6758F67DBB7CDF9733DAACD52EE9DDBE9AE9971FDD9A3175EDBC1ABF6E6F397687025C877099E915FB7C87DC887FFCCEC1B9CEFF31EBCCEE1F17A5BDB9B97ABA4FE8BCC6738BAE04F579D8A4B372E9ABD93183425DE72D55DBFC48E54551C0E70793FA56B3EFBD0AB31D305BE399C9890CCEE9CFF3C7EACFF071F9D12C577BFA30E6ED5C5EBAD5CAF2B293B9DBC67FD9197026C43EEB999B5794DFA59C79B4D13BDC0A0AEED81B44C6356DACFC75E390CB3E736D73144639EF1C1E54BA73D58C1BA1B326DA985917995F3816AE3FD66F545012DB217CCC9A454EE326EC3A377DD7A8DE3FE56F1BDD6A366B4FD1ED27FDEA777F501EBB062C89F8583AB2D14187F173A8C706EF20FB3B81A7EC238A0AC29BC758BF31BF5A3BC26CFFAE89E3768C2F1D37CA74D795CA7B4BFB799EDB3DD85A2D6874F2B692FD4778F571950D95747F23F767F37B8C9CF138E0D0952C4DC741BED772CCA2E807CEF9AE8A559F1BCFB68B3AFC7ACDE703F5BB5B1B7D76DC6F519D70CDB2BBFEC2A3A1917F2D2CBBDD72BE7042D13BA64A06F364C9E6DB6FBADD0B5862732569A1D38999F5C6C5B131C59963C74C7DAE52BE7DF9EF47BFC69F39F422B8B8F59755C7AAE718D2863C3D1ECAABDBC51D58E6537AD348E7D884A2E191B3A7FFE2B3E7FAEE16C5E3C57723358C0ED7AEA225354FABFFFD83C1D2D0C3B7ACE796ADDE7A3792FD7C42E1E58FCF9BBFBB3BDD33E096EE9879AB3D468C4B9DD77DCFF414D287BBFAA5ECCD07D0125B4CB05450FCE12EE88E11FB27C2EE5990CA495B9DB496C573987171578EB056F56E5C5EB7FB2A3DED91933AD7D36CF8CB66F5622BA6CDB2B0131BA28EAEFBA55A7B8AFD1DBBC89DFA4CD7A635333756C61C7A99E535823D2CBD61E0D4BD931667C53937778F5835D422A8B7D9080B1BBBF5F11A7D0272F2EB568C6C4B2D76295839EA9149C136EF7347EBFC5B6625FFFA360F5B70C6ECF86456D235A0B7366423BFF48B8B7E7A447F63F6F8AFC3BD131A962A58FC76B6E69E69DECE40C61FE38E1C397D1788B28EC191ABF4FEBA6420E9BD1301881D58B11564984477969890D821145B754DA3EE1E129188BDB38E709D26ADAF46C4203A4147285591D92542862A280A5E5F5100E32150315E207970089947185E66425926615889DEFF107C558225F15509559A8EC48B318B070390EB8F5ECEA0E1E3691A1C0877C3CF35F1D53B2C98A5CF3BDE5E0E9A1CE2391197F7C3E596F87E312E49051DE4E668560D58618BE09D4A868EF055802578EC347CDF1BC60EC7C313CF3E62E716ED28CF3CFB8A9D07C1012800FE70588EDEB90F030970381E0F02E03E114A42E0791C08C7DF354F8083F438108BBF9D8EEED8E13FFA71F1C126C6A083DBC091DE6D33C0DFFCDFA8EAC844674A600C0D132C60FADBE1FB418382F0F5CB8AFF7E7AFF104E6058022F3E8097C809898F0BE7252444C5C586457342ECB8B6DCA9A4E9698417B694FF814D8485367D060B105FB309059DA73850484D4D45734A00FF168DD8091FF03BE98D56414FFD9B657E872ED83A88C9F5210BF32763618E626919A950C9CABA8AAA33D7A1C3DD7BF1B9F915F847C37F123B3E2A2C1AFCEF852DC004FAE954686BF44783B51800073C5CF1141D3190CFEC0D37E9286E0EA2B31F20061324C31610E1C5687613D42A9A467B4B29A8674C1A4B786E85BB592AE689CB042F4A6EC5651542198D444627913108B2E3F8DB6082E58BBDBDD09EEB85812F689E1D9EE3338EC22B0CF8E2BAA12B1A7E4FB1FD0A0382AFEDA02B3A7E0F6BBF42F7E8C22B067E4FA9FD0ADD43B27AA0019EC363087C0CF6C4FF3C685AE080A26811A648C30CF894C99028631F6008DB08BABA70D5A53AFCA3D323983D400453BCD1C2D04F50F4418267D5FF76F8CA07420B4A0664B17B4B37BF6B0B8E64FDBE8A092CFB9436A0B5F4BF0ADF75C184B640F6F2174E188F11BE4D18297C473355F8EA65A6F005C1F5424F7EC810BC3985D2A08F4A89DEA4225E237F0F8A9A121F9710179EC8F19B3B85172DB0FF8F318BFA793760E83CD529A2A7353CA70379900779900779900779900779900779900779900779F83BE37FDAB50BD7F26D0C5839EBE0F8DFAAAD188DFF8F01C12C2DBA8F3EFFD64D38EE471FBB4133AAE8A78268E1D83D5138EE5F00043F68A489CD07A0F9814D84F90086905B309667B5FF0E23ED68C412E8812686CE3F7BFBCE0EA8B104884662D2BF3A5EC1950779900779900779900779900779900779900779F81F0D98700C2EFA7E9D8270E48C7EE3670AC7FA2AC231B79A70FCAE211CF7A3313EFA04B196709C2F5A73C716CE07A06FD7A24FCFA22FC7A20FBFA2E59186C2D139FAE82907083E398ABE188A3EF8690604FF4B0C7D2D132D5E44ABB4D0A721D19718D1870FAD84F7D1D705D1C701D17C047A191DBDCD8A96D3380AEF7F81DB57F9BFF69229A0FF8D1387AF67F403B1F0180FE675C97FD840011361213FE2300573491582DBDF91CF39F1DB97E48D86ECF1603A988CEB31BDCBFEAB056898787E644D471B22382A80EFF1972FD1FF0742791F024B211CD709491285EB3AA5070BC88F09EB8FACFCE893B28025E21F0419A6E03AF0700B744D1F97BF917F6B31FE7F0188FAA5F1]
}
Add(TempFileStream,16338796,196,119)
{
Extention=".xls"
link(onCreate,6654860:doString,[])
link(Stream,8116148:Stream,[])
}
Add(WebBrowser,16567071,399,119)
{
Left=405
Top=115
Align=5
URL=""
}
Add(StrCat,5600566,350,119)
{
Str1="file:///"
link(onStrCat,16567071:doNavigate,[])
link(Str2,4273803:Var3,[(363,101)])
}
Add(GetDataEx,4273803,259,96)
{
Angle=3
link(Data,11947023:Result,[(244,101)(244,159)(139,159)])
}



Add(MainForm,2953706,133,154)
{
link(onCreate,11947023:doStrCat,[])
}
Add(Dir,5145339,189,119)
{
}
Add(StrCat,11947023,189,168)
{
Str2="test.xlsx"
link(onStrCat,2808741:doEvent1,[])
link(Str1,5145339:CurrentDir,[])
}
Add(MemoryStream,8116148,280,119)
{
Stream=[ZIP4F27000078DAED7A65505CDBD2F6E0EE04277870B7E0C1DDDD82DB60836B081024042738040D2EC15D827B70770BCEE02E1FE79CFBBD39879B5BF5FE7FEFB3ABF6ACBD577557CD5EFD74F7EA5E4AB250D0D80058003C000020030873FB0FDB410000D030000016001E5257D4DECED9CCCED940CD0364E6A4CFE46E6B439A050D4993018004FC17FFA751ACD667D7CE82DEACB92B24D6A21192195C58084FD440A44BB90D97E81EA34559B3894F73F78EDA5C59BD1CBE8D4AD96658F7D5293F5EC9DC2B6D9137EB364C37DA8A94864879E1258EC702F752E9E2FE5F8B35C22BA3423933F050C060D8F16A38B9BA39632620F92339150E671522FB56DB89C28E48D1472151AA66BA9F8590D7337B027DEDDA90B2B42E78C6AFDD3FA83012C82C69363529B3B16B507E4B712256678ABD0CA7C52E57AAAFBA2191DEED1FC3CED02FB7C4E715257963550C916FCB4682CC1E84805ECE8A7D426AE10BCB4CB1D8D05FC786D831E7EE6DB82789D7F065BDB4C6C5E08ECF7F342A4C3D4371B2C2AD1EB81189749AE474BACFD19B5312C2D8AF63B6AF7089F0E08E67E67D6ECFF0F514D76F789B348D35EAD8A33900DE2908DD6A11B0D470807146E45402B98D707CA6C18D7B847B1B8B1A31F1FA7564EA1C20C1CD0837BA94F71C19DA0F795FD4D172E6228CE8BA681E75F14B9630C94AFC312AE1C313CF1E1FA1004AFFA069B53A0BC5D9D348EE6916E989A6068E66364ECC4C7FDCFF4BCFFFE24F7AC6C82B76B0200781A5EE827B2F2717A3D04564DD84A51AC9D47C7CA517D0AAC3B32909175BA989D0D5083E4049BE6FF6B9EB9F5FE40FDFED25BB58E3280EC5C4E6A3A8712B094AB8717081A37BE5182FE150BCDA89E13A793E79912429E341E3DA1C495754979F29DBB74C21317E2C568E3ECCA4498080954314842390E4A7D32DAFBD647C550A3129A27A50125456CB9DB1FB7938E5FD747CEE0E8AD0471EB9FDB1A417BD4EC616B3A5DEBD3664E7D704EAAA963C5665C6698EBCE41E06A636DF4FC5525AB1EEBD1915527B55C83930AFD886257BA832CEDFEB54711C0F7CF1E8E446E828EA3DEAF30F25C95F82F81D492AE0BA3950A1000021380000EDE98DBB0DB39BBDA3B5B1BDBDF51F71ECABFA81DD1C0BF6BD9015187DF37D726210405954DCD752EA408D75CE0E53C50C33584B7E6DD015317F37F280F382DC2BEC22DC95189ED12C592BF43BC9F474CFE582978D82428276E1220613CD800031B17683C449943847BAD7CD2625CB5CC32BCA1F14A915A9EE379FE0EFAB6E8F3BFAFC8FE7F14D6A09001BEDE358B448D31CE28951C8A1141A51441AC6DDEC0C46FD5BB934AFDBA2A5E0A3B5815C0C03ACEC724EEFC2574E4459B488C6A390B5B4CC2913ACD1155418C8BCA34744262CB5DDE1F582AE6DB5F1C806107D134763FBD5610AADB5B7237EF2ACBBC7431E500181B2A806703EF0316AE5AE6D4D6E7212A23FA0433731BE27EFF95ED6510C8859063F38A63F1A49D5F4F511AB9FCF4B747DE196D8B4294FB560316D2644619B1208B192299D921907297B7727C9D8145AD3E238E2294B932BDAB7C532F646F825041A8C616B10464C829C2B1BD59761A6C931D7D9E2B046F451D0445C5315B20BF833239AD530D34CA46F18124853E48F97E8A3111BD359D0BF72BD5A96ED4758808A820605E20433A585203160956C14E45D2EEEE4006E5419B2DCFB713C84CCCC38040CACD22D154DC77193DB6FD7EED1D457958EB9FCAE78EBCEAF5C3049250EA7FAEBA3F43E1C5B826073AEFCC1192C19C7964E431251D71743CDF6BAB68D9315C848D5EF3A6A92DF650B589EA3DCBE06298DD8A004F9AC4368817A50F099CC2A686BDACF9C09E91A6B9D2312CE112B16622486B796755322336F34E59B2F32120B35B73FC504BAC707260307AC93256D56776055B85DABF9F4D542A73962107A734CB8BF9BD9DE8A6DF3FB7D8CCE09A38B6356C84F637E5DB05BDD3476B4FEAD67595128CD87DC9D6E722FF704C6E45005EF4839802ECAD3E2E338BA6951437FF9876209498FA81C7EAC8A5D61D68971F0BDF97C6D041F4A07AA92E14CBE097E0B7846C2099D885BD77284840B2ACEE11CB2513610AFF5B8B06608C8DD5601FD821E42D349B3BAADBB81B3DBBA23E83E826DF1F88DF2ECFE438209C825637D16E4E8444CB4BBC07709D7DC71EFB5EE009E37BDAA166CBFA3B7C7928162CB47329D7A7CB72804F81D75FC0463134E9F460D4F618400000FF1449DBF42CCDF09F4FFC30DC453B881F83FEF6E55E4653B9FB221A4876016B714D71718B3CECCE4FBEA7B68F07D55B4F3AFC8D87DCE9609E91AF4B5A66499A1EC833CC0433DAE979CA86B5058E76DF4F99F30A13DB16CC07C30F643A74350F0C607252FFD2561B030F777F78A0E9050939DB0EA05637A19D2B05FFFBCA2A1C20FCECE25173BAB1F0BE200FE607161033A8D10F73FB9DB81AA0DDF9B00D5FD12FFAADA5AD2645AF3CDC77AD1F90BD8747F0F92D1537C04697E140FC0E8F60419FD559BF805FC49D39DB9BCC70FEBB6EC1BE44DA222D997859C02DE41CEA4C1BD9224EF69639C36B3921AD5C1ABCE22B7FDB4ADF3270C036760F38DBE9EC9E5DF9A4C412853FFEA93B9BC870500F07E795B274B33336727E63F7F58FFB09AB0983EBB0E52F42070DC0DEA472FB9D49CD017794042F1A1925DCF57EE44D98075C8D9A5169331B538C71D18B4C4EB87A4F7890B072546BA47C2D9F41E69E73C5079656376EA2797B51EE0A04AF49CA2AFC27054426F56DCC60742FB50EF793900D1186D8131DCAC3581E8C29C8666BD653092EF81671A12733771F02570DA3994D69D19CBAD981AC09EC880F6C7603F979217834AB60C75EE01EE2C6C2AF799A3B6AF478B6FD07EC8B42E550904D65075AA1012A321F427A977196F8E0CE464B65C5E4B1562F1D9FE38D2A08F84D84BC450204212005F6B2C2092CB53C7E5A2F2CE2705376C5C7A1CB3FC34E6957EF0B69C0914620D75BC4684550BF8D4DDA96DF188E9B0A8AF37A29CFE914C7FFBA38A7873A0244BEE46A5B718C59D0CB9BE1CE69AE6BABDF7584A5EB48097863023F7AB96954384B3C2104AFEFE6E53912D71656273746C14BFCE4A233AFD4C32F89241A0A73C149BF2E1B85B5ED18CD2830B1701DA2984F0C42BB1AA74A1AD82C2D807943F56EBCF25ABFA3C8AEA4F8A1768D0750C20CBA8E6312DAA9FB266319E0D9C0D285E6A21B10A1ADCEDE7E37F9CBD1642FD9CA263AD2B4D0F039EF31A8BFB98D1A9B7D9F5BD2003F412DB85BDC6F6C2765A8A0F1E2D465A9D283D8E4BC6E08DAC2683A43F3D6EB90B3E95F1D12292C8EB43989E5D81854051991EB2A07B8A00DD3B92ACA066EC35FE45E17445058855EE2FADEA41982C297EACE1E8CD146844D7FCD4BA31E38109341B7A92A94B1055EBF22D67086403E73BED79A9C79FBD247BFB7EDE06F427AC3BAFAAFE909FC8730B48D5EE0C11121A44FA9FBFC6112E8CEAAF840CF36DEC0C90C5DA6D7955BC5006EA4228C4B6149B8B2D0CC9BB34693F1CD21D8C951030E8F34A32C7AB0F0D981FC268CB219922063E5EFA82C6E1DF9572B054EF231D60F04E6A65E6F777CD839A90C3C29AA399A9F9C9F2911485C978A938CE41316FDC2B8317AC9A124D0D0ED373E4B75D1A3B18E80577233D0C2376E17E470BCC3D3F5EEFA7996BD23F36D47FD2C2D9D2CCD6ECAFFB9F8CD8D71EB223E2C66C81EBE5E3B8114C6B3DBCC6E047FD39FD89713688D3758582B32329B7CB0E552A62C3CF8814A4504F09BFA2BF6FE667CAEC05EF0FAFC58CC9C035A3A994D6E61B1E7E8A4E5BE1952B8DD2134FCC73C44409A1C27D5B645C5E7863E2727C228966BC4B6CCC042FABE373ADD277096233368991D37DF8B29A31722440A6CC26114B55B7C95C7624D470B20A97301A1F060A138852ECC4015E47C75696182B8719E285C8DA0461B97319F14B60DA5D57BDFEB90D7FD65DA5451B07ECC28BEEBCC4C4FE30F7B9F5CBDDE9C63275CFD2505F4058D97BB3825645A31831444E962C6F45AB1ED94C7B1F1F6F47EF93F1BEF1CFEBE942817BE92B8F093AAEDE4A1A98C6640DB15EC11F6BBC133D072382AEFCCE043E0504C031B67E7D7FB71637205E1587A05C2F3C1545B89D2EC7848547A27696EADDD09ACC01DF9E31F576671A4037ED70EFD93AF5ADE4CC0A40106EB859C058F3C33387D0540B2AF62DAFF3E56E3370B69DF0A6C89AAB56F4DC7A95936692A47815EE0393FB68BBB5D227B4E923A3BCD99DD91B4E9AAEE9A9A3739546DC09C67B026CE518A2E24C59A39239FD5257982496868300EE0E43A56FA6FD4ED8A61D74F313D858F1BD953FDF861DB20B0220A8A4A22943A871D9F98529A4CE98B24CD3B1EC83E528A43AF165127D5755723868D457BFDDA09CC545B0CCB5F74669B8FA9B19DB4ACD6E856050B3CF9E7CF3D358F6E57F3CEEB1884C17F4BAEBA81C16F4BAB8BAB5B12BE98F9997E89B88F5BABEFCE673BF97B7C4FC7875B3F959284735BD1B09EB71AD71D8E06E4FE89B0A1AFD0FFDE3BBE11EE6B497428F03B88FF71721A25E29D9EFB0042959719650BC3716CD5919468C8496B6EC5FB186A197532A41371017DEB255F872E37C6C0011DB341E31C14D39407CFB01D6AD3914F7660A31F9B9A76C03E1869F4DDCFD05B5AEF4271B3F7F2AB5EAE586B7DD9A1D85F37672632826FDF7FB6BE4ED843A35570A9B248FD02CB12C5A85B2B3097657DF7213974BF8F2BB0659895404AEE82581351774870653A98B12B1FEC01A696407ED3AE40025DD96D9E63D173C97928660345BCA269C8FBC6124C6C0FA63BA6459EC4635546539F96030297E7DD882EE5174C81E1242749A717FD3031ED26A4C7D9F51B3C4C837A88EBA8E1659DCF2F08D18A23AE743D26E39D34862670AECE154AECF946CE524A15052CA1B8BC66330CB661784598764A834B378878DD0BAAB3E02180B108E9CF2FD586202494E920CDF8CCD5B2391788567BAD86C5FEAEECFFDEC4C22FE723D2173401C46CB2B6212D6CC47C2C7B05D96B479BAB06D8D51D6CFE54A35C569BA55D8A058F63DADD4698AD631189EDEECF228D6B6CCC2CDE1933B0E4D08C6F2D76B58B14519FD99CD5435CFCF11A8722B28902FC83742C769B961B659621A5BA5F74AE0B5BD121A700FBDF541F43E161E3D2BCD4D8FB960AADE15EE780863A14AFBA08F3A581B08EC624A8675DB3862C5475BE440834963A7BC854E1FAB53963799A6937CACD26F75EF52E9BCDA8572F71D7059B6948EEA5E3CA6A95860E5D8A4D381B8561FE006925F2653D7B2EC53EEA5BA284FEAA9713E3CBE53AFDCD16FC93763022685EA749F9F9F2B00939ABCFDFA5F816FB65F2A79FFC41909506AA0C6C506C32FC2601E05B2BFFC9E61A7B9F3F267A1F8EBD01536EB37DA75B4923ADDEB723E22A655B899F8559FFA1BDA785E24ED161C99CBBD819346DB3BA417CCD1BDCCFC79CC4498F765C451DB4540350191F2F458A58E20B8344E6EB4DA736951B760FA7EACE0B09F0945A9C2DE388035C9566CD248EC1D0FBCB2471C86A7D996B1F8B891B86881411010BF2B8EFE7B95BADA0AD6C207B4CB781258AB60FC6427A5D248F5D431F353B606BAD75B043BF23FBE9AC3BEE96B1EF4E51F9337DBEBDE2C98CC29700D92D295C0DB312734FA6A044DD2ADED9ACC787D1AE6C28E566096E6D87562DB3B94CFBD245EFCA220750D3639514E180B9CBF395D4846D4193652BCA998F10139E118D95132FF1B8B581E48853D86FFDDEA7290B6B95EEF4B4CE55D903C2F2D61A798F1A13266AD77F59D3AD78898D3C79A123D081177FB706BC89226FB6EE19103D2F53EE8C8AFF8AE26621EBCCD30418AF5EDD76AA1AD025AD2153C015ECC04241EB7CE3FEC29A4CACBDE6AA0126141C0216C4EA49840529BD1930F9C8227BA63474B3DD4729C6888259D71326D2459FBF803AD31F593B2C11A822C87159C1F44A7F5EB84D409F7C14B2E06ADEAF4C3F85F93C0493845F9FAE3F2B960BBCFDCC5FDDCCA0385B10DE7DC35BDF5A5F51BBC526A5B4CC7C9FA97C884FE463A824966C915EE5F825E585864D7586D69A1E3A5E5DB1ECD0323419E6BB66E3E517C5FAA811FB4A692788FCF691B3D107F5C80A13CCE56F81D1472463203D86D2332B665156954E77C3537FC06816275273F53ABEE8273CA889DE98D6A958001F7224A2832811233A53873465A8C971D8E05D305FCFEE1E2120E3C728A5770A0AFC2B8B33CAD2F0DF8F62213F2B812241898D8DE05184C04ED553E3876F1EE29465E3567F2F65D0A407E3D2DD3C0E7281A52281929AE810BCC98B6C24E5ED4C91B2972D96B16FE46C895FC41B2C52DBF4DB8710E05782F91A971E88A245CF275D09E03E93C43C50AEEDC359BA48AC4CC0CB9983F27721077E5ADED74DCEF7358FA61A99B61280080E6296742F92B583B397BD89839FD11A6073587ECD6B9D05B70B7F9E09BE86F4272AA51A4435D88A0906C42B31CFCDE5A8554846C46BE190D69121F16D8E73B23F6DCCF0447352907C79AD2EBF31DE72ED62424120D0D73B3A746CA9D34AC0ED65315E6AA7CA5A93B8A16156342A29BA2BD31AA07F5F41670E2C098AB44611F4885BFB530781F37E1D9D33B14847EE08BA49C6799EDC279DEC4BB8C1EB187A48D01612053F07AAA4CDDFA5B29769BB86DD8EB5391E5488188823725C1B4C3C30EEDE59EAD250B7A2788D60D5961BB5FCE0389D214974B03D5DCBB0040AC30D021877071BBA0FF8B779801E37A7D3AF13790A99E150C560A825DBCC7AF5EFE404BFB7E30C00F13BD156CBBA6AD2293694D9DA09BA90A5D5D039F070E6CC2423A45F0F4D7296128107A5D9BE847F9E66DFC468CF4A6250DD706900AD2690CA86724A1F989A01AD3A9DFB5E475952B6131703BD9E5C50D0545A5C09E0D4F202241A645D979B9A64451E4F24DF971018D9428E207620E54F8F8D8CF73D7F10B3CCBB2115D06D155F844C28EBCDBA43BAAC242DC07166C776BB34D4D4616713BCBBC843D3FBA8E671EEF0AF088BA9831C7701A826833C20EB638382810FC192010C7C442606C52ED9A17D459A220672A88C98B2EC32E7456F5D125A0A086610763E2D460CA9C86D15F39D2F7634AC8A0B0E76D7B9AF85417AF8065802894F154305DD6B42CEC1F16749119FD26FDBEAB7EE57EF35D20651F8EBEA66A25095D3FA0F28C11076993C1C577814250B655FED0DD4E3F66A43095C5D524E6B6DC5BAD36D7B9339EB9CE07C919E63235B3D607417E37DE367C0E65E2305619F9823ABC892C006704208BBCF9E0CDA0A02A8844C78B00B43F582934E673AA764EE8A6A5FCA67085B81251216578DCABD998327B0AF4AEBDE50E2B85A1B6AD63F0F32A58E4252CD886F33562AA226AC10A1CE4131BF7A6A957ADD389C985DBE3DCDC99FBD2EF1389E7F940B9463D87221851739B04C47BFB7A624DA87868F3B126C555C39017D6E9D6127899BD9138CF267ED9BAF4787174BC9A702BF45270E9718944C2F200289B946B2C44A948C8FB537EE68B8968B4972D4085036EED0885DAFA34A32AB62218160249658D717CE0BE079B786A39CADF8E077AA7AA25BB5645179796B77819FF10D5180B0AF5BA91A017C7E74B4916EDCD8EE70590ADF56DC0E14C7AF8E22855C88234474AE3E836902B9DF995CFB6C13DBFFBEC43B85BC9BBC00E53986CABA195F3A20653BE236E38ED4FB029382DCDD5800BF45BCAB07B6EE595C65059219024EBCBC6F52B36475C65F41FEBA3FBBC3A6250FBA34806632DB8D0F7B20D085905419AD4D95960F5E5CC4CEC64E879EA98A31B05F7E0F70E1542BFAD15D2422FCE9A3ECD7C860100B0FFC57C4B234733535567472B3B8B3F1DC0BEDA9002242B7A4BCA15AA3C7864F105469F1D4F1488A37B056A62D1CF762CBD9A115E10F618C11BCA037D237A9F099E2EF1232E8FBB15DBF2A073CBF55C521D7B3464789B56A9BA7F87A72F46BE9A851E0A96F73C7852074FBB47AD3B40236A85566B21338FBABC1AF55ACF0C2B954FB30AA1DC0A3566B681E98DC7F01BC2BE54EEA1A89976C0800DEACA575265748E10533DA3D8DD6847840B71894FCB9119B776E3338E047C0DDEA59CC66B9672325E1FC4572D464666F46ED723AE322439CCDBB9B18CEC73742C3FD4F51B426A6BF799E4E6C5E9C29CD7438796AE402C5AF6A9ED10B3F47539BF937411FF1116E82282CD2113A6B649873057635890D07D69D9160631BE69C32369845EC334F2C95CDA9EA4E3080EB951EE88AFA3954D97F35280BDC17D6E62C9D22D954D9FEB5121F7040D2CB8B206634B7B5FE4B6726930888609AECB3D864A595658DAB3713B2994776DB1FFFCC556782D81EE1DD4EF5685CF964DB6ED6924F2B43214FF5653F8AB22F5ABB2F0673D2A20B2ED533B0BB6F825D483A8BBD7E7A9406451556EF23AF52D28E39B39D8F984A84BEC7BAF4A22B3EF9B9BA0E14DAE945BFE024273D468868906C8C00D135CCBB223AF39C656E1F2D7BB0BD8088CFC5146E34C2DC9500A0A32213D515A2F90CA039529EFF13A7C3A67CB23100AA2047FCE4A8778B0F45D87128E1417026D4F0CE0AA9815AAC10C1BEF343FF00AA8683FEC47BC23E1B7CB6EFD2175321C20CD1365289825C5D32B7E70E26B2CBCE7769166FD0E153AD77670E0F402E1775FC0B662177CF33442870600A8FFFA02A0278374367354357376FEC3329F3FB332195BD99D18C21B2A191E194999D2984B99D1181F41C650BD890690F2A593A1F4D2C3B6CB91F2A1E5BF826330E935EC3604742223CB2187310C22BBE1C9255E6FB1B3B0B081D806D7B85601E533F8E489787E27B1BE86B8B806B05C1908A472B06FA6C018192B9FB5527536E274B2D09562D3E375F45293D21312B3D10D2DCD0DE3FD279D4DA7D921D5412A101F18209360DA551820692E4EA03C94A5C8493959464646BE1F91F45EA3BD420F7B3454C636C1E3F0D5DB1714510F0E778B4CF28308C0C0A148EC3D6CCBADA50B611D85966696851AA98663267AED734600D5110AF7EDB1E99DE40CC4D7FC8C9C59F1A4109E099783281694DF06F4F7F3B5CCA24FC6A30D09006000E0214CED4D941CED414ECC26F68E66FF6A66FFB77CF984B01865D90E16ECC0659847D13EAF94AA79319114BFFE3422783B9A96C00D3B242E2BA9ACC587662B3EEB6041788F3E01EA6581CB18478F099713841F45DD6A34C3F032DF3F4AD0557E1B71AD94B1575E83E28E990EF743FCF23D9BAAB1852E3027CBE16883008989E6489A125F31B064840C5A96F5620D907CCBC02B87ED163ECEDF59346F32D0C5B70CC5045FDF460099C00F5A8050E5C31CC5A7EDFA5845527A08A162982FFC01E1E59676C4FB2688D48BF782DB7121AA45A00A875CA7055ADD4FC2448B92DF244CE66BB4F9F64C3AEF787CF485042FB373FB9D1B317DB568615EA0BA5B12CD7B82A8D2B01B362717825D164E15FC9AF8580F374B3B5BF7A2C77B5E1A927EC60B402D6F8D4B98BDEF300FD412FEA42DF389C3C0C65164CB8997DA5E7F3EF452BF2C336378E8515A6F843CD242E40EB64CF072D3C2D0E0B7969753B5C61FFB6456D84F8E0DFDEF96670402FDD7F07E2135A6CD0E8B153D082CD5D4D17FD99DE24F87EDA19F893D01F5514ADA8BA4A9322470BA667F876E1556F3A51FEE2A6B32B7B1ABA63CF7F790F9C1BB569FF72F75F5C1BA9ACE8915282D98A7DAB48867AF26A6ECE91D6A3DDE1F4B60277D9F5EF1EF91216209B5BE3F09D4C941678DEED203050CC7CD607405C6CEEE9705F29BCC568E054C403AA4D4B0718473BA630D8A86A66D9869BF955EC0BA21D80B7547C43659CBCA7E4429F9B0737D72FF131D5FABA89695D7DAF72AFE269B93766344E9D8CE7E8496E7C58BF192517E4A59387D3A1EDBC939DF0E2AB83D583D09AA74B85D9C4C8339449B7E1D97AAED112529F11A030FDB84AC2B647CAF5419E7280677E3E2252E2ED103E3DCAF24EF051F787DF87C841E946250D64134794B56B6067BD7862B6B0B337061A40CA914760C3C83E9C92F286FE08EBD65F859C29AB6C2D6CB553B57A7BC67488E0746248EE0701426E1F65A371AEB10B8DF5C558D9E66EA80498D86224173575619761E497DE76403C4578C538A69AD810FF7E01EC5D22DCDCA13F53E45BE24DAEBBB2FE7F6FF63C910908C80FF7428E8397E7344E8B9827F1E57F83BF29EE8F1B7C30BCF059FB7707F6110F6DF1ABACF85FFD9C4FA3BE010FF14FE0F2DADE77A9E77367E8117F93FF7399E6B795E08FE0565B4DF96859F2B78BE39FD85079C675BD5E7A2CFB3DB5FB822F87DAEFB5CC3F34CEC172288FE5779D97385CF139B5F8822FE5FA739CF95FE33DCFF1DC32F01807F0BFECFC5FFE9B3FF0E69B2BF89FFCB832BC9C2C0FE3187FC74BD7A92C0A2FCE3E9FF0135E951F0]
}
Add(FileStream,11349030,329,154)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
Point(doPosition)
link(FileName,11947023:Result,[(335,145)(321,145)(321,208)(195,208)])
}
Add(Hub,2808741,238,168)
{
link(onEvent1,3395958:doData,[])
link(onEvent2,11776304:doString,[(263,181)(263,223)])
}
Add(DoData,3395958,280,168)
{
link(onEventData,11349030:doCopyFromStream,[])
link(Data,8116148:Stream,[])
}
Add(FormatStr,11776304,273,217)
{
DataCount=1
Mask="If(-not(Get-InstalledModule ImportExcel -ErrorAction silentlycontinue))\r\n{\r\nInstall-PackageProvider NuGet -Force -Confirm:$False\r\nSet-PSRepository PSGallery -InstallationPolicy Trusted\r\nInstall-Module ImportExcel -Confirm:$False -Force\r\n}\r\n\r\n$Path = '%1'\r\nImport-Excel -Path $Path | Out-GridView -Wait -Title 'Таблица из Excel'"
link(onFString,11441679:doConsoleExec,[])
}
Add(WinExec,11441679,329,203)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
}

Проверено на
- Hiasm v4.05 build 186 (delphi)
- Windows 10
- MS Office 365
карма: 14

1
Голосовали:vovs
Ответов: 199
Рейтинг: 44
#3: 2023-02-16 14:14:58 ЛС | профиль | цитата
Скомпилировал в Unicode режиме (FPC-32U), в итоге выводятся иероглифы, на изменение кодировки вывода никакой реакции, но и так понятно что это только знаки '?'.




Add(MainForm,3171043,224,140)
{
Left=20
Top=105
Width=900
Height=401
Caption="OLEXLS"
Position=1
link(onCreate,11947023:doStrCat,[])
}
Add(OLEdb,2142462,455,259)
{
link(onConnect,14252000:doCreate,[])
link(Driver,9469155:Var1,[])
}
Add(Button,941652,357,259)
{
Left=310
Top=10
Width=75
Caption="Подключить"
link(onClick,2142462:doOpen,[])
}
Add(OLEdb_Query,11136757,609,266)
{
link(onQuery,16321824:doStr,[(657,272)(657,237)])
link(onColumns,5673081:doEnum,[])
link(onError,5776200:doWork3,[(767,286)])
link(dbSession,14252000:dbSession,[(615,247)(549,247)(549,304)(517,304)])
link(Text,9469155:Var2,[(622,243)(468,243)])
}
Add(OLEdb_Session,14252000,511,259)
{
link(onCreate,1603248:doWork2,[])
}
Add(StringTable,6078793,917,231)
{
Left=10
Top=40
Width=375
Height=210
Font=[MS Sans Serif,18,0,0,1]
ClearAll=0
Point(doAddColumn)
Point(doInCharset)
Point(doOutCharset)
}
Add(MT_Enum,5673081,714,273)
{
link(onItem,6078793:doAddColumn,[(833,279)(833,258)])
}
Add(MT_String,16321824,693,231)
{
link(onResult,5776200:doWork2,[])
}
Add(Edit,11108326,399,196)
{
Left=10
Top=10
Width=295
Text=""
link(onChange,9469155:doWork1,[])
}
Add(Dir,5145339,273,105)
{
}
Add(StrCat,11947023,273,154)
{
Str2="test.xls"
link(onStrCat,2808741:doEvent1,[])
link(Str1,5145339:CurrentDir,[])
}
Add(MultiElement,9469155,455,196)
{
}
BEGIN_SDK
Add(EditMulti,3827619,21,21)
{
WorkCount=1
VarCount=2
Width=272
link(doWork1,7246550:doEvent1,[(56,27)(56,55)])
link(Var1,6365623:FString,[(27,175)(195,175)])
link(Var2,10216816:FString,[(34,195)(153,195)])
}
Add(StrPart,14854628,77,119)
{
Char="."
link(onPart,10216816:doString,[])
}
Add(FormatStr,10216816,147,126)
{
Mask="SELECT * FROM `%1`.`Лист1$` `Лист1$`"
Point(FString)
}
Add(FormatStr,6365623,189,98)
{
Mask="Driver={Microsoft Excel Driver (*.xls)};\r\nDriverID=22;\r\nDBQ=%1;\r\nDefaultDir=%2;\r\n\r\n"
Point(FString)
link(Str2,1388409:Value,[])
}
Add(Hub,7246550,91,49)
{
OutCount=3
link(onEvent1,7670056:doPart,[])
link(onEvent2,6365623:doString,[(128,62)(128,104)])
link(onEvent3,14854628:doSplit,[(117,69)(117,97)(65,97)(65,125)])
}
Add(Memory,1388409,196,49)
{
}
Add(FilePartElm,7670056,140,49)
{
Mode=0
link(onPart,1388409:doValue,[])
}
END_SDK
Add(MemoryStream,8116148,350,84)
{
Stream=[ZIP0070000078DAED5D075C1349DB9F4D02846A28468A40A4284A911A10E9C88908829E67C1B3A00641290A5811C113CF0287A858E1F43C44D45354101B22589113112BA2A2D845C5762A60CB37B3492059364BB8EFDEEF7DBFDF9BC96F37BBCF3CF3FC9F99E799D999C9ECA4E69266C3B603FAF7012178003AF8C657068A62340C1E5CD10D0BC0783E1F5D8ABE9DE0C19787FF574199090DA9A80042832F2A55021A506402701F7EEF679C8467001EC0E34730133000F8219E17C7F9BF0A3EB80E6118D2A11C3A9E3BBCC2400EA46A023D5C332DFCAC8D9FF7E17CC7F1B33B8C69492EE99132B3A2AF8BD06FC7D0BC70BE5FF0B3097ED60048E2613CCD2D9C62078CC01DF8CD0499C8D569554009F30561200A4482C9200E9EFFD338943BE5F0E88403039EE0388D9AC39192C30AC360AB40C5C1E89403A174CEC1EC94439982A31F88C050FB252A0F7502070704C2F334100112DA4ACF8DA2F46CC09B761B6155A01B3612D2A3010FC44359C3E0F75CF83D02C4425A18886993A9D3894568A047A75675EC9443A5530E4D4A8E379D9637E2E027776691CE39A4A318311C80022C0DCC14580153F8B1854D110756DF528E091808AFAD01598C11C31D3EB67A4A4B360EDA8407A682F114023C811230141760030F2A7462BC116308CC9809B508699A7414360B7A2F176013215B3F4826531AC509B4A2E610C93081DF26A4B15EF8D9883103F4050ED24027C2445490EDF11D0125E344708B617A0F32386271488325E79384F7841FAA3C27024B48A154822AE7645CE40A909541036C1B50F8C0E788F5BACA3988AE20A2BF97D3FF09BAA05F2056CE3402FF41219DB1550A7D9F14FA0A29F4CD52E8D952E8BBA5D0F774519FF552E87F7451BE34FE03FF267D8EE274C50EF41352E8C552E887A5D08BA4D00F48A10BF45112D1B3343537A86E50159503538C5E665C662C2A07E50EFCA2F2B112D05B88FEDC8F94AE2292730D84C04B63115D5592CE16D1D5DAE9F094A2DB814EA82FEAEDFC61B057D9265FA34DFFF07041BE04E5D94D8A1C9614BB6B4A69F7B43AF0EFC5E9DA9DD5F71C4D4DB62A5BB5BDDE2993969B4E7BBE26C14B7D11BDBB54F99652ECD29794CE9652AFD545ED0F53B2FD69A35B686A7A71BC382C21BD07A40FA743F5E649D27545741729FC043A20C15DC8D4010B99E2A37F3F90B5B1E7E724A63548621267066850471D4017CE07881E641AB004681D13605D4D40EB6A027A571330BA9A40A1AB0914BB9A40A9AB09985D4DA0DCD5042A5D4DA0DAD5046A5D4DA0DED5041A5D4DD0ADB304DE84042CDC01A52660E011BC70E472A2EE6147219AB20951A014A2259B10454A21DAB20951A214A2239B1026A590EEB20951A614C29645485520B5757AC82684DA3ABAB209A1B68E9E6C42A8ADA32F9B106AEB18C82684DA3A3D651162EF406D1D43D984505BC7483621D4D631964D08B57538B209A1B64E2FD984505BC744420820172278984A17622A9B106AEB98C92684DA3AE6B209A1B64E6FD984505BA78F6C4224ADB39A20C402D7150941FD254FCF39FC0E425004BF6A135F244449484B4E4EE68BA61D986234D1B484B218CD4B3839A1224613A9D051A9BE04A53CC9957AF7EE5D07A51033512944232A856844A57020A94AF59350EA5312905DA97FAEA488FD0CCBAE764CACBADA31B196F0323A310153A6EA6B238B10BE27B590FEB2082136F3C4FCDB4AE49FDE31FF3F1012D8E199935A604A24F9172F1391D93BFA937D9B3F49ADBEC8FE797979FF422727168F0365F1601D8DE2D86614243C67B4945AC17F91C36F378A054188135EB26465DC11902B090814A5005654F3A57B81735B36DBAA98A417108DE522612C4C9AB1F8FCAA0EC62A2C2CEC602C44231A0BD188C64234E9C61AD0D5BAEC2A51761D9A309176FC148CA2EC064A941D1F007E274D8E5B57DB28F7AEE6CB43225F204C8A139E7B4DE5139E5D55D3ABB3047A8404DE389B94481FAA485FF148A21E83A8F5584B3386A34B7580D9C36C9B4397D3E170802DC395F11DC389E1CEF061D88135CC207888CDB5308CF8EA403A3F2A6D0C0EBB9518BCF0BAFBEFF80AE81A07067C7311A62615A63D09A60905A67D3BA6022FFCCBA31BE4985A54980E2498BD29301DDA311579E14D4D4DE498DA54988E2498FD28301DDB319578E1FC7755E4983A54984E24983614984EED984C5E78FD8B6672CCEE54985C124C7B0A4C6E3BA6322FFCC1EB5BE4986C84E9D805BF3586988E32F86D55E0C1734FC9317B506192F9AD2905A6B8DF5605B65CD84B8EA94B8549E6B77D2830C5FDB62AF0F6EDDBE4987A5498647E6B498129EEB75581FC279BC831F5A930C9FCB63F05A6B8DF560596D6BE22C734A0C224F35B070A4C71BFAD0A3CD770901CB327C2E476C16F3910932B83DFDA3B64EC92624F432A4C32BF35A3C014F75B7B87F7FB53C9318DA830C9FCD6820253DC6FED1D2A2B2BC9318DA930C9FCD68A0253DC6FED1DF875E1E4981C2A4C32BFB5A5C014F75B7B87EC534FC8317B516192F9AD2305A6B8DFDA3BECAAC920C3D40626B0D78AB108BEEA4DC031E42B019614FF84BD91B83302D9C2259C6DB24D89B2ED4964F722C816F743009A92ECC8659B11653B90C83627C816F737C1388B54B63951B62389ECBE04D9E27E05E5950372D9BD89B29D48645B13648BFB0F00E3B2AF93CBEE4394CD25916D47902DEE2700CCDC3B984C7637608106835A0C7B8607C391C18132674BCAA5E9C074EDF168EC84642AF00533490AC26B34DD84CB54447D5BBE6024864166F13BA6C49DB2C41DD2A5AF4097A142B48EBA74C77511C58BEB82E66ADA75F194D40511DA7511DC3125EE9425EED6D2F4403F3872C37519CC7061783306E2A5EA02CF6B98C904ADD87C1540C6294D3F345AFB5F96150358A630F86B98BD25555160F0E1C80F57C089C185E7A18C0168EA024F6195A20453D8105228F1D53AA4E08071B0F1190F04290DE0385615603D18B60C0758EE03E181CADF15B2A13665A8A4403A8BAF0AC879913FE23E08073783464E179401CA757B6383D06CA4A1D993A0694A41B3A742E37BFE7EE4BE10ADBF34340712342D29680E546882073D0D47B39586865A2277029AB61434477C94D8016D2D4D1D16320360BAB0F67BC0541DF5D7E3338028164D6A757872288A5943E091A23B45A87F5F58AC5A00D387E9510BE385EB1508AF6D19C150AF6058039CA0FBB8C2FB35CC55845AD283AF056449295E6B485B72F15AAD2851AB15256AB5A244AD46FA7787866202CC10A238C3D2B46DABD1CE8472EA06AB11918BACCC316453476453435C7F94335B61CE50455AC31C222919EB096D4ACE2B6AADF196F5454E5B6B8126E284F6853C2900D661278250009B7E23861DDE048984D10049B7A0077082858249F20A2A96A3844C54DCCAA0231F9A941097BB96A6093B2A8A0033C63DD40F1E28D79E04050D60F18B7348E4B5A2BA3DAF40B15D5567A4AA31E40F86ADAABB58FB3B80E0594E50D58E7CA22210359B42B97AC005B5ECC6B0F45D186E906FB0981FC41024ABC0969D8C13FD3CD5A63FBF8A2F724934C9D7DE900BEE981277CA1277C8A4035214A049FB119A650521B247DBF35CBC313707AE8005B05ED03D83A19322B5C82BE10F840CE9F259A0B354A2A64CE25125CA139A504455094D83EA00CC04A67285C5EE03657842759DE063D99721B8E2C26B813182A126C1044D54F93A40D6D4E2A6E403B1EAE0964227293B3A2C3B3398D01DCFA237DE728A3F08DD5314612A7B422A45BE06692AC987A136F040ED93398C46C6F1870990C3133A63983EAC91923CE22E8F662F45F941539C787E329863408698904C7C158826180939268328C003DF8304301FBF0AC297884782D9201A56CA10783507C4C2D8760EF1D716B86012FE42CB52D8786FF1C1572F6106785F05F5F8373375E121B93A4BF49DCB64C14372A9573A7C6E28C1CF498C090F009C9ED3C017D0802F67600AFA9C260C6BD82A320417F6500321CDA99DE600FD5719C33B96A86B600B0F1758E339E00A5DF441ABA295811E62A4913066D1451F01A33EF4D01E1D9907C0EC73C001BAE8230373215DF41167E6C3668309DC1D058B94A630D9F0905C562258AAB69E69A7BE5E2C463D9D064286D21968792813FF25BEF16EB73264F99E34C1EA9A71BEB13109BC98848923E7CFE4C58FB799171DB567F58561A76D597ECDFE5F963CB60EC829F4629A37FE549151F1FBC2F2F39BCCD895370BF37FF8DC1C7865A4CF4E0E3BCAAACEA179CBC08771A5C64AC5A737E6E407EC7BE76369F6C260F0F8BC7BCEC1757B47AD58ACAFEB1696D76DE3FB63278E5B382F4B19B262F388BCC42733A70516BA6764C619676EBFF2C98576C1694EEF94AF291A17670FBFA3FB62C56A978795BEB58FE987F61B8E717FF5B875A3D983CC83C73CB9C3F604F832971495AFB9F67267EB77956C1F9B3F8FF6F960B3DD72C5B68B634F8D6CD5DBFF6C02CFE9B2D3CEBB9C77AAE95AA7F7ABAD9878691A47CFFA49D9C02D2B5EDEBE3136EA787D4661C642EE84AA6127F93A933E783ED3BE5A953C2E9986DA533AA1BCF26EE43F2D47BF176182156513E37851F1FD6DD03975D5A5E9A76DD596BD5E5ABAE472D2F02BA775CDE7F4CFCBF4ED9F9B04EE5B24479818DC3678713BB84251A58499BAFD75F32EF76F0569ADF7B39E72D89B772B9E7EE0EB7921E2FE1CF7B2E49F2A976ECF37678E9B37F3E7DCC4DBC5138F875CCE75BB686790E77FC8769D56B7E575C1C74714F84CBD5CC9BA12E077DB71B25972FEEA59136B8D376ED16BE0065EFDC01E51EB3CA960D5CE4A7ED169DBAA2DC12793F7593DF663C4386705463E9ABC6D67FF87DF9766EEE4EDBE6654537CA4F5C6578C2CA333E6AF672F81572B852B61122278D1BCFE62E7A0B098B069BC38E4216A55412AA7392CAFFB49DBE666D6394F29B1F09B5C78A1A0E423F0CDD1F7AEF8EDCAD6DBB58F1F2E71AEBEA7733D7BA8FA58AB1C25F595BC8B36CB0FBF5968956FB0F3967FCFB35651F72BBA3F699CA75B79F017ED7B43CEC70F4F32BD9EB9746F713DE746B1E5F55EAFADEA271C359BEE9E3678F4B3ABCD7D1FF8BDB0ECAD427321575EEBC562D75DB0A3D6CA11D4860ECADB21B55F8E1D9F66E0DCE344FFF79E6AF1AF5B669C331E9AF3E052D4DA7AB333C302FA171F7A397C9483BDE97CE71D8C80051FEE1EEFDFFF609EF3D243CEA51679AA41917DADBFAADEBEC7F27F56B1EAD9EA7037D3BAB8C292D435EBEB97D6EBB50E18BCAA7A80EBD331C73EDD389DE93AD8E549AA9FF5E185798F5C5DF48B9457845B37DF8D088938A2D1C36233E74F933B711B3696C48E4FFCEB973F22E0A8ED8CC6F9C10B958AEF782D6F1D76E07C856D7A4B776E85E6422E6FD672C6F173450FCCBEABF8CD79FBD9805D232D7F5E3EA8407B1BEBDA9645B33ED53706E7F7A96E6ACC4A3F90189D57161CB6C67FE600DB1D6F43A657586EBB949CB47041DCA7BF1AD75E5D3BF1DEB2A75BEFF3F9592F1FEDB7326F593337F265CF5EB7E2C29E2B0F34BABFECD46C8B07348F88A3E61F1EB2F78DB7FEFDD791CB575A176EBEE3F5757BDCAEF247FB7F7F923E4DA96EFB96A789C573764CC476DE3CF3E1C5D7D0B2F58DDF0347A3D37F6ADBECA85E90F7226F8C7A965B6842F3F3D2E975E5333EFD619073FBC417A7372A59CF9AB96F9678F7D813D1D0DDE2E467837965575FBE0FFCAA92D530C3A065C1AEFABF9EFFBC4841C5628586738D79D9A8A68251D9DE3BD25F85DE0FBA6770CD72D7BB9E0A9733FDB27326FF6932EBC64DD5CB7476372F2F951166FE8F963FEE197C5997569A663160F98AA2C1E118E3414FBFF4D333778DD0CFDAFD66F4B705CF87CCD76D9AB47DC8D02DE5E9B16A43166918574CB5097DA55EF37C7AE634CF2F6FDEBF5D9BBFAA2CF9D349A560E3E4B5D57B47EAC595586C6E8C4B5ED8CAF7F44CBAD7FAF5F6A56F2D6F72A73E9FED56FBF652D9B74B7F1927CF5FBD60CCAC9895D38CB7BA25C7BD7BB996FFEDE3F565ECA6265DC3676F3495EDE6C6DC9FF2D446356C31FB5B0BC763EB190BAF33995ED8B3433B5FA59583BBA126D34FCFDE1F79EAB3DD544383379F1E2C3E395BF78CAAB795C33D351FFA914BBA4DFB6F4E4FC98EB3B9782AD7CFB128D8A87FC29DF1A91951F173874F753952B6D1F79339775D3D30707C1DA2A3EC785A939DF125DD7072D4D8FA9254DD39F57D1E6E9CC5ED5E5D72A69133D9A972794FDDC559AA4D6B585F0A0F6A32461B1CAA2B7B9DA05BBCF7D8B255816651AA83AC1F0DDEA81F7E3C834D5BCA5D67AA33A2BE21D19FC15D739AE7766356924DF95587C04D57B74EAA8EB63F3C65CCBE27EFB333C35EC6DCCBBF5033E8DC4F3D6F25BCEA752E61EA2AC339749DEAE89BBD56D00C3F733D53597ED586BDA3DE2485BF62B56A2CF2BA3C6AEEBD3E3767365FD03EE9EE5FE09AE7E6F5A84FDACD07175E6CD47B3BF0C72B7D4F1DB2BA9AE16B5A7268CAE45F32AA2787A77E343AA76398AB7CAEBAF4B0B59A6B54CC4DB73E49A6297B0AD3A217CFA66F3AD0EF9E69D581DC4F3917758E0E3EA259E8EB36655CCBCBFEB55A97B4FC7AAD3C1C794261426DF4DD65FDA605E51D6E6C0951BA6B52D3CBE7F8985FE2B29768581F393CBD549B933BA7726ECCAA5A5E54CB6BAB44B58F8FE94BCEE97D343FDF107FC16B722D6F4244B6E6EFE718F3CBD3598EBA8712544D7EFE1CAF3976F4BA9BA7FA393B3947BF528CC84A5FD4C7ECF2D0ECADC5872AF889B78C2EAC4F74525F35FEC0EAC2EABAE75143FB96CC50AFE6DEF1DCBFB7719B5F8292AF795DD5D80DE32FF2463FFCF6A2647374626BE186BA1BB37EFC686FF35E774369E082C277D3176C3A9EB4B8FABB2D73CCF23D9EAB59B8FDA5599315E2AA337465F3115785076FD4A7D9A778EF1AFC6BE68397CB671A95E75A25DA6E5B9C7DD6BFD2C54EFB354B538DEEB82CF7F742CB7555F3762F38F7EB8087337FDAFEF3DE63E65B6C4E2571870CF3B9C09BFF7CD3C8D08C411E13DE15CD7229D6523E36EA5270B3FD87954D81BFFE59C0F4AFFB2BB3A6B7C39091D666CFFFF08E349BADA8F65D51668865A2B9D566365B7DD7A2C7BBD5D95ED67FA92C5498DB909678E1833B0BEBE592B3644E92C9D7AC230B1E8F7F5C35BAB131FA9CA309087DF503E3D196988082711BFA8CDE907A4BCF2D3AB3E6D445B36D56B9FA1E46E53D1E3ABA3E7E363622A7B6F6E29D3C45F7481527E3D451C372EFCED34C4BFBA4FFE8463CFD97F781DEA64F8F3CBEB1DB23B54AF7E2B8573AC332EFDBE5F8BE9CD96AAD7659EFCEB574BF9CA896B4A9EBE757F9757BCBB13B12E03A84CB5C517EC077C8CDB8C7EF1C9C6BFC1FB3CEEEFD7171EA9B5B6B66F884CEAF3FBFF86A509F878D3AAB96BE9A133D28D475FE52B5AD8F545EE4077C7930A96F25BBE15598ED80391ACF4C4EA471CE7C5930567FA68FCB8F6659DA338631EF64F15658AD2A2B3E95B563FCD7DD016743EC339EB97945FA5D5E3B9F367A975B6EEE5D7B8388D8C6CD277FDB3CE48ACF3CDBB50AA39C770F0F2ADABD7AE6CDD0D9136DCCACF3CD2F1E0FD71FEB372A2891ED103E66DD62A77113F69C9FB16754EF9F73768C6E319BBD2FFFCE937EB57B3F288F5D07964CFB5834B2DE4187F14BA8C726EF20FBBB81A7EDA7E5E786378DB17E637EAD7A84D9C13D13C7ED1A5F346E94E99EAB271B96F6F33CBF77B0B55AD0E8A41D85078FF16A634FD69DA4FB1BB93F5BD063E4CCC70147AE66683A0EF2BDBED62C927EE8BCEFEA18F579716CBBC8A3AFD77D3954BBB7A5DE67D7FD66D509D72DBBEB2F2A098DF8BCA8F84EF385BC09F9EF982A69CC53855BEFBCE9D610B0C4E66AE222A713B36A8D0B62A20BD2C78E99FA5CA56CE7F23F4ABEC59D3DF222B8A0E5D7D5C72BE71AD2863C2D0DE5D5ECE10E2CF629BA65A4737C42FEF08839337EF5D977636FB36269C1BD080DA3A3D5AB69894DD36BFFF860B034F4E86DEB79C56BB6DF8B603F9F9077E5E3F3A6EFEECDF00CB8AD3B66FE1A8F11E352E677DF372399F4E1AE7E3973EB21B4C817132C56147FB80BBA63C4FE89B07B16A472CA5627B5F9A7B9CCD8D8ABC758AB7BD72FAFD97B8D9EFAC8499DEB6936FC65937A8115D36659D8894D91251B7EADD49E627FD72E62B73ED3B571DDACCD27A38FBCCCF01AC11EB6A26EE0D4FD937ECA88756EEA3E6DF5508BA0DE66232C6CEC36C669F409589B53B372646B4A814BEEAA518F4C7277789F2FA9F16F9E9DF4DBDB6C6CE159B3D2C9ACC4EB406F7DC8667ED15717FD15D3FA1BB3C77F1BEE1D5FB754C1E2F773550DA6D9BB03197F8E3B76ECCC3D20CA3A06C7B7D2FBEB9281A4F74E1440ECC08AAD61C324BAB3C484C40EA1D8BA6F1A75F7902889D83B6B0F3768D2FA6A44194427680F452A32BB44C8500545C10B340A603C1454801748361C68661306A1E990964E187CA2375004BB53B02476A750A5E948BC9AF3E76000BEF8A3D74368F8A89B0687CBDDF06B4D7CFD100B66E9CBAEB757822687784EC4E9FD70BA257EFE09A7A48076707334F706ACB0C530E6244347F832C2129C3B153FF786DCE17878E2D947ECDAA24DCA33CFBE62D74170E009803F1CBCA33D06C2403C1CB4C78100784E809410781D0BC2F17D03E2E1503E16C4E06FC1A3183BFCA741AEF0671F3AB8031CE9DDB6027CA783CDAA8E4C74A504C6D030C112AA7F5BF87ED0A0207C05363CFC43388161F1BCB8005E0227242E369C171F1F191B1316C509B1E3DA72A792A6A7115E1953FE070E912C74E8335880F8A24F28E8381182424A4A0A9A7902F89E3662177CC0EFA0375A873DF56F96D95DBAE0680726D7872C2C988C85398AA565A440254FD694579CBD011DAEE1C597A657FFAC81FF95B2E322C3A2C07F5FD8064CA09F4E85B6461F1AACC50038E0E1AAA7E81B0339CCDEF0902EC5CD4174F50394C10449F894150066CA8304EB4FE13D927FDB74105ECB92F0161260A27840D3686B4905F590496309AFAD70374CC13C719AE055CEED38AD5C48A391D0E824340681568ABFAF26588CD9DB0B9DB95E18F88A66EB852B2E81F00E033E786A7447C3E3686D7718F0C5F54677743C0E6BBB43718AC23B061E476FBB4371E867A65AA0019EC3EF10F898EC897F3C685AE090A24833D1771A7C0AA511967D1AC236844E13363034A40C368DD9034C638A376A18FA218B3E48F02CFBCF0CDFF84058B2920165AC61E9D677ADC111AC3F563381659FA23AB40AFF37E15B3298B06C50D9FA0BA783C708DF438C10BEDD99227C69335DF86AE146A1873D6408DEB94269D0A652A277B088F7C80F8322A7C4C5C6C7862770FCE64DE14509ECF263F4E27EDE75187EAD35F4E70FF09A0EE4411EE4411EE4411EE4411EE4411EE4411EE4411EE4E1EF8CFF69D72F5ECFB13160ADDD00C7FF56AD0568FC7F1C086657513CDA50AE9B70DC8FB6C94133A1688A3F4A38764F108EFB1702C10F11A962F301687E600B613E8021C4168CE5596DBF9F48FB366209F4401336179EBD7D6707D45802894662D4CFED2FD8CA833CC8833CC8833CC8833CC8833CC8833CC8833CFC97064C380617ED7CA7201C39A3DFF899C2B1BE8A70CCAD261CBF6B08C7FD688C8F362FD6128EF3456BE5D8C2F900F49A18DAB416ED398BB68C45CB1A0D85A373B45D2A0708362B457B8DA2AD42CD80E0BFC4D03E9B68D1215A5D853695447B38A22D13AD84F1685F42B4AD209A8F40AF9AA37755D132184761FC57787C93FFB5974C01FD3F512CBE0ED10FC4C0EF3830BF4BFEC3060A984816F2230E533097542E88FE4E9C3765A9433A5AAB21FABF38144643F43830034CC6F598D165FFD502344C3C3FB2A69B3E44F0AD00BEC75FAD44FFD184F23E04964238AE13A22408D7634A0F16101F13D61F59F1D166B48025C21F0411A6E03AF0700B744D1F97BF917F6B31FCFF01CE46B430]
}
Add(FileStream,11349030,399,140)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
Point(doPosition)
link(FileName,11947023:Result,[(405,128)(315,128)(315,198)(279,198)])
}
Add(Hub,2808741,322,154)
{
link(onEvent1,3395958:doData,[])
link(onEvent2,11108326:doText,[(345,167)(345,202)])
}
Add(DoData,3395958,350,154)
{
link(onEventData,11349030:doCopyFromStream,[])
link(Data,8116148:Stream,[])
}
Add(ComboBox,2536509,455,315)
{
Left=10
Top=260
Width=140
Height=21
Font=[Courier New,8,0,0,204]
Strings=#12:Detect =9|12:ANSI =0|15:UTF-16 =1200|16:UTF-8 =65001|15:UTF-16 BE =1201|12:OEM (DOS) =1|
DataType=1
ReadOnly=0
link(onClick,9052723:doEvent1,[])
}
Add(StrPart,14818444,609,322)
{
Char="="
link(onSplit,4143904:doEvent1,[(857,328)(857,265)])
}
Add(Hub,9052723,518,322)
{
link(onEvent1,14818444:doSplit,[])
link(onEvent2,1603248:doWork3,[(557,335)])
}
Add(HubEx,1603248,553,259)
{
link(onEvent,16200208:doEvent1,[])
}
Add(HubEx,5776200,763,231)
{
link(onEvent,7756711:doEvent1,[])
}
Add(Hub,16200208,574,259)
{
link(onEvent1,3519520:doEvent1,[(822,265)(822,244)])
link(onEvent2,11136757:doQuery,[])
}
Add(Memo,12745637,1078,217)
{
Left=400
Top=40
Width=375
Height=185
Font=[Arial,10,0,0,204]
ScrollBars=3
InCharset=1
OutCharset=1
Point(doLoad)
Point(doSave)
Point(doInCharset)
Point(doOutCharset)
Point(doOutBOM)
}
Add(Hub,4143904,875,259)
{
link(onEvent1,6078793:doInCharset,[])
link(onEvent2,12745637:doInCharset,[(903,272)(903,291)(977,291)(977,265)])
}
Add(Hub,3519520,875,238)
{
link(onEvent1,6078793:doClear,[])
link(onEvent2,12745637:doClear,[(977,251)(977,230)])
}
Add(Hub,7756711,784,231)
{
link(onEvent1,6078793:doAdd,[])
link(onEvent2,12745637:doAdd,[(813,244)(813,223)])
}


Редактировалось 1 раз(а), последний 2023-02-16 14:16:39
карма: 0

0
Ответов: 282
Рейтинг: 23
#4: 2023-02-16 18:34:42 ЛС | профиль | цитата
vovs писал(а):

Ошибка.


Редактировалось 3 раз(а), последний 2023-02-16 18:37:32
карма: 2
0
Ответов: 649
Рейтинг: 138
#5: 2023-02-16 18:41:41 ЛС | профиль | цитата
vovs, Тебе принципиально использовать OLE DB? Или можно использовать другие способы?
Компилятор - delphi

Add(MainForm,3072275,84,119)
{
Point(Handle)
link(onCreate,16338796:doCreate,[])
}
Add(FormatStr,6654860,182,133)
{
Mask="Set objExcel = CreateObject("Excel.Application")\r\nSet objWorkbook = objExcel.Workbooks.Open("%1")\r\nSet objWorksheet = objWorkbook.Worksheets(1)\r\nobjWorksheet.Range("A1").CurrentRegion.Copy\r\nobjExcel.Quit\r\nsys.onEnd nil\r\n"
link(onFString,4900988:##SetScript,[])
}
Add(VBJScript,4900988,231,133)
{
WorkPoints=#11:##SetScript|
EventPoints=#5:onEnd|
Script=#0:|0:|
UseName=0
link(onEnd,14415207:doDeferredEvent,[])
}
Add(MemoryStream,8116148,133,84)
{
Stream=[ZIP0070000078DAED5D07581349FB9F4D02846A28468A40A4284A911A10E9C88908829E67C1B3A086A21405AC88A0E229C2210A56383D0F11F51415C4AE800D3911B1222AF6868AED54C053F3CD6C124896CD1AEEBBEFFB3FFFE7CBF06C7B77E6F77B67DE77666726B34BDD45CD7B5BF6E9DF0784E001E8E02B5F19288AC930B87145172C00EFF3F9E8547474821B5F1EFE5F05652634A4A202080DBEA0540D68409109C07D78DCCBA8847B001EC0ED4730033000F8218117CFF96F051F5C87300CE950011DCF1D9E61201F4A35811EAE9916BED7C6F77BF078C7F0BD3BBCD39AE2AE913AA3AAAF8BD06FC7D0BCF0783FE37B137CAF0110E2413CCD4D5C62078CC06D7864826CE4EAB41AA084F98230100DA2C064100FF7FFAD1836E00DD48D098E21B5B01AD00D1B09E53180071200070C83C739F03802C4415918881562B6A7A0C0E4A774155398E2DFCAABF23763787C2306063C01B51E1870A48C618561B0F5A28AC1F8660CC4F2ED18CC6FC650A688D10F4462A89D1595873A21060704C27D04880489EDA5E7F60D5F6AB791CC760740E71B16A1811EDFB4AAE33763A87C3386E63F584F8C180E4001EA8D99022B600AFF6C61E3C6810DC2718E091808CFAD01D91D23863B7C10F694966C1C64E081A9603C058027500286E2003670A36227DE37620C811935A18690A64967B099D0CFB8009B08A3F5836232A5D13D8156D431441826F068427AD70BDF1B31A683BEC0411AE94498888AB2E37E6742C97B22BA4530BD07191DB138A4D192C793A4F7847F54794E02965042A90455CEC962912B405606F7602D46E1039F23D68FABE020B9B248FE5E2EFF27E4829E865839D308F1F70BE58CCD52E47BA4C8D3A5C8374A91E74991EF9422DFD5457DD64A91FFDE457C69F1F7FD1FE9731897AB74929F90222F93223F28455E2A45BE4F8A5CA08FAA489EABA9B94E759DAAA81CD4C4E4E5C6E5C6A27250EF145F543E5602792BD19FFB91CA3544385741083C3516C9BB49CAD92239AB430E77A9BA9DE484FAA2D9113F0CF6FFDAF1B5DAF50F0F17E44B509EDA527074A4D8BDBB94768FDD29FE6E5CDEE35BF53D5F5393ADCA56EDA877CAA4E5A6DB91AF49F0545F24D7938A6F29C52E7D49E5FA52EAB5A6A8FD614AB63F06F074381DA672D1D4F4E2787158B40AC9F81692720551FCB942B99057898803E50B983A6001537CDE6010F8E106AD4732D31A243389730A34E89B3A802E9C49103DB0342023AD7302ACAB09685D4D40EF6A024657132874358162571328753501B3AB0994BB9A40A5AB0954BB9A40ADAB09D4BB9A40A3AB09BA7D2B813721010B7740A90918F80D5E3872395137B03388A66C200A94205AB28128528268CB06A24409A2231B089312A4BB6C20CA94206C59406A02A9ADD34336106AEBE8CA06426D1D3DD940A8ADA32F1B08B5750C6403A1B64E4F5940EC1DA8AD63281B08B5758C6403A1B68EB16C20D4D6E1C806426D9D5EB281505BC74402049083081EA6D2414C6503A1B68E996C20D4D631970D84DA3ABD6503A1B64E1FD94024ADB38A006281EB8A40507FC9D37336BF1308BAC1AFD9C017812809652929297CD1F402534C269A7E5016937909272154C46422153A2BD597A09427B952EFDEBDEBA4148A4C540AC9884A211951299C48AA52FD2494FA940C6457EA9F2B29623FC3B2AB1D13ABAE764CAC25BC8C4E4CC094A9FADAC802C2F7A406E92F0B08B19927E6DF5622FFF4CEF9FF8190C00ECF9CD4025322C9BF789988CCDED99FECDBFD496AF545F62F2C2CFC0F3A39B1781C288B07EB6C14C776A320F0FCD1526A05FF453EBFC32816041027BC64C9CAB83321579210284A21ACAAE54BF702E7F66CB65731492F201ACB45C258983463F1F9359D8C555252D2C9584846341692118D8564D28D35A0AB75D955A2EC3A356122EDF8A91845D90D94283B3E00FC6F34396E5D6DA3DCBB9A2F0F897C8130294E78F635954F787E8B95E8B55E145E4B04F7A606CFA119C311A03AC0ECA16AE6D02D74381C60CB70657CC77062B8337C1876603533086E62F3210C23BE3A901E1F95080687C64A0C5E78C3FD777C05748E1303BEB98853938AD39E84D38482D3BE83538117FEF9D175724E2D2A4E0712CEDE149C0E1D9C8ABCF0E6E666724E6D2A4E4712CE7E149C8E1D9C4ABC70FEBB1A724E1D2A4E27124E1B0A4EA70E4E262FBCF1450B3967772A4E2E09A73D0527B783539917FEE0F54D724E36E274EC82DF1A434E4719FCB62670FFD9A7E49C3DA838C9FCD6948253DC6F6B025BCFEF26E7D4A5E224F3DB3E149CE27E5B1378EBD62D724E3D2A4E32BFB5A4E014F7DB9A40FE930DE49CFA549C647EDB9F8253DC6F6B028FD7BF22E734A0E224F35B070A4E71BFAD093C7B6F3F39674FC4C9ED82DF7220275706BFB577C8DA21C59E86549C647E6B46C129EEB7F60EEFF7A691731A517192F9AD0505A7B8DFDA3B54575793731A537192F9AD1505A7B8DFDA3BF01BC2C93939549C647E6B4BC129EEB7F60E79279F9073F6A2E224F35B470A4E71BFB577D8519745C6A90D4C60CF1263117CD59BC063C857022C29FE09C0A0F8D3026CE102CD766C5322B63D09762F02B6B81F02D09C6C478E6D46C47620C13627608BFB9B602C448A6D4EC47624C1EE4BC016F72B885701C8B17B13B19D48B0AD09D8E2FE03C0B8BC6BE4D87D88D85C126C3B02B6B89F003063F76032EC6EC0020DD8B418F60C0F86238303316749E2D27460BA8EFB687C833015F882D91E05E1399A12C2311581062E40A3250C4616BF624A5C294B5C215DFA0A74192A64EBAC4B775C17D17D715DD07C4A872E9E92BA2041872E822BA6C495B2C4550E4D0FF483A32B5C97C10C17863763205EAA2E70BF9A9942D08ACD57016431A5E9874654FF66593180652A83BF9AD95B521505061F8ECE70059C185CB81FCA1880A617F01456A94A30850D2185125FAD530A0E18071B9FF14090D2008E355501D68361CB7080E53E106EA8FC5D6134D4A60C9504A4B3F8AA803C2EF247DC07E1E066D0C869823240B9EE686C109B8D34367B12364D296CF6546C7CCFDF0EDD17B2F597C6E640C2A62585CD818A4DF0A0A7E16CB6D2D8504BE44E60D396C2E6888F123BB1E5D0D461213300A60B6BBF074CD5597F3D3E0388EEA289A74E4F0E45316B083C5274A508F5EF0B8B550B60FA303D6A61BC70BD02E1B92D2318EA150C6B8013741F5778BD9AB992504B7AF0B5802C29C56B0D694B2E5EAB15256AB5A244AD5694A8D548FFEED0504C8019421667589AB6ED35DA99504EDD603522C6222B730CD9D411D9D410D71FE5CC56983354915633874822633DA14DC9E38A5A6BBC657D91DFDE5AA0C932A17D619C5400EBB0130114C0A6DF886187374122301A20E916F4004EB05030C9B8828AE52881898A5B19748E872625C47173689AB0A3A2083063DC43FDE08672ED4950D00016BF780C89BC56D576E4152876A8EA8C543586F18361ABEA2ED6FE0E2078961354B5733C5111889A4D21AE1E70412DBB312C7D17861B8C3758CC0F6209C82AB065278B897E426AD79F5FC317B9249A88EB68C805574C892B65892B64D201A90AD0A4FD08CDB28290D9A3FD792EDE989B0357C002582FE89EC1D049915AE495F007428674F92CF0AD54A2A64CE25125CA139AF44355094D55EA00CC04A67285C5EE03313CA1BA4EF0B1ECCB109C71E1B9C018C15093608226AA7C1D206B6A7153F2815875704BA593941D1D969D194CE88E67D11B6F39C51F84EEA98A30953D2195225F833495E4C3501B78A0F6C91CDE46C6F1870990C3133A63983EAC919271C45D1ECD308AF283A621F1FC6431C7802C31906C7CA586261809634C06D18007BE0789601E7E16842FD78E02B3400CAC9421F06C368883773B62882FF6E78249F8EB2A4B61E33DCA075F618419E07D15D4E3DFC8D4859BE40A2AD1B180C9829BE472AC4CF8DC50827F9518136E00383DA781CFE008FE2B2453D0E7346158C356912138B1871AA800651ADE8944DD005BB8B9C0DACD01B9745491D0DB626AC40803A0D61CB08FCEC17FA2164452258F5442EF882285E8321D3D5594A17E42ED9C3AB473802EA502EF18380A96084D61B2E126B9A843B0506C2DD34E7DADD81DF54C1A08194A67E800453CE7BD40D39D6EE5C8A63D6982B52DE37CE3621379B1891347CE9BC14B186F3337267AD7AAF3C34ED9B2FC5AFC3F2F796C1D905FE2C5346F5A5C9555F5DB828A731BCCD8D5374A8A7EF8AB25F0F2489FED1C76B4558343CBA6810FE38F1B2B959D5A9F5F14B0E79D8FA5D90B83C1E30BEF3A0737EC1E95BE485FD72DACB0DBFAF7474E1CB3705E963A247DE388C2A4273322024BDCB3B2E38DB3B75EFEE4423BEF34BB77EA97548D0BB386DFD67D91BECAE561B56FFD63FA81BD8663DC5F3D6E5B6FF6207BFF114FEEB05D01BECC25A515ABAFBEDCDEF65D35DBC7E68FC37D3ED86CB54CDF7261ECC9916D7A7B9F4DE0395D72DA7E87F34E3553EBD45EB5F4891723387AD64FCA076E4A7F79EBFAD8E8638D5925590BB8136A8655F275267DF07CA67DA526655C0A0DB594744279155E2F7A5A817EADC104EBB926C6F3A213FADBA07DDACA8BD34ED9AA2D7BBDF4F8924BC9C32F9FD2359FDDBF30DBB77F4132B86F9112696270CBE0C5ADE02A4595A3CCB4ADAF5B76B87F2DCE68BB9FFB94C3DEB853F1D4035FCFF391F767BB97A72CAE5EBAB5C89C396EEE8C9F0A926E954D3C1672A9C0ED829D41A1FF01DB355ADD9637041F1B51EC33F55235EB7280DF2DC7C9662945AB664EAC375EBF49EF1E37F0CA07F6887AE749C52BB757F34B4FD9D66C0AAE4CD963F5D88F11EB9C1B18F568F296EDFD1F7E7F3C7B3B6FE755A3BAB2436DD7BF6064199D3E6F2D7B093C5B215C879218C98BE1F517DB0785C58645F0E29187A8D504A99CE2B0BCEE276F9993DDE03CE5A885DFE492F3C5473F02DF7C7DEFAA5F2F6FBE55FFF8E112E7DABB3AD7F286AA8FB5CA57525FC1BB60B3FCE09B05564506DB6FFAF73C63157DBFAAFB93A6B9BAD5FB7FD6BE3BE45CC2F064D36BD94B77973572AE97595EEBF5DAAA71C261B369EE1983473FBBD2D2F781DF0BCBDE2A341772E5B55E2C72DD01BB606D1C416DE8A4BC1D52FBE5D8F11906CE3D4EF47FEFA996F0BA75FA59E3A1F90F2E46E7349A9D1E16D0BFECC0CBE1A31CEC4DE7396F6304CCFF70E758FFFEFB0B9D971E703E6E51A81A14D5D7FA8BEAADBB2CFF67552B9FAD0A77336D882F399AB67A6DE3D246BDB6018357D60E707D3AE6C8A7EBA7B25D07BB3C49F3B33EB8A0F091AB8B7EA9727AB875CB9DC890C8431A3D2C3672FE30B91DBF6EFDD1B8F1497FFEFC7B241C8F9DD63837788152D96DAFE56DC3F69DABB2CD6CEDCEADD25CC0E5CD5CCE3876B6F481D97755BF3A6F3D13B063A4E54FCB07156B6F615DDDB470E6A7C6A6E0A23EB5CD4DB999FB92620ACB83C356FBCF1860BBED6DC8B42ACB2D17539217CC8FFFF46753CE959C8977973DDD7C9FCFCF7DF968AF9579EBEA39512F7BF6BA191FF65C79A0D1FD652767593CA079441E36FFF090BD67BCF56FBF8C5CBEC2BA64E36DAF2F5BE377543CDAFBDB93CC08A586AD9B9E2695CDDE3611DB7EE3F487175F42CBD7367D0F1C8D4EFDA16DB3AD767EE18BC231EAB96EA1892DCF8F4F6BA898FEE97783FC5B273E3BBD51C97DD6C27DB3C4BBC7AEC87BDD2D2AFF32985B7EE5E5FBC02F2AB9F7A61BB4CEDFD1F8E7F39F162AA858A46B38D799978F6A2E1E95E7BD2DF355E8FDA0BB06572D77BCEBA97029DB2F2F7FF21F2633AFDF50BD446777F3F2521961E6FF68F9E39EC1977469C7332C062C4F2F1D1C8E311EF4F4CB3C3563C708FDDC9D6F467F9DFF7CC83CDDE6495B870CDD549119A73664A18671D5549BD057EA75CFA76547787E7EF3FE6D4ED1CAF2944F954AC1C62939B5BB47EAC51FB5D8D8149FB2A08DEFE9997CB7EDCBAD8B5F5BDF144C7D3ECBADFEEDC5F2AF17FF344E99B76AFE9899B12B228C37BBA5C4BF7B99C3FFFAF1DA327673B3AEE1B3379ACA767362EF4F796AA31AB688FDB595E3B1F9B485D7E96C2FECD981EDAF322AC09D509369A766ED8D3AF997DD544383379F1E2CAA9CA57B5AD5DBCAE1AE9A0FFDD045DDE6BD37A6A5E6C5DB5C3859E0E7581A6CD43FF1F6F8B4ACE88439C3A7BA1C2A5FEFFBC99CBBA6113E015E87E8283B9ED264677DCE349C1C3DB6F1689AEEECC63E0FD7CFE476AF3D7ABA8933D9A97A794FDD45B9AACDAB599F4BF66B32461B1C68287F9DA85BB6FBC8B2958166D1AA83AC1F0D5EAF1F7E2C8B4D5BCA5D63AA33A2F15E923F83BBFA14CFEDFACC649B8A2B0E811BAE6C9E541B637F70CA983D4FDEE76587BD8CBD5B74BE6ED0D9C53D6F26BEEA753671EA4AC3D9749DDA981BBDD269867F713DD3587EB586BDA3DF2487BF62B5692CF4BA346ACEDD3E3766B49CD7AE74F72F762D74F37AD427E3C683F32FD6EBBD1DF8E3E5BE270F585DC9F2353D7A60CAE49FB36A2787A77D343AAB6358A07CB6F6F8416B35D7E8D81B6E7D924D53779564C42C9A45DFB0AFDF5DD39A7D059FF22FE81C1E7C48B3C4D76DCAB8D697FDEBB52E6AF9F55A7130EA84C284FA983BCBFA4504151E6C6A0D51BA6352D7CBE7D8989FE3F39668581F3A38EDB836A76076F59CD895F5BCE8D6D756496A1F1FD3979CD5FB687EEE5EC279AFC9F5BC0991799ABF9D65CCABC86439EA1E485435F9E9AF04CDB1A3D7DC38D9CFD9C939E69562646EE6C23E669786E66D2E3B50C54FBA69747E6D9293FACAF1FB5695D4363C8F1EDAF7E874F55AEE6DCFBDBB9BB6F8252AF99A37D48C5D37FE026FF4C3AF2F8E6E8C496A2B59D7707DE68F1FED6DDEEBAE3B1E38BFE4DDB4F91B8E252FAAFD6ED36CB3228FE76A166E7F6AD6E586B8EA0C5DD172C855E1C11BF508FB54EF1D837FC97EF072F90CA38A02AB24DB2D8BF2CEF857BBD869BF6669AAD11D9715FC5662B9A666EECEF9677F19F070C6E2AD3FED3E62BEC9E6643277C8309FF3BC79CF378C0CCD1AE431E15DE94C97322DE523A32E06B7D87F58D11CF8CB1FC54CFF863FB3EB7A3B0C19696DF6FC77EF28B3598A6ADF9566875826995B6D64B3D5772C7CBC539DED65FDA7CA028539F73292CE7F706761BD5CF297CC4E36F9927B68FEE3F18F6B463735C59C753401A1AF7E603CDA141B503C6E5D9FD1EBD26EEAB9C564D79DBC60B6C5AA40DFC3A8A2C74347D7C7CFC646E6D7D75FB85DA8E81EA5E2649C366A58C19DB99A19199FF41F5D4FA0FFFC3ED0DBF4E9A1C7D7777AA4D5E85E18F74A6758F67DBB7CDF9733DAACD52EE9DDBE9AE9971FDD9A3175EDBC1ABF6E6F397687025C877099E915FB7C87DC887FFCCEC1B9CEFF31EBCCEE1F17A5BDB9B97ABA4FE8BCC6738BAE04F579D8A4B372E9ABD93183425DE72D55DBFC48E54551C0E70793FA56B3EFBD0AB31D305BE399C9890CCEE9CFF3C7EACFF071F9D12C577BFA30E6ED5C5EBAD5CAF2B293B9DBC67FD9197026C43EEB999B5794DFA59C79B4D13BDC0A0AEED81B44C6356DACFC75E390CB3E736D73144639EF1C1E54BA73D58C1BA1B326DA985917995F3816AE3FD66F545012DB217CCC9A454EE326EC3A377DD7A8DE3FE56F1BDD6A366B4FD1ED27FDEA777F501EBB062C89F8583AB2D14187F173A8C706EF20FB3B81A7EC238A0AC29BC758BF31BF5A3BC26CFFAE89E3768C2F1D37CA74D795CA7B4BFB799EDB3DD85A2D6874F2B692FD4778F571950D95747F23F767F37B8C9CF138E0D0952C4DC741BED772CCA2E807CEF9AE8A559F1BCFB68B3AFC7ACDE703F5BB5B1B7D76DC6F519D70CDB2BBFEC2A3A1917F2D2CBBDD72BE7042D13BA64A06F364C9E6DB6FBADD0B5862732569A1D38999F5C6C5B131C59963C74C7DAE52BE7DF9EF47BFC69F39F422B8B8F59755C7AAE718D2863C3D1ECAABDBC51D58E6537AD348E7D884A2E191B3A7FFE2B3E7FAEE16C5E3C57723358C0ED7AEA225354FABFFFD83C1D2D0C3B7ACE796ADDE7A3792FD7C42E1E58FCF9BBFBB3BDD33E096EE9879AB3D468C4B9DD77DCFF414D287BBFAA5ECCD07D0125B4CB05450FCE12EE88E11FB27C2EE5990CA495B9DB496C573987171578EB056F56E5C5EB7FB2A3DED91933AD7D36CF8CB66F5622BA6CDB2B0131BA28EAEFBA55A7B8AFD1DBBC89DFA4CD7A635333756C61C7A99E535823D2CBD61E0D4BD931667C53937778F5835D422A8B7D9080B1BBBF5F11A7D0272F2EB568C6C4B2D76295839EA9149C136EF7347EBFC5B6625FFFA360F5B70C6ECF86456D235A0B7366423BFF48B8B7E7A447F63F6F8AFC3BD131A962A58FC76B6E69E69DECE40C61FE38E1C397D1788B28EC191ABF4FEBA6420E9BD1301881D58B11564984477969890D821145B754DA3EE1E129188BDB38E709D26ADAF46C4203A4147285591D92542862A280A5E5F5100E32150315E207970089947185E66425926615889DEFF107C558225F15509559A8EC48B318B070390EB8F5ECEA0E1E3691A1C0877C3CF35F1D53B2C98A5CF3BDE5E0E9A1CE2391197F7C3E596F87E312E49051DE4E668560D58618BE09D4A868EF055802578EC347CDF1BC60EC7C313CF3E62E716ED28CF3CFB8A9D07C1012800FE70588EDEB90F030970381E0F02E03E114A42E0791C08C7DF354F8083F438108BBF9D8EEED8E13FFA71F1C126C6A083DBC091DE6D33C0DFFCDFA8EAC844674A600C0D132C60FADBE1FB418382F0F5CB8AFF7E7AFF104E6058022F3E8097C809898F0BE7252444C5C586457342ECB8B6DCA9A4E9698417B694FF814D8485367D060B105FB309059DA73850484D4D45734A00FF168DD8091FF03BE98D56414FFD9B657E872ED83A88C9F5210BF32763618E626919A950C9CABA8AAA33D7A1C3DD7BF1B9F915F847C37F123B3E2A2C1AFCEF852DC004FAE954686BF44783B51800073C5CF1141D3190CFEC0D37E9286E0EA2B31F20061324C31610E1C5687613D42A9A467B4B29A8674C1A4B786E85BB592AE689CB042F4A6EC5651542198D444627913108B2E3F8DB6082E58BBDBDD09EEB85812F689E1D9EE3338EC22B0CF8E2BAA12B1A7E4FB1FD0A0382AFEDA02B3A7E0F6BBF42F7E8C22B067E4FA9FD0ADD43B27AA0019EC363087C0CF6C4FF3C685AE080A26811A648C30CF894C99028631F6008DB08BABA70D5A53AFCA3D323983D400453BCD1C2D04F50F4418267D5FF76F8CA07420B4A0664B17B4B37BF6B0B8E64FDBE8A092CFB9436A0B5F4BF0ADF75C184B640F6F2174E188F11BE4D18297C473355F8EA65A6F005C1F5424F7EC810BC3985D2A08F4A89DEA4225E237F0F8A9A121F9710179EC8F19B3B85172DB0FF8F318BFA793760E83CD529A2A7353CA70379900779900779900779900779900779900779900779F83BE37FDAB50BD7F26D0C5839EBE0F8DFAAAD188DFF8F01C12C2DBA8F3EFFD64D38EE471FBB4133AAE8A78268E1D83D5138EE5F00043F68A489CD07A0F9814D84F90086905B309667B5FF0E23ED68C412E8812686CE3F7BFBCE0EA8B104884662D2BF3A5EC1950779900779900779900779900779900779900779F81F0D98700C2EFA7E9D8270E48C7EE3670AC7FA2AC231B79A70FCAE211CF7A3313EFA04B196709C2F5A73C716CE07A06FD7A24FCFA22FC7A20FBFA2E59186C2D139FAE82907083E398ABE188A3EF8690604FF4B0C7D2D132D5E44ABB4D0A721D19718D1870FAD84F7D1D705D1C701D17C047A191DBDCD8A96D3380AEF7F81DB57F9BFF69229A0FF8D1387AF67F403B1F0180FE675C97FD840011361213FE2300573491582DBDF91CF39F1DB97E48D86ECF1603A988CEB31BDCBFEAB056898787E644D471B22382A80EFF1972FD1FF0742791F024B211CD709491285EB3AA5070BC88F09EB8FACFCE893B28025E21F0419A6E03AF0700B744D1F97BF917F6B31FE7F0188FAA5F1]
}
Add(TempFileStream,16338796,133,133)
{
Extention=".xls"
link(onCreate,6654860:doString,[])
link(Stream,8116148:Stream,[])
}
Add(RichEdit,7711891,385,84)
{
Left=335
Top=130
Align=5
Font=[Corbel,8,0,0,161]
Point(Handle)
Point(doSetFocus)
}
Add(KeyEvent,15838649,406,140)
{
Code=86
Ctrl=1
link(Handle,7711891:Handle,[])
}
Add(Hub,7796511,343,133)
{
link(onEvent1,7711891:doSetFocus,[(368,139)(368,111)])
link(onEvent2,15838649:doPress,[])
}
Add(DeferredEvent,14415207,287,133)
{
Delay=1000
link(onDeferredEvent,7796511:doEvent1,[])
}


Для информации (с 127 и далее)

Add(MainForm,6889257,294,119)
{
Width=239
Height=330
Caption="Таблица"
BorderStyle=3
Position=1
link(onCreate,15598028:doFor,[])
}
Add(StringTable,12509767,609,189)
{
Width=233
Height=301
Align=5
Font=[Consolas,11,0,0,161]
Columns=#6:dec=50|8:ASCII=55|8:UTF-8=55|6:866=55|
StrDelimiter=" "
Grid=0
Redaction=1
Flat=1
}
Add(For,15598028,350,133)
{
Start=33
End=255
link(onEvent,6454277:doConvert,[])
}
Add(FormatStr,9186019,560,189)
{
DataCount=4
Mask="%1 %2 %3 %4"
link(onFString,12509767:doAdd,[])
link(Str1,15598028:Position,[(566,180)(356,180)])
link(Str2,6454277:Var,[(573,173)(419,173)])
link(Str3,5885575:Value,[])
}
Add(ConvertorEx,6454277,413,133)
{
Mode=4
link(onResult,3544645:doEvent1,[])
}
Add(Charset,4678655,511,189)
{
link(onCharset,9186019:doString,[])
}
Add(Charset,14826245,511,133)
{
Type=7
link(onCharset,5885575:doValue,[])
}
Add(Memory,5885575,574,133)
{
}
Add(Hub,3544645,462,133)
{
link(onEvent1,14826245:doCharset,[])
link(onEvent2,4678655:doCharset,[(494,146)(494,195)])
}

карма: 14

1
Голосовали:vovs
Ответов: 282
Рейтинг: 23
#6: 2023-02-17 09:39:34 ЛС | профиль | цитата
vovs писал(а):
Скомпилировал в Unicode режиме (FPC-32U), в итоге выводятся иероглифы, на изменение кодировки вывода никакой реакции, но и так понятно что это только знаки '?'.

При вставке кода выдаёт вот такое
Анимация2.gif
Где взять компоненты?
карма: 2
0
Ответов: 199
Рейтинг: 44
#7: 2023-02-17 14:21:42 ЛС | профиль | цитата
envoy_sky, это другая сборка HiAsma из этой темы: https://forum.hiasm.com/topic/61538

Gunta, мне нужно загнать данные в таблицу для дальнейшей обработки в программе. Собственно сами символы α β ϒ Δ мне не нужны, только мешают, мне надо различать данные таблицы промаркированные ими. Возможно ли в файлах Excel произвести автоматически замену символов, например: α-а β-б ϒ-г Δ-д, не используя стандартное "поиск-замена" а то файлов много?

Редактировалось 1 раз(а), последний 2023-02-17 14:52:34
карма: 0

0
Ответов: 649
Рейтинг: 138
#8: 2023-02-17 18:25:38 ЛС | профиль | цитата
vovs писал(а):
Возможно ли в файлах Excel произвести автоматически замену символов, например: α-а β-б ϒ-г Δ-д, не используя стандартное "поиск-замена" а то файлов много?

Сделал тестовую схему - https://forum.hiasm.com/getfile/39577
Попробуй у себя (у меня работает), если будет работать у тебя то можно сделать перебор файлов в папке и сохранение.
карма: 14

1
файлы: 1Replace_reek_letters.zip [8.1KB] [155]
Голосовали:vovs
Ответов: 199
Рейтинг: 44
#9: 2023-02-18 22:46:20 ЛС | профиль | цитата
Gunta, открыл схему, вылезли ошибки:

Error[0]: Свойство Mode элемента MultiReplace не найдено!
Error[0]: Свойство Mode элемента MultiReplace не найдено!
Error[0]: Свойство Action элемента WinExec не найдено!

при попытке запустить - консольная программа не запускается.

Попытался запустить файл replace.ps1, ругается: "... выполнение сценариев отключено в этой системе".
Win 8.1, куда копать?


карма: 0

0
Ответов: 649
Рейтинг: 138
#10: 2023-02-19 07:39:07 ЛС | профиль | цитата
vovs писал(а):
Попытался запустить файл replace.ps1, ругается: "... выполнение сценариев отключено в этой системе".
Win 8.1, куда копать?

1. У тебя работает вторая схема из этого сообщения - https://forum.hiasm.com/post/312774?
2. Если работает, то правой кнопкой мыши на скрипте >>> выбрать 'свойства' >>> поставить галочку 'разблокировать' >>> нажать кнопку 'применить' и запустить схему ещё раз.
Разблокировать файл скрипта 2.PNG
3. Если не работает, то запусти эту схему.
Add(MainForm,2953706,154,105)
{
link(onCreate,7960161:doString,[])
}
Add(FormatStr,7960161,217,119)
{
Mask="Dim oRegistry, oFSO, sKey, sAppExe, sValue, sAppVersion\r\nConst HKEY_LOCAL_MACHINE = &H80000002\r\n\r\nSet oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/default:StdRegProv")\r\nSet oFSO = CreateObject("Scripting.FileSystemObject")\r\nsKey = "Software\Microsoft\Windows\CurrentVersion\App Paths"\r\nsAppExe = "excel.exe"\r\noRegistry.GetStringValue HKEY_LOCAL_MACHINE, sKey & "\" & sAppExe, "", sValue\r\nsys.onEvent "Версия Excel - " & oFSO.GetFileVersion(sValue)\r\nSet oFSO = Nothing\r\nSet oRegistry = Nothing"
link(onFString,7794985:##SetScript,[])
}
Add(VBJScript,7794985,280,119)
{
WorkPoints=#11:##SetScript|
EventPoints=#7:onEvent|
Script=#0:|0:|
UseName=0
link(onEvent,1086786:doAdd,[])
}
Add(Memo,1086786,336,119)
{
Left=550
Top=160
Align=5
Font=[MS Sans Serif,15,0,0,1]
ScrollBars=3
}

Какая версия Excel у тебя установлена?

Редактировалось 1 раз(а), последний 2023-02-19 07:46:11
карма: 14

0
Ответов: 199
Рейтинг: 44
#11: 2023-02-19 11:56:37 ЛС | профиль | цитата
Gunta,
1. схема не работает,

2.
на скрипте >>> выбрать 'свойства' >>> поставить галочку 'разблокировать' >>>

такой опции у меня нет.

3. Версия Excel - 16.0.16026.20200

Завтра попробую на работе (Win 10), где это, собственно, и должно работать.



Редактировалось 1 раз(а), последний 2023-02-19 11:57:37
карма: 0

0
Ответов: 649
Рейтинг: 138
#12: 2023-02-19 12:09:07 ЛС | профиль | цитата
vovs писал(а):
Версия Excel - 16.0.16026.20200

Хорошо. Вышли 2-3 своих файла (конечно если в них нет ничего секретного) для тестирования, можно в личном сообщении. Попробую через встроенный в Excel "Power Query" заменить греческие буквы на буквы русского алфавита.
карма: 14

0
Ответов: 8881
Рейтинг: 822
#13: 2023-02-19 21:54:57 ЛС | профиль | цитата
Gunta, может проще написать в Excel макрос с "Сцепить", "Подставить" с разделителем ";" и или через файл, или на отдельный лист, и строки считывать в нашу таблицу запуская из нашей программы этот макрос?
карма: 19

0
Ответов: 649
Рейтинг: 138
#14: 2023-02-20 08:48:04 ЛС | профиль | цитата
Леонид, Если версия Excel 15.0 и ниже (Excel 2013, Excel 2010), то только через макрос.
А если 16.0 или 17.0 (Microsoft 365, Excel 2021, Excel 2019, Excel 2016), то можно и через макрос, и через Power Query (Язык формул Power Query M https://learn.microsoft.com/ru-ru/powerquery-m/)
Сделал небольшой пример - https://forum.hiasm.com/getfile/39578. В архиве схема и файл xlsm их можно запускать независимо друг от друга. В файле на вкладке справочники нажать кнопку ‘Выбрать папку с файлами Excel’. Если запускать схему то программа сама вставит путь к папке с файлами excel и запустит на выполнение запрос.

--- Добавлено в 2023-02-20 09:11:57

vovs писал(а):
а то файлов много

А много это сколько? 100 или 10000?

Редактировалось 3 раз(а), последний 2023-02-21 05:36:13
карма: 14

0
файлы: 1Replace_greek_letters PQ.zip [153.6KB] [138]
Ответов: 199
Рейтинг: 44
#15: 2023-02-21 08:33:20 ЛС | профиль | цитата
Gunta, файлы в личном сообщении, файлов десятки, периодически присылают данные из других подразделений, формат-кто во что горазд. Хотелось-бы обрабатывать в своей программе без танцев с бубном, так что-бы и коллеги справились.




Редактировалось 1 раз(а), последний 2023-02-21 08:43:01
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)