#PS = loaddll( hidemarudir + @"\hmPS.dll" );
#_ = dllfuncw( #PS, "DoString", R"PS(
$lineno = $hm::Edit::MousePos.lineno;
$column = $hm::Edit::MousePos.column;
$x = $hm::Edit::MousePos.x; # マウスのスクリーン座標
$y = $hm::Edit::MousePos.y; # マウスのスクリーン座標
$hm::debuginfo( $lineno, $column );
)PS");
freedll( #PS );
簡易なHTMLエンコードの例
#PS = loaddll( hidemarudir + @"\hmPS.dll" );
if (! #PS) {
message("hmPSが導入されいません。");
endmacro;
}
#_ = dllfuncw( #PS, "DoString", R"PowerShell(
[System.Reflection.Assembly]::LoadWithPartialName("System.Web")
$html = [System.Web.HttpUtility]::HtmlEncode($hm::Edit::TotalText)
$html = $html.Replace("\r\n", "\r")
$html = $html.Replace("\n", "\r")
$html = $html.Replace("\r", "<br>\r\n")
$html = $html.Replace(" ", " ")
$hm::Edit::TotalText = $html
)PowerShell"
);
freedll( #PS );