Вверх ↑
Ответов: 698
Рейтинг: 143
#1: 2021-05-28 18:48:51 ЛС | профиль | цитата
«И тут Остапа понесло...»

Наверное, самый маленький парсер json ответа веб-сервера.

Add(MainForm,15175452,147,147)
{
Visible=1
link(onCreate,4794102:doString,[])
}
Add(WinExec,11401622,259,147)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleTerminate)
link(onConsoleTerminate,15175452:doClose,[(298,167)(298,202)(137,202)(137,174)])
}
Add(FormatStr,4794102,203,161)
{
DataCount=1
Mask="$response = Invoke-WebRequest -Uri "%1" -UseBasicParsin\r\n$json = ConvertFrom-Json -InputObject $response.Content\r\n$valute = $json.Valute \r\n$valute.psobject.properties.value | Out-GridView -Title 'Json to table' -Wait\r\n\r\n"
link(onFString,11401622:doConsoleExec,[])
link(Str1,11141527:Text,[])
}
Add(VisualStrings,11141527,203,105)
{
Lines=#42:https://www.cbr-xml-daily.ru/daily_json.js|
Width=214
Height=25
}

В таблице можно установить фильтра на любой вкус. Также работает сортировка по столбцам.
Должна работать на всех windows10(на других не проверял.)
карма: 15

0