Вверх ↑
Ответов: 666
Рейтинг: 139
#1: 2021-01-04 13:55:02 ЛС | профиль | цитата
Пример передачи данных из Hiasm в документы MS office.

Add(MainForm,4844206,133,84)
{
Left=20
Top=105
Width=522
Height=343
Caption="Hiasm-PS-MSoffice"
Point(Handle)
Point(onClose)
link(onCreate,3682515:doConvert,[])
}
Add(WinExec,11401622,476,189)
{
FileName="powershell"
Mode=0
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleResult)
}
Add(MTStrTbl,5816951,77,84)
{
Width=506
Height=244
Align=5
Name="tabl"
Redaction=0
}
Add(MST_ColAction,4139610,294,98)
{
Action=9
Index=-2
MSTControl="tabl"
}
Add(Menu,5979201,77,189)
{
Menu=#14:table to Excel|13:table to Word|12:text to Word|0:|
Point(onSelectNum)
link(onSelectNum,16701187:doValue,[])
}
Add(MST_Save,8730459,182,189)
{
SaveColProp=1
MSTControl="tabl"
link(onSaveToStream,14417232:doConvert,[])
}
Add(StreamConvertor,14417232,231,196)
{
Mode=6
link(onResult,7198553:doEvent,[])
}
Add(MST_Load,571213,231,91)
{
Delimiter="\t"
MSTControl="tabl"
link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,182,98)
{
Mode=7
Point(Data)
link(onResult,571213:doLoadFromStream,[])
link(Data,6934679:Text,[])
}
Add(StrList,3877373,350,224)
{
Strings=#31:Про Анну Петровну и секс-машину|0:|63:Еще весьма свежая пенсионерка Анна Петровна ждала овощерезку, а|46:служба доставки ошибочно привезла секс-машину.|65:Дорогостоящий импортный агрегат. Снабженный характерной насадкой,|61:он совершает возвратно-поступательные движения, известные как|25:фрикции. Собственно, все.|64:Целомудренная Анна Петровна о таких новинках техники не слыхала.|61:Она была одинока и потому на все руки. Могла и гвоздь вбить и|67:сантехнику починить и даже сбацать на гитаре про три дня и три ночи|46:под шашлыком и кониной на доолимпийских Сочах.|65:Открыв коробку, рукастая женщина невольно залюбовалась – токарный|24:мини станок, решила она.|63:Но, какой-то у него странный режущий инструмент… Приглядевшись,|52:женщина с огромным любопытством раскрыла инструкцию.|71:А там все наглядно: насадите «это» на шток, шток в паз, затяните гайку,|67:включите в электросеть, примите удобную позу, приятных впечатлений!|58:«О-о!..» – сказала Анна Петровна, принимая удобную позу, а|52:оборудование на относительно ответственное хранение.|66:Прежде она ездила на дачу, накручивала в лесу километры на велике,|63:смотрела передачи нервно-парали…политического толка, высаживала|66:цветы в палисаднике хрущевки, хлопотал, как старшая по подъезду. В|61:общем, каждый день отдавалась активной общественной жизни, за|20:отсутствием половой.|63:Теперь же, отдалась искусительной машине. Без остатка. Петровна|68:спешила, – день-другой, понимала она, логистическая ошибка откроется|28:и, привезут таки овощерезку.|60:Тетки на лавке забеспокоились – шестой день Анна Петровна не|59:показывалась на людях, что нехарактерно. А у самой форточка|45:приоткрыта, значит не уехала. Может, померла?|56:Не без страха и одышки, они поднялись на четвертый этаж.|61:Электросчетчик Петровны бешено вращался... Странно! – женщина|25:слыла за очень экономную.|28:Тетки притулили уши к двери.|67:В квартире раздавались техногенные звуки и громкие призывы хозяйки,|20:ебать её активней...|66:«Ого!» – присвистнули тетки и страшно оживленной стайкой скатились|8:во двор.|67:Стало ж об чем поговорить! Живо пришвартовались к лавке, и: «Шу-шу-|63:шу. Развратница. Шу-шу-шу. С несколькими. Любопытно, кто её так|8:пашет?!»|55:– А вдруг мой?! – обмерла одна. – С утра свалил, и нет…|68:– Куда ему с одним яйцом! – успокоила её подружка. Осведомленность о|40:количестве яиц не осталась незамеченной.|64:– Аа, старая анальщица! – завизжала хозяйка редкого однояйцевого|51:ловеласа. – Вот он откуда пудинг на конце притащил!|19:И прыг ей на морду.|62:На седьмой день машина закапризничала. Не подхватывала сочно с|68:низов, теряла обороты. Петровна грешила на скачки напряжения в сети.|67:Женщина чуточку лукавила – от столь надсадной работы наебнулся бы и|17:копер метростроя…|67:А тут еще позвонили из доставки и грозили через два дня приехать за|9:машинкой.|67:В электричестве Петровна не кумекала. Пригласила Электроника, – так|63:прозвали ЖЭКовского электрика. Анна Петровна тайно любила этого|43:красивого, но, кажется, туповатого мужчину.|68:Как старшая по подъезду, частенько контактировала по вопросам гнилой|64:проводки, лампочек и т.п. Кокетничала, но Электрон упорно хранил|65:отрицательный заряд. Подмывало вставить вялого монтера келдышем в|31:трансформатор, чтоб оживился...|62:И вот – невольный шанс. Секс-машина не утюг с дырочками, – все|61:очевидно, намеки лишни… Заалевшие стыдливо щечки, коротенький|63:халатик, выбритые ноги, подоткнутое декольте, рюмочка наливки в|37:благодарность, и чем черт не шутит...|62:К тому же, неделя оголтелого секса преобразила – Анна Петровна|68:сияла. Главный энергетик города захотел бы прозвонить её схемы (и не|36:тестером), не то что рядовой монтер…|65:Она открыла ему статная, как ЛЭП и наэлектризованная, как шаровая|64:молния. Электрон сухо поздоровался. Но, увидев машинку расцвел и|63:стал чертовски обаятелен. Ковыряя отверткой, пошучивал и весело|11:поглядывал.|66:Смущение и страх, уступили внутри Анны Петровны место облегчению и|68:радости. Кажется, монтер наконец догнал, куда следует лезть, чтоб не|22:ёбнуло, а было хорошо…|66:Вдруг он заявил: – Придется забрать машину с собой. Здесь починить|13:не получится.|60:Да, согласилась Анна Петровна, и предложила рюмочку наливки.|63:– Завтра. – сказал Электрон. – Починю, тогда можно и наливки...|55:И ушел. Анна Петровна осталась, несколько обескуражена.|67:Назавтра Электрон не явился. И послезавтра. Анна Петровна позвонила|19:в ЖЭК за электрика.|61:– Он со скандалом уволился и уехал. Обнажил трудовой фронт! –|62:сердито сказали ей и добавили слово, характеризующее мужчину с|24:нетрадиционного ракурса.|13:© А. Болдырев|0:|0:|
}
Add(FormatStr,13748772,399,273)
{
DataCount=1
Mask="$Word = New-Object -ComObject Word.Application\r\n$Document = $Word.Documents.Add()\r\n$Selection = $Word.Selection\r\n$Selection.TypeText('%1')\r\n$Word.Visible = $true\r\n"
link(onFString,1935080:doWork3,[(452,279)])
}
Add(FormatStr,4794102,399,203)
{
Mask="$Word = New-Object -comobject Word.Application\r\n$Doc = $Word.Documents.Add()\r\n$Range = $Doc.Range()\r\n$text= '%1'\r\n$Range.Text = "$text"\r\n$table=$Range.ConvertToTable(2)\r\n$table.AutoFormat(18)\r\n$Word.Visible = $true\r\n\r\n\r\n"
link(onFString,1935080:doWork2,[])
}
Add(StrList,6934679,182,49)
{
Strings=#42:Item Description Quantity Unit Price Value|63:13930 Double-action Quickstart II rem. L=740mm 1 PC 98,66 98,66|53:13100201 Spray gun for udder washer 20 PC 17,77 355,4|49:13246007 COMBI-cock ш51 mm cpl. 10 PC 63,43 634,3|51:25643301 Milk hose ш 24/14 x 2750 32 PC 9,76 312,32|56:14291 Service no.1 RDS MAX double box 1 PC 250,51 250,51|54:24144638 Spiral spring for tube filter 3 PC 43,2 129,6|40:22121763 V-belt spz 1087 4 PC 5,91 23,64|61:MH0015 Repair kit non-rotating cylinder ш40mm 8 PC 14,3 114,4|48:GS9835 Revision set SAC Unipuls 4 PC 13,97 55,88|52:22121735 El-motor 3,0kw 3x400v 1400 1 PC 186,4 186,4|55:23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|55:23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|54:23544122 Carbon disc ш44,7/38,3x5,8mm 2 PC 16,92 33,84|64:21200159 Top part UNIFL3/4 for steel bot.part 25 PC 30,09 752,25|57:24400111 Hose f. pump compl. UNIWASH 153 PC 10,58 1618,74|58:13225 Piston complete for valve UNIWASH3 4 PC 27,09 108,36|60:12200105 Vacuumgauge glycerine ш100mm 3/8" 5 PC 40,57 202,85|53:21200141 Thread bush UNIFLOW3 steel 130 PC 1,93 250,9|42:25100146 O-ring ш16,1x1,6mm 175 PC 0,36 63|56:21200127 Holder rocking lever, UNIFLOW3 170 PC 0,26 44,2|49:21200131 Rocking lever UNIFLOW3 150 PC 0,89 133,5|62:25200132 Valve button inside UNIFLOW3 steel FA 225 PC 0,72 162|61:21200129 Bar closing device UNIFLOW3 steel 225 PC 1,09 245,25|52:25200124 Valve flap outside UNIFLOW3 225 PC 1,56 351|58:14400212 Solenoid valve sgl. invensys 230vac 5 PC 8,5 42,5|62:14400213 Solenoid valve dobb. invensys 230vac 5 PC 14,13 70,65|47:21200131 Rocking lever UNIFLOW3 20 PC 0,89 17,8|62:25200132 Valve button inside UNIFLOW3 steel FA 20 PC 0,72 14,4|42:25100146 O-ring ш16,1x1,6mm 20 PC 0,36 7,2|54:21200127 Holder rocking lever, UNIFLOW3 20 PC 0,26 5,2|57:21200130 Bar closing device UNIFLOW3 steel 20 PC 0,34 6,8|57:25200119 Guard bracket UNIFLOW3 steel SBS 20 PC 3,38 67,6|54:13474 Valve flap exterior UNIFLOW3 SBS 20 PC 1,56 31,2|58:26400104 Terminal wheel for lock guide str 20 PC 1,12 22,4|67:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 96 PC 2,39 229,44|54:14800695 Hose guide f. SAC115 complete 10 PC 9,17 91,7|32:14306 Filter for IDC 20 PC 0,4 8|50:25515435 Rubber hose ш27/16 mm - FA 15 M 5,24 78,6|47:34200107 Indicator jar UNICO1/2 3 PC 4,26 12,78|53:24144638 Spiral spring for tube filter 1 PC 43,2 43,2|61:25200142 Rubber liner RDS FUTURELINE Ш20mm FA 100 PC 4,79 479|66:21214817 Shell w. weight ring UNIFLOW3/4 UNIFLEX 48 PC 6,99 335,52|46:25100204 EC O-Ring 020,0x4,0 250 PC 0,51 127,5|42:23200102 Slide for COMBI-cock 20 PC 1,4 28|53:33246520 Union f. pipe coupling Ш40mm 7 PC 3,91 27,37|50:25246516 Gasket for union DS ш51mm 7 PC 1,77 12,39|49:25200144 Seal f/vacuum container 2 PC 10,93 21,86|63:13197 Inductive sensor - NPN-switch 24Vdc M18 4 PC 67,66 270,64|57:15729 Contact pipe bend 420mm complete 2 PC 118,19 236,38|57:15095 Contact pipe bend 510mm complete 2 PC 121,49 242,98|58:13140216 Lid transp. f. RECeiv.con.60/100l 4 PC 67,6 270,4|60:12900 Milk pump 8000 l 1,1kW 3x400/230V 1 PC 1374,17 1374,17|51:13814 Spare part set for IDC meter 300 PC 8,26 2478|49:25246516 Gasket for union DS ш51mm 4 PC 1,77 7,08|57:15095 Contact pipe bend 510mm complete 1 PC 121,49 121,49|46:24848304 Tube f/cyl. ш110x580 1 PC 18,33 18,33|65:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 300 PC 2,39 717|47:25100197 EC O-ring 108x6mm EPDM 80 PC 0,99 79,2|59:21200107 Distributing piece UNIFLOW2/3/4/4S 80 PC 1,13 90,4|46:22022417 Ball bearing FAG 6204 4 PC 7,76 31,04|61:22022633 Roller bearing FAG nup 204 e tvp. 2 2 PC 49,51 99,02|36:22121752 V-belt a 40 6 PC 5,34 32,04|57:22022566 Oil simmer ring f.SACCO 600-1000 8 PC 4,94 39,52|52:25200104 Gasket for slide COMBI-cock 200 PC 0,77 154|64:25246542 Gasket f. pipeline coup. ш51 steel p. FA 100 PC 0,81 81|52:33246520 Union f. pipe coupling Ш40mm 2 PC 3,91 7,82|56:11161 Plastic plug with logo and magnets 3 PC 7,05 21,15|46:11188 Rubber button for starter 3 PC 1,06 3,18|35:23141666 Eccentric 5 PC 16,71 83,55|29:23141668 Bush 10 PC 1,77 17,7|46:12200102 UNI servo regulator 2 PC 81,67 163,34|47:25242625 Rubber inlet ш 63,5 mm 6 PC 2,56 15,36|44:25242628 Inlet rubber ш76 mm 6 PC 2,18 13,08|41:11943 Valve set complete 2 PC 39,68 79,36|44:11165 Pulsator guard IDC 15 PC 69,43 1041,45|50:1511188 Rubber button for starter 48 PC 1,06 50,88|55:90642903 Upper part indicator IDC2 15 PC 366,45 5496,75|62:12200105 Vacuumgauge glycerine ш100mm 3/8" 26 PC 40,57 1054,82|50:21200141 Thread bush UNIFLOW3 steel 2 PC 1,93 3,86|59:12200105 Vacuumgauge glycerine ш100mm 3/8" 2 PC 40,57 81,14|48:25643301 Milk hose ш 24/14 x 2750 1 PC 9,76 9,76|58:25600130 Milk hose PVC ш40/29x5000mm - FA 2 PC 43,28 86,56|67:22121711 El-motor 0,55kW 3x400V 1400 w. axle jour 2 PC 197,05 394,1|57:15729 Contact pipe bend 420mm complete 1 PC 118,19 118,19|39:23140820 Switch complete 1 PC 86,6 86,6|49:11100111 UNIPULS2 pulsator 60/40 5 PC 64,16 320,8|50:13814 Spare part set for IDC meter 10 PC 8,26 82,6|65:21214817 Shell w. weight ring UNIFLOW3/4 UNIFLEX 12 PC 6,99 83,88|63:21214819 Teat cup shell SS UNIFLOW3/4 UNIFLEX 8 PC 13,19 105,52|57:25200101 Diaphragm for UNI reg./servo reg. 5 PC 6,42 32,1|54:24400110 Rotor f. pump compl. UNIWASH 2 PC 19,03 38,06|56:24400124 Gear motor 200/230 v f UNIWASH 1 PC 75,13 75,13|56:22022566 Oil simmer ring f.SACCO 600-1000 2 PC 4,94 9,88|52:11927 Quick starter for ш50 remover 1 PC 54,03 54,03|40:11160 Bottom part for IDC 1 PC 8,05 8,05|46:13510 Claw UNIFLOW4 Complete 3 PC 68,23 204,69|59:13505 Bottom part UNIFLOW4 steel complete 3 PC 33,83 101,49|52:25100197 EC O-Ring ш108x6mm EEB10570 50 PC 0,99 49,5|54:25200118 Guardbracket UNIFLOW3m steel 12 PC 3,27 39,24|55:25100123 Damping ring for UNI SERVO reg. 4 PC 1,34 5,36|50:22225389 Guiding diaphragm (servo) 5 PC 4,57 22,85|54:14800695 Hose guide f. SAC115 complete 5 PC 9,17 45,85|52:23544093 Rotor w/carbon discs 3/4000l 10 PC 59,3 593|60:23544099 Wear plate for milk pump 3000/4000l 20 PC 3,67 73,4|55:25247631 Valve flap for return valve FA 10 PC 1,45 14,5|39:23544156 Leading pulley 5 PC 2,23 11,15|41:25144153 O-ring 15,6x2,4mm 10 PC 0,32 3,2|55:15149 O-ring EPDM for 12000L milk pump 1 PC 19,32 19,32|61:15208 Mech. sealing ш12 f. 12000 l milk pump 1 PC 61,45 61,45|50:15206 Impeller FP66 0-115 6 wings 1 PC 65,95 65,95|57:11690 Milk filter for IDC Medium complete 10 PC 9,17 91,7|61:14848300 Vac.cyl.compl.ш110xstroklength460 1 PC 326,64 326,64|57:15729 Contact pipe bend 420mm complete 2 PC 118,19 236,38|64:12369 Wear-part pack. for milk pump 3000/4000L 4 PC 65,89 263,56|54:14800327 Railing list 8 x 40 mm blue 18 M 10,09 181,62|54:14800979 Hose guide for SAC115 and tandem 10 PC 1,8 18|52:14800647 Holder for hose guide, blue 10 PC 1,77 17,7|51:11100111 UNIPULS2 pulsator 60/40 20 PC 64,16 1283,2|49:13246007 COMBI-cock ш51 mm cpl. 10 PC 63,43 634,3|63:21200159 Top part UNIFL3/4 for steel bot.part 30 PC 30,09 902,7|52:25200104 Gasket for slide COMBI-cock 500 PC 0,77 385|66:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 700 PC 2,39 1673|44:14400216 Cable for UNIWASH3 2 PC 23,36 46,72|45:12200102 UNI servo regulator 1 PC 81,67 81,67|54:24400111 Hose f. pump compl. UNIWASH 20 PC 10,58 211,6|55:24144803 Filter bags 450x75mm (400 pcs) 10 PAC 40,6 406|59:24144641 Cylinder head/pipe u.8000 l filt. 4 PC 25,05 100,2|66:24144808 Filter bag 645x85mm (ps.a 400pcs) SAC 15 PAC 41,93 628,95|64:12369 Wear-part pack. for milk pump 3000/4000L 7 PC 65,89 461,23|51:21246296 Milk/vacuum nipple single 5 PC 94,36 471,8|49:21246299 Milk nipple ш16mm 45° 5 PC 108,47 542,35|42:11943 Valve set complete 3 PC 39,68 119,04|57:15095 Contact pipe bend 510mm complete 2 PC 121,49 242,98|53:21112381 Hose connect. plastic UNIPULS 10 PC 0,64 6,4|56:23140484 Reducing nipple ш76/ш51 x 77,5 5 PC 32,78 163,9|43:23200102 Slide for COMBI-cock 8 PC 1,4 11,2|51:23200104 Plug for spring COMBI-cock 12 PC 0,13 1,56|58:13140216 Lid transp. f. RECeiv.con.60/100l 3 PC 67,6 202,8|47:25242625 Rubber inlet ш 63,5 mm 4 PC 2,56 10,24|43:25242628 Inlet rubber ш76 mm 3 PC 2,18 6,54|45:22021406 Emptying flap ш60x6mm 1 PC 3,28 3,28|45:23544121 bolt for axle-journal 1 PC 3,64 3,64|49:23544126 Front plate for milk pump 1 PC 16,9 16,9|61:23544155 Pump.housing,stainless,3/4000ltrs 1 PC 161,27 161,27|63:21200159 Top part UNIFL3/4 for steel bot.part 9 PC 30,09 270,81|65:21200143 Suspension UNIFLOW3/UNIFLOW4/UNIFLOW4S 110 PC 4,09 449,9|53:23544093 Rotor w/carbon discs 3/4000l 4 PC 59,3 237,2|54:23544122 Carbon disc ш44,7/38,3x5,8mm 1 PC 16,92 16,92|58:25200106 Valve piece for pilot valve UNICO 30 PC 0,48 14,4|61:11011001 SS lid for milking machine Effectiv 2 PC 47,59 95,18|47:24200128 Plastic cap for UNICO2 10 PC 8,42 84,2|54:24144638 Spiral spring for tube filter 6 PC 43,2 259,2|53:24400111 Hose f. pump compl. UNIWASH 6 PC 10,58 63,48|49:11100111 UNIPULS2 pulsator 60/40 5 PC 64,16 320,8|49:13246007 COMBI-cock ш51 mm cpl. 5 PC 63,43 317,15|51:21246296 Milk/vacuum nipple single 5 PC 94,36 471,8|50:25211251 Lid gasket (strong model) 3 PC 5,74 17,22|64:12369 Wear-part pack. for milk pump 3000/4000L 10 PC 65,89 658,9|42:11943 Valve set complete 4 PC 39,68 158,72|62:15063 ControlBox II - 400/230VAC, 2,5-4,0A 2 PC 623,81 1247,62|47:22022632 Vane for SACCO 1300 12 PC 17,83 213,96|60:23544099 Wear plate for milk pump 3000/4000l 10 PC 3,67 36,7|60:LC90017 Contra hinge joint Cyl.50 (Plastic) 1 PC 22,13 22,13|65:24144808 Filter bag 645x85mm (ps.a 400pcs) SAC 5 PAC 41,93 209,65|65:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 200 PC 2,39 478|63:12871 Axle seal NCE35 comp. f/8000l milk pump 4 PC 200,95 803,8|64:15312 Oil system SACCO1600,2000,2750 1set cpl. 4 PC 30,87 123,48|56:13980 SACCO 1300l vacuum pump mounted 1 PC 812,95 812,95|51:11100111 UNIPULS2 pulsator 60/40 12 PC 64,16 769,92|49:11100111 UNIPULS2 pulsator 60/40 50 PC 64,16 3208|46:12200102 UNI servo regulator 4 PC 81,67 326,68|54:24400110 Rotor f. pump compl. UNIWASH 3 PC 19,03 57,09|46:12611 Gasket 0,003" - 1000/1600 2 PC 2,11 4,22|55:24400110 Rotor f. pump compl. UNIWASH 8 PC 19,03 152,24|65:21200159 Top part UNIFL3/4 for steel bot.part 41 PC 30,09 1233,69|55:24400111 Hose f. pump compl. UNIWASH 14 PC 10,58 148,12|60:21200132 Top part UNIFL.3 f. plast.bottom 15 PC 20,65 309,75|57:13140216 Lid transp. f. RECeiv.con.60/100l 1 PC 67,6 67,6|55:23544122 Carbon disc ш44,7/38,3x5,8mm 9 PC 16,92 152,28|50:13522 Teat liner UNIFLEX square ш22 48 PC 2,75 132|0:|
}
Add(IndexToChanel,7198553,294,196)
{
Count=3
Point(Index)
link(onEvent1,1666019:doString,[(333,202)(333,167)])
link(onEvent2,4794102:doString,[])
link(onEvent3,5750340:doData,[(340,216)(340,279)])
link(Index,16701187:Value,[(300,187)(286,187)(286,236)(139,236)])
}
Add(FormatStr,1666019,399,161)
{
DataCount=1
Mask="$Excel = New-Object -ComObject Excel.Application\r\n$WorkBook = $Excel.Workbooks.add()\r\n$Sheet = $WorkBook.worksheets.Item(1)\r\n$Sheet.Name = 'test'\r\n$Sheet.Range('B2').Select()\r\n$Tabl = '%1'\r\nSet-Clipboard -Value $Tabl\r\n$Sheet.Paste()\r\n$Range = $Sheet.UsedRange\r\n$Range.texttocolumns($Range,1,-4142,$true,$false,$true,$false,$false)\r\n$Range = $Sheet.UsedRange\r\n$Range.EntireColumn.AutoFit()\r\n$Sheet.Range('B2').Select()\r\n$Excel.visible = $true\r\n"
link(onFString,1935080:doWork1,[(452,167)])
}
Add(Memory,16701187,133,196)
{
link(onData,8730459:doSaveToStream,[])
}
Add(HubEx,1935080,448,203)
{
link(onEvent,11401622:doConsoleExec,[])
}
Add(DoData,5750340,350,273)
{
link(onEventData,13748772:doString,[])
link(Data,3877373:Text,[])
}

MS Word и MS Excel должны быть установлены.
Пример проверен на Window 7(32) Powershell версии 3 и Window 10(64) Powershell версии 5
карма: 14

0
файлы: 1Hiasm-PS-MSoffice.zip [8.3KB] [377]