Используется модуль – PSParseHTML (https://github.com/EvotecIT/PSParseHTML)
Add(MainForm,2953706,105,105)
{
link(onCreate,10721369:doString,[])
}
Add(WinExec,10162556,224,154)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
link(onConsoleResult,2938005:doWork2,[])
link(onConsoleError,2938005:doWork3,[(277,181)])
}
Add(MTStrTbl,9835431,490,168)
{
Left=405
Top=210
Align=5
Name="asd"
link(CodePageSet,7984739:GetData,[])
}
Add(MST_Load,1712622,392,161)
{
MSTControl="asd"
link(onLoadFromStream,5983438:doColAction,[])
}
Add(StreamConvertor,8921203,343,168)
{
Mode=7
link(onResult,1712622:doLoadFromStream,[])
}
Add(MST_ColAction,5983438,441,168)
{
Action=9
Index=-2
MSTControl="asd"
}
Add(HubEx,2938005,273,168)
{
link(onEvent,8806724:doCharset,[])
}
Add(Charset,8806724,294,168)
{
link(onCharset,8921203:doConvert,[])
}
Add(FormatStr,10721369,161,119)
{
@Hint=#30:Установка модуля - PSParseHTML|39:https://github.com/EvotecIT/PSParseHTML|22:Выполняется один раз. |22:Потом не используется.|0:|0:|0:|
Mask="If(-not(Get-InstalledModule PSParseHTML -ErrorAction silentlycontinue))\r\n{\r\nInstall-PackageProvider NuGet -Force -Confirm:$False\r\nSet-PSRepository PSGallery -InstallationPolicy Trusted\r\nInstall-Module PSParseHTML -Confirm:$False -AllowClobber -Force\r\n}"
link(onFString,10162556:doShellExec,[(214,125)(214,167)])
AddHint(70,-97,213,91,@Hint)
}
Add(Menu,15885269,98,182)
{
Menu=#11:to MTStrTbl|6:to CSV|11:to GridView|
Point(onSelectNum)
link(onSelectNum,13642003:doGetString,[])
}
Add(EventFromData,7984739,490,112)
{
link(onEvent,11980298:doReplace,[])
}
Add(Replace,11980298,546,112)
{
SubStr="""
link(onReplace,7984739:doData,[(585,118)(585,104)(480,104)(480,118)])
}
Add(StrList,13642003,161,161)
{
Strings=#113:(ConvertFrom-HtmlTable -Url 'https://forum.hiasm.com/forum/0') | ConvertTo-Csv -Delimiter ';' -NoTypeInformation |174:(ConvertFrom-HtmlTable -Url 'https://forum.hiasm.com/main/')[4] | Export-Csv -Delimiter ';' -NoTypeInformation -Path 'forumHiasm.csv' -Encoding UTF8 | Start 'forumHiasm.csv'|107:(ConvertFrom-HtmlTable -Url 'https://forum.hiasm.com/main/')[1] | Out-GridView -Title 'Пакет Windows' -Wait|
Point(doGetString)
Point(onGetString)
link(onGetString,10162556:doConsoleExec,[])
}
Add(LinkTip,13514694,616,35)
{
Link="https://github.com/EvotecIT/PSParseHTML"
Font=[MS Sans Serif,8,0,16711680,1]
}
Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi) rev - 2407
- MS Office 365