Код С# в bat-файле

(12) Да, нужно что-нибудь интересное придумать...сегодня правда бездельничал - голова чего-то болит...для powershell лучше использовать продукты от sapien - какие-то бесплатные, какие-то платные(самый известный primal scripts), с помощью primal forms можно формы лепить - код будет примерно такой (для 1С)
outtext = "";
ActiveXPosh.OutputMode = OUTPUT_BUFFER;
ActiveXPosh.Execute("[reflection.assembly]::loadwithpartialname(""System.Windows.Forms"") | Out-Null
|[reflection.assembly]::loadwithpartialname(""System.Drawing"") | Out-Null
|$form1 = New-Object System.Windows.Forms.Form
|$comboBox1 = New-Object System.Windows.Forms.ComboBox
|$label1 = New-Object System.Windows.Forms.Label
|$button1 = New-Object System.Windows.Forms.Button
|$handler_button1_Click=
|{
| $label1.Text = ""fgbsdfhg""
|}
|$form1.Text = ""'Primal Form'""
|$form1.Name = ""'form1'""
|$form1.DataBindings.DefaultDataSourceUpdateMode = 0
|$System_Drawing_Size = New-Object System.Drawing.Size
|$System_Drawing_Size.Width = 292
|$System_Drawing_Size.Height = 273
|$form1.ClientSize = $System_Drawing_Size
|$comboBox1.FormattingEnabled = $True
|$System_Drawing_Size = New-Object System.Drawing.Size
|$System_Drawing_Size.Width = 121
|$System_Drawing_Size.Height = 21
|$comboBox1.Size = $System_Drawing_Size
|$comboBox1.DataBindings.DefaultDataSourceUpdateMode = 0
|$comboBox1.Name = ""'comboBox1'""
|$System_Drawing_Point = New-Object System.Drawing.Point
|$System_Drawing_Point.X = 78
|$System_Drawing_Point.Y = 189
|$comboBox1.Location = $System_Drawing_Point
|$comboBox1.TabIndex = 2
|$form1.Controls.Add($comboBox1)
|$label1.TabIndex = 1
|$System_Drawing_Size = New-Object System.Drawing.Size
|$System_Drawing_Size.Width = 100
|$System_Drawing_Size.Height = 23
|$label1.Size = $System_Drawing_Size
|$label1.Text = ""'label1'""
|$System_Drawing_Point = New-Object System.Drawing.Point
|$System_Drawing_Point.X = 78
|$System_Drawing_Point.Y = 134
|$label1.Location = $System_Drawing_Point
|$label1.DataBindings.DefaultDataSourceUpdateMode = 0
|$label1.Name = ""'label1'""
|$form1.Controls.Add($label1)
|$button1.TabIndex = 0
|$button1.Name = ""'button1'""
|$System_Drawing_Size = New-Object System.Drawing.Size
|$System_Drawing_Size.Width = 75
|$System_Drawing_Size.Height = 23
|$button1.Size = $System_Drawing_Size
|$button1.UseVisualStyleBackColor = $True
|$button1.Text = ""'button1'""
|$System_Drawing_Point = New-Object System.Drawing.Point
|$System_Drawing_Point.X = 78
|$System_Drawing_Point.Y = 50
|$button1.Location = $System_Drawing_Point
|$button1.DataBindings.DefaultDataSourceUpdateMode = 0
|$button1.add_Click($handler_button1_Click)
|$form1.Controls.Add($button1)
|$form1.ShowDialog()| Out-Null");
For Each str In ActiveXPosh.Output do
outtext = outtext + str;
outtext = outtext + Символы.ПС;
EndDo;

Сообщить(outtext);
ActiveXPosh.ClearOutput();
В данном случае ActiveXPosh - Это бесплатная COM-компонента от них же, которую можно использовать как уверяет разработчик из многих COM “совместимых” языков – из VBScript, JScript, KiXtart. Отчего же не использовать ее в 1С.
Данный компонент поддерживает выполнение следующих команд(из хелпа):
ClearOutput() - This method clears the internal output buffer.
Execute(strcommand) - Executes a PowerShell command or script.
Eval(strExpression) - Evaluates a PowerShell expression.
Init(execProfile) - Initial call to instantiate a PowerShell engine.
IsPowerShellInstalled - Returns True/False.
Output - A collection of strings filled with output from PowerShell
commands.
OutputString - The content of the output buffer as a single string.
OutputMode - Sets or gets the current output mode.
OutputWidth - Sets or gets the desired output width.
(В 1С я просто присвоил
OUTPUT_CONSOLE = 0;
OUTPUT_WINDOW = 1;
OUTPUT_BUFFER = 2; Для лучшей читабельности)
К примеру самое простое - листинг сервисов в ОС
outtext = "";
ActiveXPosh.OutputMode = OUTPUT_BUFFER;
ActiveXPosh.Execute("Get-WmiObject -class Win32_Service | Format-Table -property Name, State");

For Each str In ActiveXPosh.Output do
outtext = outtext + str;
outtext = outtext + Символы.ПС;
EndDo;

Сообщить(outtext);
ActiveXPosh.ClearOutput();

С использованием C#
outtext = "";
ActiveXPosh.OutputMode = OUTPUT_BUFFER;
ActiveXPosh.Execute("$source = @""
|public class BasicTest
|{
| public static int Add(int a, int b)
| {
| return (a + b);
| }
|
| public int Multiply(int a, int b)
| {
| return (a * b);
| }
|}
|""@
|
|Add-Type -TypeDefinition $source
|[BasicTest]::Add(4, 3)
|$basicTestObject = New-Object BasicTest
|$basicTestObject.Multiply(5, 2)");
For Each str In ActiveXPosh.Output do
outtext = outtext + str;
outtext = outtext + Символы.ПС;
EndDo;

Сообщить(outtext);
ActiveXPosh.ClearOutput();
C#, PowerShell и поворот строки
outtext = "";
ActiveXPosh.OutputMode = OUTPUT_BUFFER;
ActiveXPosh.Execute("$source = @""
|public class BasicTes
|{
| public static string Add(string s)
| {
| char[] arr = s.ToCharArray();
| System.Array.Reverse(arr);
| return new string(arr);
| }
|
| public int Multiply(int a, int b)
| {
| return (a * b);
| }

|}
|""@

|Add-Type -TypeDefinition $source
|[BasicTes]::Add(""765767567456769469697965794679467hhhhhhhhhhhhhhhhhhhhhhhhhh"")
|$basicTestObject = New-Object BasicTes
|$basicTestObject.Multiply(5, 2)");
For Each str In ActiveXPosh.Output do
outtext = outtext + str;
outtext = outtext + Символы.ПС;
EndDo;

Сообщить(outtext);
ActiveXPosh.ClearOutput();

Понравилось у PowerShell - возможность напрямую использовать дотнетовские сборки.
ЗЫ Это все прелюдия - а вот, что интересного такого сделать? Искал на http://gallery.technet.microsoft.com/ - но наверное плохо искал.
ЗЫ Давно появилась идея, но вот с реализацией туго, это сделать одно из двух - либо 1) сделать конфигурацию и программку на C#, для того, чтобы писать "скрипты" 1С в обычных текстовых файлах. В конфе бы просто содержались готовые "библиотечки". А программка бы идентифицировала эти "скрипты" (для того чтобы в назначенные задания - шедулер поставить) и отправляла через COM в 1С на выполнение в назначенное время. Можно подумать и об удаленной реализации - когда 1С на локальном компе нет. 2) Пришла идея - после http://infostart.ru/projects/3181/ - мне кажется смысла в компиляторе нет - поскольку огромная пропасть между языком 1С и "обычным" языком для трансляции из одного в другой. (Возможно, больше имеет смысл превращать код 1С в код C#, который выполняет такие же действия в 1С через COM). Идея создания скриптового языка 1С подобного. С библиотечками. Либо, чтобы он понимал чужие библиотечки. Может кому-то бы и пригодилось, но даже не знаю как это реализовать - сделать свой скриптовый язык это мощно, конечно.