スーパWeb検索、説明文型ファイル操作、半自動アプリ更新で快適性パワーアップ(4.2応用編)

##Ver1.331 wndPshPrg201_add.ps1 by ryu 2024/1228 ###############################
##●●[PSHメモ帳]拡張機能ファイル(応用編[42])
##LOG:

##★[ファイル]釦メニューに追加
$global:szMnBas=$szMenu1; (ssDMnMSet "[<Add編集>]" ).add_Click({ & $szEditor $fladd  });  $aa=(ssDMnMSet "----");
(ssDMnMSet "再起動"    ).Add_Click({ Restart-Computer -Force });
(ssDMnMSet "電源OFF"   ).Add_Click({ Stop-Computer -Force });
(ssDMnMSet "スリープ"  ).Add_Click({ [Application]::SetSuspendState(0, $false, $false) });

##★[フォルダ]釦メニューに追加
$global:szMnBas=$szMenu8; $aa=(ssDMnMSet "----"  );
(ssDMnMSet "[現在ﾌｫﾙﾀﾞ表示]").add_Click({ ssViewDir });
  $global:szMnBas=$szMnBas2;(ssDMnMSet "[explorerで]").add_Click({ explorer (pwd) }); $global:szMnBas=$szMenu8;
(ssDMnMSet "[ﾃﾞｽｸﾄｯﾌﾟDir]").add_Click({ ssViewDir 0 $home\Desktop });
  $global:szMnBas=$szMnBas2;(ssDMnMSet "[explorerで]").add_Click({ explorer $home\Desktop }); $global:szMnBas=$szMenu8;
(ssDMnMSet "[ﾀﾞｳﾝﾛｰﾄﾞDir]").add_Click({ explorer $home\Downloads });
(ssDMnMSet "[BakUPﾌｫﾙﾀﾞ]" ).add_Click({ $zcc=(pwd); explorer "$zcc\bak" });
(ssDMnMSet "[Windows設定]").add_Click({ explorer ms-settings: });           
(ssDMnMSet "[ｱﾌﾟﾘ一覧Dir]").add_Click({ explorer shell:AppsFolder });       
(ssDMnMSet "[ゴミ箱]"     ).add_Click({ explorer shell:RecycleBinFolder }); 

##★[編集]釦メニューに追加
$global:szMnBas=$szMenu4; (ssDMnMSet "Top移動[TagRet]").add_Click({ $tBox.SelectionStart=0; $tBox.ScrollToCaret() });
(ssDMnMSet "Bottom移動").add_Click({ $tBox.SelectionStart=$tBox.Text.Length; $tBox.ScrollToCaret() });
(ssDMnMSet "右端折返し切替").add_Click({ if( $tBox.WordWrap ){$tBox.WordWrap=$false;}else{$tBox.WordWrap=$true;}; }); $aa=(ssDMnMSet "----");
(ssDMnMSet "TList[##★]取得").add_Click({ ssTagListGet "720,600" });
(ssDMnMSet "TList[]前後表示").add_Click({ $fmTgBox.TopMost=$false });

##★新規登録[Menu9]
$global:szMenu9=(ssDMnMenu "ﾂｰﾙ1" );
(ssDMnMSet "[現在ﾌｫﾙﾀﾞ表示]").add_Click({ ssViewDir });      
(ssDMnMSet "[現在ﾌｫﾙﾀﾞ再帰表示]").add_Click({ ssViewDir 1 });
(ssDMnMSet "[Dir容量表示]"  ).add_Click({ $zcc0=ssDirVol(1); (ssPshAct 0 $zcc0); });
(ssDMnMSet "[DirのTree表示]").add_Click({ $zcc0=ssDirVol(0); (ssPshAct 0 $zcc0); });  $aa=(ssDMnMSet "----");
(ssDMnMSet "[大きいｶﾚﾝﾀﾞ]").add_Click({ ssBigCalen });
(ssDMnMSet "[マクロ一覧]" ).add_Click({ MsgBox ($szLstMacro.replace(","," ")) "960,520"; $mBox.BackColor="#E8FFD0";});
(ssDMnMSet "[PSH高速化(ngen)]").add_Click({ ssNgen });
(ssDMnMSet "[UTF8->ANSI変換]" ).add_Click({ ssToolAct !ANSI });  $aa=(ssDMnMSet "----");
(ssDMnMSet "[ｱﾌﾟﾘ変数表示]").add_Click({ ssToolAct !AplD });
(ssDMnMSet "[画面クリア]"  ).add_Click({ ssToolAct !DClr });
(ssDMnMSet "[HTML特殊文字変換]").add_Click({ ssToolAct !HtmC });

##★新規登録[Menu10]
$global:szMenu10=(ssDMnMenu "ﾂｰﾙ2" );
(ssDMnMSet "[ｻｲｽﾞ色設定BOX]").add_Click({ ssSizeColor });$aa=(ssDMnMSet "----");
(ssDMnMSet "[電卓]").add_Click({ calc.exe });
(ssDMnMSet "[画面コピー]").add_Click({ SnippingTool.exe });
(ssDMnMSet "[Win設定]"   ).add_Click({ start ms-settings: });
(ssDMnMSet "[ｺﾝﾄﾛｰﾙﾊﾟﾈﾙ]").add_Click({ control.exe });      $aa=(ssDMnMSet "----");
(ssDMnMSet "[PSH窓]").add_Click({ Start powershell });
(ssDMnMSet "[PSH管理者]").add_Click({ Start -Verb runas powershell });
(ssDMnMSet "[ps1ｱﾌﾟﾘ更新]" ).add_Click({ ssPs1VerUp });

##★新規登録[Menu11]
$global:szMenu11=(ssDMnMenu "ﾂｰﾙ3" ); ##(ssDMnMSet "----").add_Click({;});
##★新規登録[Menu12]
($global:szMenu12=ssDMnMenu "ﾂｰﾙ4" ).add_Click({ if( Test-Path $fladd3 ){ . $fladd3; }; });

##★新規登録[Menu19]
$global:szMenu19=(ssDMnMenu "Help" );
(ssDMnMSet "[背景色ｻｲﾄ]" ).add_Click({ start "https://ryupapa008.blogspot.com/p/blog-page_6.html" });
(ssDMnMSet "[HELP操作説明]" ).add_Click({ ssHelpView 0 0 });
(ssDMnMSet "[日めくりｶﾚﾝﾀﾞ]").add_Click({ start "https://www.himekuricalendar.com/" }); $aa=(ssDMnMSet "----");
(ssDMnMSet "[Web:Psh入門]").add_Click({ start "https://step-learn.com/article/powershell/index.html" });
(ssDMnMSet "[Web:PSHｻｲﾄ]" ).add_Click({ start "https://forsenergy.com/ja-jp/windowspowershellhelp/html/7908faf0-0e08-443d-8060-aac911e5a7e0.htm" });
(ssDMnMSet "[Psh短縮Cmd]" ).add_Click({ start "https://mseeeen.msen.jp/research-powershell-command-alias" }); $aa=(ssDMnMSet "----");
(ssDMnMSet "[<Help編集>]" ).add_Click({ if( Test-Path $szHelpDoc ){ $zcc=$szHelpDoc }else{ $zcc=$fladd }; & $szEditor $zcc });
##★ユーザ拡張(usr)登録 ★ツール拡張(etc)登録
function global:ssWClkUsrCmd($ln,$zcc){ return 0;};
$global:fladd2=$szTool.replace(".ps1","_usr.ps1"); if( Test-Path $fladd2 ){ (ssDMnMSet "[<usr編集>]" ).add_Click({ & $szEditor $fladd2 }); };
$global:fladd3=$szTool.replace(".ps1","_etc.ps1"); if( Test-Path $fladd3 ){ (ssDMnMSet "[<etc編集>]" ).add_Click({ & $szEditor $fladd3 }); };

##★マウス右釦メニュに追加
(ssRbtMenu "[検索窓]").add_Click({ssSchBoxSet $tBox});
(ssRbtMenu "ｸﾘｯﾌﾟ1行取得").add_Click({ $ln=((($tBox.Text).substring(0,$tBox.SelectionStart)).split("`n")).count-1;
    $zcc=($tBox.Lines[$ln]).trim();  Set-Clipboard $zcc; });

##★サイズ/背景色/フォント設定BOX($szFntKind+=@(XXXX))
$global:szLstSize="[ｻｲｽﾞ:9], [ｻｲｽﾞ:10], [ｻｲｽﾞ:11], [ｻｲｽﾞ:12], [ｻｲｽﾞ:14], [ｻｲｽﾞ:16], [ｻｲｽﾞ:18],[ｻｲｽﾞ:20],";
$global:szLstColr="[薄とまと:#FFE0DF], [薄赤紫色:#FFE5FE], [薄水色:#E5F2FE], [薄緑色:#E5FFE4],[薄黄色:#FFFFE4],[薄みかん:#FFEFDF],";
$global:szFont00=$szFont; $global:szfSize00=$szFntSize;
##★ListBox処理
function ssSizeColor(){ $global:fmSizeBox =New-Object Form -Pro @{ Size ="260,520"; Text="サイズ/色"};
  $global:scBox=New-Object ListBox -Pro @{ Dock="Fill"; Font='"BIZ UDゴシック",14'; BackColor="#E5F2FE";}; $fmSizeBox.Controls.Add($scBox); 
  foreach($cc in ($szLstSize+$szLstColr+$szLstFont).split(",")){ $cc=$cc.trim(); if( $cc.startsWith("[") ){ $aa=$scBox.Items.Add( $cc ); }; };
  foreach($cc in $szFntKind ){ $aa=$scBox.Items.Add( "[font:!$cc]" ); }; $fmSizeBox.Show();##★表示
  $scBox.Add_Click({ $zcc=(($scBox.SelectedItem).split(":]"))[1].trim();
      if( $zcc.startsWith("#") ){ $tBox.BackColor=$zcc; return; };
      if( $zcc.startsWith("!") ){ $global:szFont00=$zcc.substring(1); }else{ $global:szfSize00=$zcc; }; $tBox.Font="$szFont00,$szfSize00"; });
};

##★[&CCCC][WC]起動処理の追加（マクロ登録）
$global:szLstMacro="【マクロ一覧V1.0】
#
#--&ﾏｸﾛ,-Web名称,------検索Url,---------------------------------------#
   &KKK, MSN検索,      https://www.bing.com/search?q=
   &KKG, Google検索,   https://www.google.co.jp/search?q=
   &KKY, Yahoo検索,    https://search.yahoo.co.jp/search?p=
   &KKA, Amazon,       https://www.amazon.co.jp/s?k=
   &KKR, R楽天市場,    https://search.rakuten.co.jp/search/mall/
   &KK5, 一括検索,     KKK/KKG/KKY/KKA/KKR
★
   &KBD, 株Doraチャート,  https://www.kabudragon.com/s?t=
   &KBC, Cost株価Yahoo,   !YahooNow
   &KBY, Yahooチャート,   !YahooCha
   &KBT, 株Tan情報,       !KtanCha
   &KBN, Nikkei３分５日,  !NikeCha
★
   &KEI, keisan計算[31]
   &KEY, 自動キー操作[32]
   &FS,  説明文  ;file名  ##マルチ窓起動(&FSet)
   &FS&, 説明文  ;file名  ##入替え(&FSet&)
";
##
function global:ssWClkCmd($ln,$zcc){ $zcmd=$zcc.split(" ")[0]; $zcc1=($zcc.substring(5)).trim(); ##dbc "$ln  $zcc";
   ##★キー入力  ★計算  ★HTML  ★CSS
   if( ($zcmd-eq "&KEY")-or ($zcmd-eq "&KEI")-or ($zcmd-eq "&HTML")-or ($zcmd-eq "&CSS") ){
      for( $ii=1; $ii -lt 300; $ii++ ){ $cc=$tBox.Lines[$ln+$ii]; if(($cc -eq $null)-or($cc.length -le 2 )){break;};
          if($cc.startsWith("#")){continue;}; $zcc1+="`n"+($cc.trim()) };   ## dbg $zcc1
   };
   switch($zcmd){
   "&KEI"{ ssKeisan $zcc1  ; return;} ##▲V1
   "&KEY"{ ssKeyAuto $zcc1 ; return;}
   "&FS&"{ $zcc1=($zcc1.split(";"))[1].trim(); Iex("ssFileSet `"$zcc1`""); return; };
   "&FS" { $zcc1=($zcc1.split(";"))[1].trim(); $zcc1=Iex("`"$zcc1`""); if( Test-Path $zcc1 ){;}else{ return; };
           if($zcc1.endswith('.rtf') ){ ssRtfMemo $zcc1 }else{ ssPshAct 1 "$szTool $fln $zcc1" }; return; }
   };
   if( (ssWClkUsrCmd $ln $zcc) -eq 0 ){ ssWebSrh $zcmd $zcc1; }; 
};
##★Web検索List&スーパ検索処理
##
function global:ssWebSrh($zcmd,$zcc1){ $zcm=$szLstMacro.split(",`n");
  for($ii=0; $ii -lt $zcm.length; $ii++ ){ if(($zcm[$ii].trim()) -ne $zcmd){ continue; }; break; };
  $zcc=(($zcm[$ii+2]).trim()); if($zcc.startsWith("http")){ $zcc+=$zcc1; Iex( "Start `'$zcc`'" ); Start-Sleep -m 500; return; }
  if( $zcmd -eq "&KK5" ){ foreach($cc in $zcc.split("/")){ if($cc.length -eq 3){ ssWebSrh "&$cc" $zcc1; }; }; };
  if( $zcmd.substring(0,3) -eq "&KB" ){ ssKabView $zcc $zcc1; };
};
##★Dir容量表示【ssDir zcmd】[0]Tree表示//[1]Dir容量表示)
##
function global:ssDirVol($zcmd){ $zcc0= '$zDir=Read-Host "[DIR名/Enter]= "; if($zDir -eq "" ){ $zDir=(pwd); }; echo "[Dir] $zDir" ;'
   if($zcmd -eq 0){ $zcc0+='tree $zDir /f ;';  return $zcc0; }; ##★Tree
   $zcc0+='$zlist =dir $zDir -Directory |%{ [PsCustomObject]@{ "Name"=$_.Name; "Size"=(dir $_.FullName -File -Recurse |measure -Sum -Property Length).Sum }; };
   $zmes =$zlist |measure -Max -Min -Property Size; $zlist |%{ [PSCustomObject]@{ "Name"=$_.Name; "Size"=( ([int]$_.Size).ToString("#,#") ).PadLeft(16);
   "Graph"=("*" * [int]($_.Size/($zmes.Maximum)*10)); }; };';   return $zcc0;
};
##★[31]式表計算の処理【 ssKeisan zpam 】
##
function global:ssKeisan($zcmd ){ $zcmd=$zcmd; $dd0=$zcmd; $zcc0="`r`n"; $ss=0;
   foreach($cc in ($dd0-replace("[=]","")).split(";`n") ){     ##★式分割
      if($cc.startsWith("_") ){ $zcc0+="$cc`r`n"; continue;};  ##★!コメント行
      $zcc0+="    "; if($cc.Contains("_") ){ $cc2=$cc.split("_"); $zcc0+=$cc2[0]+"_"; $cc=$cc2[1]; };
      if($cc.length -ge 3  ){ $dd=Iex($cc); $ss+=$dd; $zcc0+="$cc = $dd`r`n"; }else{ $zcc0+="$cc`r`n";};
   }; $zcc0+="合計= $ss"; (MsgBox $zcc0);
};
##★[32]キー操作自動化の処理【ssKeyAuto zpam】
##
function global:ssKeyAuto($zcc0){ 
   if((ssMsgYesNo "注" "[英]入力モードを確認し`nキー入力BOXをクリアし、[Y]釦押下し`n素早く入力BOXをクリック")-ne "Yes" ){ return;};
   Start-Sleep -m 2500; $zcc0=$zcc0.replace("{T}","{TAB}").replace("{D}","{DELETE}").replace("{E}","{ENTER}");
   foreach( $cc in $zcc0.split(";`n") ){ if($cc.length -lt 3){ continue; }; $zcc=$cc.trim();
      if( $zcc.startsWith("@Wait") ){ $zdd=[int]($zcc.substring(6)); dbc("[Wait(s)] $zdd"); Start-Sleep -m ($zdd*1000); continue; };
      if( $zcc.startsWith("@Stop") ){ $zcc1="送信継続は[Y]押下し素早く入力BOXをクリック`n停止は[N]をクリック";
           if( (ssMsgYesNo "停止中" $zcc1)-ne "Yes" ){ return;}; Start-Sleep -m (2*1000); continue;  };
      [SendKeys]::SendWait("$zcc");
   };
};
##★[33][34][35]googleグラフの処理 【ssGraf zType zOption zData zColum zPrg zBody】
##
function global:ssGraf($zType,$zOption,$zData,$zColum,$zAddProg,$zAddBody){ $szfile="$home\Desktop\gChart01.html";
  $zcc0='<html><head><script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script>
    <script type="text/javascript"> google.charts.load("current", {packages:["@@Package"]}); 
      google.charts.setOnLoadCallback(drawChart); var chart; var options; var data; 
      function drawChart(){ chart = new google.visualization.'+$zType+'(document.getElementById("chart_values"));
      options='+$zOption+'; ';
   if( $zData.startsWith("[") ){ $zcc0+='data =new google.visualization.DataView( 
   google.visualization.arrayToDataTable( '+$zData+' ) );' }
   else{ $zcc0+='data =new google.visualization.DataTable(); '+$zData+'; ' };
   $zcc0+=$zColum+';chart.draw(data, options); };'
   $zcc0+=$zAddProg+';</script></head><body><div id="chart_values" ></div>'+$zAddBody+'</body></html>'   ; $zcc1='corechart';
   foreach($cc in 'AnnotationChart','TreeMap','Timeline','Table','VegaChart','GeoChart','Gauge','Sankey','Calendar','WordTree','TreeMap'){ 
      if($cc -eq $zType){ $zcc1=$cc; break; }; };  $zcc0=$zcc0.replace('@@Package',$zcc1);
   SC $szfile $zcc0; & $szfile;  ##★Web.html起動
};
##★[36]株表示の処理 【 ssKaView zKind zKabNo zUrl】
##
function global:ssKabView($zzcmd,$zzcc,$zzurl){
   if($zzurl.length -gt 10){ $zUrl =$zzurl; if( $zzcmd -eq "!KabMany"){ Start ($zzurl.replace("@@@@",$zzcc )); return;}; }
   else{ switch($zzcmd){
     !KdoraCha{ Start ("https://www.kabudragon.com/s?t="+$zzcc ); return; }
     !YahooNow{ Start ("https://finance.yahoo.co.jp/search/?query=$zzcc" ); return; }
     !YahooCha{ $zUrl="https://finance.yahoo.co.jp/quote/@@@@.T/chart?";
          $zUrl+="styl=lne&frm=mntly&scl=stndrd&trm=1w&evnts=&ovrIndctr=sma%2Cmma%2Clma&addIndctr=slwStchstc"; break; }
     !KtanCha { $zUrl="https://s.kabutan.jp/stocks/@@@@/"; break; }
     !NikeiCha{ $zUrl="https://www.nikkei.com/smartchart/?code=@@@@&timeframe=3d&interval=3Minute&upperIndicators=bollinger"
                $zUrl+="%2Csma&lowerIndicators=slowstochastics&eventsShow=0"; break;}
   }; };
   foreach( $cc in $zzcc.split("+ ") ){ if( $cc.length -ge 4 ){ Start ($zUrl.replace("@@@@",$cc)); Sleep -m 1000; }; }; ##▲SPC追加
};
##★[36]【STag [文字] pm】移動 ## [WebTable] 移行で検索、、、
##
$global:szsTagIndx="[WebTable]";  ##★sTagの検索開始文字[WebTable]
function global:sTag($zcc,$zpm){ $szSchBox1.Text=($zcc.split(" "))[0]; $global:szfindPos=($tBox.Text).indexof($szsTagIndx);
   if( $zpm -eq 0){ $tBox.WordWrap=$false }; $tBox.SelectionStart=$tBox.Text.Length; $tBox.ScrollToCaret(); ssSchFind(1); }; 

##★[37][右釦]へQR処理組込み(szQRSaveMode=1で[QRcd]へQRcode保存)
##
$global:szCMn10=ssRbtMenu "[!name;QRcode]生成"; $global:szQrDir="QRcd";##開始時QRDir
$szCMn10.add_Click({ $ln=((($tBox.Text).substring(0,$tBox.SelectionStart)).split("`n")).count-1;
   $zcm=($tBox.Lines[$ln].replace("`'","")).split(";"); $zFl=$zcm[0].trim(); $zQR=$zcm[1].trim();
   if( $zFl.startsWith("!") -and ($zQR.length -ge 5) ){;}else{return;}; 
   if( $szQRSaveMode -eq 1 ){ $zFl="$szQrDir\$zFl.png";}else{ $zFl="$home\Desktop\QRcode.png";};
   MsgBox "$zFl`n$zQR"; New-QRCodeText -Text $zQR -Width 10 -Show -Out $zFl;
}); 
##★[38]TagListBoxから[WC]で移動  [##★[XXX]]の行へ移動
##
$global:szTagListCha="##★"; ##★TagList作成文字
function global:ssTagListGet($zpam1){ $zDat=($tBox.Text).replace("`r",""); $zcc0="";
    foreach($cc in $zDat.split("`n") ){ if( $cc.startsWith($szTagListCha) ){;}else{ continue;}; $zcc0+=$cc+"`n"; };
    $ww=$zpam1; $global:fmTgBox=New-Object Form -Pro @{ Size=$ww; Text="【移動Tag-List】" ; TopMost=$True; }; 
    $global:tgBox=New-Object TextBox -Pro @{ Font="$szFont,14"; Dock="Fill"; Multiline=$True; AcceptsReturn=$True; ScrollBars=[ScrollBars]::Vertical;};
    $fmTgBox.Controls.Add($tgBox); $tgBox.Text=($zcc0.replace("`n","`r`n")); $tgBox.SelectionStart=0; $fmTgBox.Show(); $tgBox.WordWrap=$false; 
    ##★[WC]処理
    $tgBox.Add_DoubleClick({ $ln=((($tgBox.Text).substring(0,$tgBox.SelectionStart)).split("`n")).count-1; $zcc=($tgBox.Lines[$ln]).trim();
        if($zcc.length -le 2){return; }; $szSchBox1.Text=$zcc; $tBox.SelectionStart=$tBox.Text.Length; $tBox.ScrollToCaret(); ssSchFind(0);##★PSH窓TXT
    });
    $tgBox.ContextMenuStrip =$global:conMenu =New-object ContextMenuStrip -Pro @{ Font="BIZ UDゴシック,12"; };
    (ssRbtMenu "[検索窓]" ).add_Click({ ssSchBoxSet $tgBox }); (ssRbtMenu "[コピー]").add_Click({ $tgBox.Copy() });
    (ssRbtMenu "[Top移動]").add_Click({ $tBox.SelectionStart=0; $tBox.ScrollToCaret() });
};
##★[41]PSH起動の高速化
##
function ssNgen(){ $zcc='-noe cd c:\
  Set-Alias ngen   @(dir (join-path ${env:\windir} \"Microsoft.NET\Framework\")   ngen.exe -recurse |sort -descending lastwritetime)[0].fullName
  Set-Alias ngen64 @(dir (join-path ${env:\windir} \"Microsoft.NET\Framework64\") ngen.exe -recurse |sort -descending lastwritetime)[0].fullName
  [appdomain]::currentdomain.getassemblies() | %{ if($_.location -match $(\"\\assembly\\GAC_64\") ){
  ngen64 install $_.location }else{ ngen install $_.location }; } ';
  Start -Verb runas -FilePath powershell.exe -Arg "$zcc";
};
##★[41]フォルダ表示(cmd=0:現在DIR 1:再帰表示)
##
function ssViewDir($zcmd, $zdir){ if($zdir-eq $null){ $zdir=(pwd);}; $zcc="[ﾀﾞﾌﾞﾙｸﾘｯｸ起動]`n"; $global:szViDir=$zdir;
  if($zcmd -eq 1 ){ $zcc +="[$zdir]`n___[Dir/File]_________________________________________`t#__`n";
      dir $zdir -name -rec |%{ $nn=[System.Text.Encoding]::GetEncoding("shift_jis").GetByteCount($_);
         if( $nn -gt 52 ){ $nn=2; }else{ $nn=52-$nn; }; $zcc+=$_ + (" "*$nn)+"`t## `n" ;   };
  }else{ $zcc +="[$zdir]`n___[Dir/File]________________________________`t#__[Date/Time]________[Size](D=1)`n";
      dir $zdir|%{ $nn=[System.Text.Encoding]::GetEncoding("shift_jis").GetByteCount($_.Name);
         if( $nn -gt 46 ){ $nn=2; }else{ $nn=46-$nn; }; $zcc+=($_.Name + (" "*$nn)) ;
         $zcc+="`t## "+($_.LastWriteTime)+(([int]$_.Length).ToString("#,#")).PadLeft(10)+"`n";   };
  }; MsgBox $zcc "960,720" ("["+(pwd)+"]"); $mBox.AcceptsTab=$true; $mBox.WordWrap=$false; $mBox.BackColor="#EAF4FE";
  $mBox.Add_DoubleClick({ $ln=((($mBox.Text).substring(0,$mBox.SelectionStart)).split("`n")).count-1; 
      $zcc=(($mBox.Lines[$ln]-split"##")[0]).trim(); if($zcc.length -le 2){return; }; $zcc="$szViDir\$zcc";
      if( Test-Path $zcc -PathType Container ){ explorer $zcc; return; };
      if( Test-Path $zcc ){ if($zcc.endswith('.rtf') ){ ssRtfMemo $zcc }else{ Start -NoN Cmd -Arg "/c `"$zcc`""; }; };
  });##★右釦メニュ
  $mBox.ContextMenuStrip =$global:conMenu =New-object ContextMenuStrip -Pro @{ Font="$szFont,12"; };
  (ssRbtMenu "[ｸﾘｯﾌﾟ取得(ｺﾋﾟｰ)]").add_Click({ $mBox.Copy() });
  (ssRbtMenu "[ｸﾘｯﾌﾟ取得(#の左側)]").add_Click({ $zcc="";
     foreach( $cc in ($mBox.SelectedText).split("`n") ){ $zcc+=(($cc.split("#"))[0]).trim()+"`r`n"; }; dbc $zcc; Set-Clipboard $zcc; });
  (ssRbtMenu "[窓へ取得Txt/ps1/bat]" ).add_Click({ $ln=((($mBox.Text).substring(0,$mBox.SelectionStart)).split("`n")).count-1; 
     $zcc=(($mBox.Lines[$ln]-split"##")[0]).trim(); if($zcc.length -le 2){return; }; $zcc="$szViDir\$zcc";
     if( (Test-Path $zcc)-and ($zcc.endsWith(".txt")-or $zcc.endsWith(".ps1")-or $zcc.endsWith(".bat")) ){ 
        if( $szFile -ne $zcc ){$global:szFlBk1=$szFile;}; $tBox.Text=Cat $zcc -Raw; $tBox.Font="$szFont,11"; $global:szFile=$zcc; ; dbt("△File読取△$szFile");
     };
  });
};
##★[41]大きいカレンダ(カスタマイズ)
##
function ssBigCalen(){ $fmCal=New-Object Form -Pro @{ Location="100,50"; Size="380,500"; };
  $zMonCal=New-Object MonthCalendar -Pro @{ Font="'Meiryo UI',28"; TrailingForeColor="192,192,0"; }; 
  $fmCal.Controls.Add($zMonCal); $fmCal.Show(); ##▲V1
};
##★[41]ツール処理(カスタマイズ)
##
function ssToolAct($zcmd,$zpam){ switch($zcmd){
##★アプリ変数表示
 !AplD{ $zcc=(pwd); $zVer1=((cat $szTool)[0].split(" "))[0]; $zVer2=((cat $fladd)[0].split(" "))[0];
     $zcc1 =("[PshMemo] $zVer1  [PshAdd] $zVer2").replace("#","");
     $zcc1+= "`n[編集] $szFile`n[戻り] $szFlBak1`n[TopPage] $fln`n[Dir] $zcc" ;
     $zcc1+= "`n[Apl] $szTool`n[add] $fladd`n[usr] $fladd2`n`n[editor] $szEditor";
     MsgBox $zcc1 "820,450";
     return;}
##★画面クリア
 !DClr{ if((ssMsgYesNo "【画面クリア(Y/N)】" "画面クリアしてＯＫですか？")-ne "Yes" ){ return; };
     $tBox.Text=""; $tBox.SelectionStart=0; if( ($szFile-ne "")-and ($szFlBk1-ne $szFile) ){$global:szFlBk1=$szFile; };
     return;}
##★UTF8->ANSI変換
 !ANSI{ if( ($szFile -ne "")-and (Test-Path $szFile) ){;}else{ return; }; $tBox.Text=Cat $szFile -Raw -Encoding UTF8; $tBox.SelectionStart=0;
     if( (ssMsgYesNo "注:UTF8->ANSI変換OKですか？(Y/N)" "[File保存]押下で`n上書処理(Y/N/ｷｬﾝｾﾙ)します`n`n$szFile" )-eq "Yes" ){ return; };
     $tBox.Text=Cat $szFile -Raw; $tBox.SelectionStart=0;
     return;}
##★HTML特殊文字変換(変換文字：&,<,>,",')　MSGBOXに出力
 !HtmC{ $zcm=@("&","&amp;",  "<","&lt;",  ">","&gt;",  "`'","&#039;",  "`"","&quot;",  "`r","");
     $zcc=$tBox.Text; for( $ii=0; $ii -lt $zcm.length; $ii+=2){ $zcc=$zcc.replace($zcm[$ii],$zcm[$ii+1]); }; MsgBox $zcc "1180,720";
     return;}
};};

##★PS1ファイル半自動VerUP(一旦MsgBoxに表示->Ver確認OK->BackUP->画面入替->[File保存])
##
function global:ssPs1VerUp(){ $zcc0=((Get-Clipboard)-join "`r`n"); 
  if( $zcc0.startsWith("##Ver") ){;}else{ dbg "[★]更新ps1ファイルをマウスコピー取得ください"; return; };
  MsgBox $zcc0 "1280,760"; $mBox.Font="$szFont,11"; $mBox.BackColor="#E5F2FE";
  $zcm=($mBox.Lines[0]).split(" "); $zvr21=$zcm[0].replace("#",""); $zcc22=$zcm[1].trim(); $zcc24=$zcm[3].trim();##[ryu]
  if( $zcc22.endswith('.ps1')-and $zcc24.contains('ryu') ){$zfl="$szToolDir\$zcc22"; }else{ dbg "[★]pshファイルでないため処理不可"; return; };
  if( Test-Path $zfl){ $zccm=(cat $zfl); $zvr11=(($zccm[0]).split(" "))[0].replace("#","");
      $zBakDir=$szToolDir+"Bak"; if(Test-Path $zBakDir -PathType Container){;}else{ New-Item $zBakDir -ItemType Directory };
      $zflbak=("$zBakDir\$zcc22"+"_$zvr11").replace(".","_")+".txt"; }else{ $zvr11="V00"; $zflbak=""; };
  $zcc3="`n[File名]`n$zfl`n`n[現在] $zvr11  --->  [更新] $zvr21";
  if( $zvr11.startsWith("V")-and $zvr21.startsWith("Ver")-and ($zvr11-ne $zvr21) ){;}else{ dbg "$zcc3`n`n[★]同一VerなどでＮＧ"; return; };
  if( (ssMsgYesNo "MSG" "[★]更新のとき[Y]を押下`n`n$zcc3`n`n[BakUP_File]`n$zflbak")-ne "Yes" ){ return;};
  if( Test-Path $zfl){ Copy-Item $zfl $zflbak -Force; }; SC $zfl $zcc0 -Force;
};

##★[38]Help処理
$szHelpDoc="$szToolDir\wPshHelpDoc101.txt";
function ssHelpView($zcmd,$zpam){
    if( Test-Path $szHelpDoc ){ $zcc=(Cat $szHelpDoc -Raw); }else{ $zcc=(Cat $fladd  -Raw); $zcc=$zcc.substring($zcc.indexof("<##★"+"[HELP]")+1); }; 
    $zcc=$zcc.replace("`r",""); MsgBox $zcc "1140,780";  if($mBox -eq $null){ return; }; $mBox.BackColor="#FFF7EE";
    $mBox.Add_DoubleClick({ $ln=((($mBox.Text).substring(0,$mBox.SelectionStart)).split("`n")).count-1; $zcc=($mBox.Lines[$ln]).trim(); ##dbc $zcc;
        $zcc=$zcc.replace("@GUrl","https://ryupapa008.blogspot.com");
        if( $zcc.startsWith("!") -and $zcc.contains("http") ){ Iex("Start `'"+(($zcc.split(";"))[1]).trim()+"`'"); return; };
    });
};
##★ユーザ拡張ファイル(usr)登録
if( Test-Path $fladd2 ){ . $fladd2; };

<##★[HELP]画面　####################################################
!【サイトマップ】; @GUrl/p/blog-page_14.html
!【操作説明】;     @GUrl/2024/09/psh.html
----
(11)ファイル１行目: [#!  @BakColor:#F0E0C0   @FntSize:14  @WndSize:1080,740]で指定する。
! 　背景色は[@BakColor:#F0E0C0]で指定。色値サイト; @GUrl/p/blog-page_6.html
　　文字寸法は[@FntSize:14]で指定。画面寸法(幅,高さ)は[@WndSize:1080,740]で指定。
----
(21)[&]行:PSH起動。  [&&]行:窓無し。[&&&]行:継続起動。内部関数(dbg/dbc/MsgBox)等を利用可能。
    [;]行:行連結。[&]行の次の[;]行を連結し[&][&&][&&&]行の対応処理を実行。

(22)[>]行:DOS-CMD起動。   [>>]行:窓無し起動。
    [> cd Dir名]行で指定フォルダへ移動。 [TopPage]表示で元のフォルダへ戻る。

(23)[&FSet& File名]行:ファイル名(txt/rtf)を設定し、新規/編集/保存する。

(24)[&FSet& Dir名]行: フォルダ管理処理をする。
　　[!readMe.txt]を仮作成し、そのフォルダへ移動([File保存]押下で保存)。
　　[右釦]>[ﾂｰﾙ]>[Dir/File取得]でフォルダ/ファイル名を取得し、[##]コメント記載で管理する。
　　[フォルダ/ファイル名]行をダブルクリックでそのファイルを起動する。

(25)[!コメント; Http:xxxxxxxxxxxx]行でWebサイトを表示する。

(26)ファイル(txt)を[D&Drop]で表示/編集/保存。 ファイル(ps1)を[D&Drop]で起動。
    フォルダを[D&Drop]で(24)項の処理をする。

(27)[File][Help]のサブメニュで次の編集をする。
　　[TopPage]反映/編集、[Psh編集]:PSHメモ帳、[Add編集]:追加機能

!31)計算表示マネージャ_____参照;@GUrl/2024/09/psh_8.html
!32)自動キー入力マネージャ_参照;@GUrl/2024/09/pshpsw.html
!33)ＰＳＷ管理マネージャ___参照;@GUrl/2024/09/pshpsw.html
!34)googleグラフマネージャ_参照;@GUrl/2024/09/google.html
!35)ＷＥＢ表示マネージャ___参照;@GUrl/2024/09/pshwebpsh.html
!36)ＱＲ生成マネージャ_____参照;@GUrl/2024/09/qrpshweb.html
!37)テキストマネージャ_____参照;@GUrl/2024/09/qrpshweb.html
##>

<##Ver2.10--[TopPage]  @BakColor:#fff2e4   @FntSize:14  @WndSize:1080,780  @WndRtan:1
##
&FS   ★[27] wGuiPsh2フォルダ管理            ;$HOME\Desktop\wGuiPsh2 

&FS   ★[36] Web表示マネージャ               ;dat\wPshWebMng101.txt
&FS   ★[38] PSH文法マネージャ               ;dat\wPshDocRule101.txt
&FS   ★[38] Mail履歴マネージャ              ;dat\wPshMailLog101.txt

&FS&  ★[27] PSH登録の簡単な例               ;dat\wndPshTxt201.txt
&FS&  ★[27] PSH短文アプリ                   ;dat\wndPshTxtShort201.txt
&FS&  ★[31] 式表計算＋α                    ;dat\wPshKeisan101.txt
&FS&  ★[32] 自動キー入力                    ;dat\wPshKeyAuto101.txt
&FS&  ★[37] QRマネージャ                    ;dat\wPshQRCode101.txt
&FS&  ★[33] グラフ(おもしろ＋実用編)         ;grf\wPshGraf101.txt
&FS&  ★[34] グラフ(折れ線/曲線/散布/面など） ;grf\wPshGraf201.txt
&FS&  ★[35] グラフ(縦棒/横棒/複合/円/他）    ;grf\wPshGraf301.txt

##スーパWeb検索
&KKK  コピペ gui
&KK5  ファンヒータ　ダイニチ
&KBN  8233 8848 6526 7003 6753   ##日経チャート