MBO, не очень понял что ты имеешь в виду под
MBO писал(а):
выведением в поток

Это?
Add(MainForm,3416008,133,182)
{
link(onCreate,9364295:doDownload,[])
}
Add(VisualStrings,11141527,189,133)
{
Lines=#42:https://www.cbr-xml-daily.ru/daily_json.js
Width=214
Height=25
}
Add(HTTP_Get,9364295,189,196)
{
link(onDownload,8204234:doConvert,[])
link(URL,11141527:Text,[])
}
Add(StreamConvertor,8204234,245,203)
{
Mode=6
link(onResult,9221840:doCharset,[])
}
Add(WinExec,11401622,546,189)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
Point(onErrorExec)
link(onConsoleResult,5246825:doCharset,[])
}
Add(Charset,5246825,616,203)
{
link(onCharset,4977782:doAdd,[])
}
Add(Charset,9221840,301,203)
{
Type=7
link(onCharset,9999278:doReplace,[])
}
Add(Memo,4977782,672,203)
{
Width=384
Height=261
Align=5
ScrollBars=3
}
Add(FormatStr,9433227,490,203)
{
DataCount=1
Mask="$data = @'\r\n%1\r\n'@ \r\n$json = convertfrom-json -inputobject $data\r\n[xml]$xml = convertto-xml -depth 100 $json -notypeinformation\r\n$xml.OuterXml"
link(onFString,11401622:doConsoleExec,[])
}
Add(Replace,9999278,350,203)
{
SubStr="""
DestStr="'"
link(onReplace,9433227:doString,[])
}



Редактировалось 2 раз(а), последний 2021-05-25 18:10:06