メールサポータ(中級編)ファイル一括の名称変更＆文字検索/ フォルダ圧縮を追加

##★No1: メモの登録(各メニューへ)----------------
if($szUsrSts-eq $null){ $global:szUsrSts=1;
(MenuSet 8 "!tmp\!雑記メモ１" )
(MenuSet 8 "!tmp\!雑記メモ２" )
(MenuSet 8 "!tmp\!雑記メモ３" )
(MenuSet 8 "!tmp\!雑記メモ４" )
(MenuSet 9 "!tmp\!ヘルプメモ" )
(MenuSet 12 "!tmp\!ツールメモ" )
(ssDMnMSet "usr[再設定]" ).add_Click({ . $flusr });
};
##-----------------------------------------------

##★ツール２[13]の新規登録(再Load->再設定)-------
(MenuSet 13 "!Set::ﾂｰﾙ2" );
( ssDMnMSet "[usr]初級編(Web)" ).add_Click({ start "https://ryupapa008.blogspot.com/2025/11/blog-post.html" });
##
##★No2:サブメモ登録-----------------------------
(MenuSet 13 "!Act::サブメモ一覧
メモAAA ; &Dir !tmp
メモBBB ; &Dir !tmp
メモCCC ; &Dir !tmp
メモDDD ; &Dir !tmp
メモ送信AA ; &Dir !send
メモ送信BB ; &Dir !send
");
##-----------------------------------------------


##★No3:Web情報サイト登録------------------------
(MenuSet 13 "!Act::Web情報
Yahoo     ; https://www.yahoo.co.jp/
MSN       ; https://www.msn.com/ja-jp
日経10M   ; https://www.nikkei.com/smartchart/?code=N101%2FT&timeframe=10m&interval=1Day&upperIndicators=bollinger%2Cpsar&lowerIndicators=none&eventsShow=0
");
##-----------------------------------------------


##★No41: Web便利ツール１登録--------------------
(MenuSet 13 "!Act::Web便利ツール１
カレンダ ; https://calendar.onl.jp/
時計 ; https://watch.onl.jp/
スケジュール ; https://schedule.onl.jp/
視力の検査 ; https://eye.onl.jp/
");
##-----------------------------------------------

##★No42: Web便利ツール２登録--------------------
(MenuSet 13 "!Act::Web便利ツール２
ﾌｧｲﾙ共有 ; https://file.onl.jp/
メモ共有 ; https://memo.onl.jp/
QRの読取り ; https://qrcode.onl.jp/
QRの作成 ; https://qr.onl.jp/
カメラ共有 ; https://camera.onl.jp/
色の値探索 ; https://color.onl.jp/
文字文の比較 ; https://diff.onl.jp/
ペイント画像 ; https://paint.onl.jp/
");
##----------------------------------------------


##★No51: Winコマンド１登録---------------------
(MenuSet 13 "!Act::Winコマンド１
Win設定 ; explorer ms-settings:
ﾄﾞﾗｲﾌﾞ管理 ; diskmgmt.msc
ﾃﾞﾊﾞｲｽﾏﾈｰｼﾞｬ ; devmgmt.msc
ﾀｽｸﾏﾈｰｼﾞｬ ; taskmgr
ｼｽﾃﾑﾌﾟﾛﾊﾞﾃｨ ; sysdm.cpl
Win管理ﾂｰﾙ ; control admintools
");
##----------------------------------------------
##★No52: Winコマンド２登録---------------------
(MenuSet 13 "!Act::Winコマンド２
ｱﾌﾟﾘ一覧 ; explorer shell:AppsFolder
ﾃﾞｽﾌﾟﾚｲ ; desk.cpl \,3
ﾎﾞﾘｭｰﾑ ; sndvol
ｱﾌﾟﾘ追加と削除 ; appwiz.cpl
");
##----------------------------------------------


##★No61: 翻訳★起動窓マウス釦に追加------------
if($szUsrSts2-eq $null){ $global:szUsrSts2=1;
(ssRbtMenu "ｸﾘｯﾌﾟ>Google翻訳" ).add_Click({ start ( "https://"+( $szKKhon.replace("@@@@",(GCB)) ) ); });
};
##
##★No62: 翻訳★メール窓(Help)、マウス釦に追加--
function global:ssMaVBoxAddMenu($zpm2){
(ssDMnMenu "行設定>Google翻訳" ).add_Click({ $cc=$szKKhon.replace("@@@@",((ssBoximm !M2).SelectedText)); start ("https://$cc"); });
(ssRbtMenu "$zpm2 行設定>Google翻訳" ).add_Click({ $cc=$szKKhon.replace("@@@@",((ssRbtmm).SelectedText)); start ("https://$cc") });
};
##----------------------------------------------


##★No5/6: ファイル名の一括変更--------------------------------------------
(MenuSet 13 ); $aa=( ssDMnMSet "----" );
( ssDMnMSet "[usr]中級編(Web)" ).add_Click({ start "https://ryupapa008.blogspot.com/2025/11/blog-post_9.html" });
( ssDMnMSet "文字選択<>行選択" ).add_Click({ $mm=$szMaBox; if($mm.ReadOnly-eq $false){$mm.ReadOnly=$true}else{$mm.ReadOnly=$false} });
( ssDMnMSet "D:ファイル名の一括変更" ).add_Click({ ssUsrAct_Rnme });
##★
function global:ssUsrAct_Rnme($zpam){ if( $szMaDirGet-eq "" ){return}; 
  $zcc=(ssVBKeyInp "[ファイル名の一括変更]" "[入力] 対象文字列 ; 変更文字列`n`n例) abcd ; xxxx " ""); if($zcc-eq ""){return};
  $zcm=$zcc.split(";"); $zcc0=$zcm[0].trim(); $zcc1=$zcm[1].trim();
  $zcc =((Dir $szMaDirGet -name -filter "*$zcc0*" |%{ $_.replace($zcc0,$zcc1) } )-join "`r`n");
  MsgBox $zcc "720,540" "名称一括変更" 10; if( (MsgYesNo "[MSG]" "$zcc0 -> $zcc1")-ne "Yes" ){return};
  Dir $szMaDirGet -name -filter "*$zcc0*" |%{ Rename-Item "$szMaDirGet\$_" ($_.replace($zcc0,$zcc1)) };
  ssDirCmp !DGet  1 $szMaDirGet; 
};
##-------------------------------------------------------------------------


##★No7: フォルダ内ファイルで文字検索(さくらEditorも利用)--------------------
##$zcc="C:\winfree\Sakura\sakura.exe"; if(Test-Path $zcc){;}else{ $zcc="notepad.exe" }; $global:szEditor=$zcc;
(MenuSet 13 );
( ssDMnMSet "D:フォルダ内の文字検索" ).add_Click({  if( $szMaDirGet-eq "" ){return}; 
    $zcc=(ssVBKeyInp "[フォルダ内ファイル(txt)の文字検索] [@]さくら利用" "[入力] [@] 検索文字(ABCD))" ""); 
    if($zcc-eq ""){return}; ssUsrAct_Grep $szMaDirGet $zcc });
##★
$global:szGrepBoxPam="860,640 10 #E0FFE4";
function global:ssUsrAct_Grep($zdir,$zpam){ $zcc0="$zdir`n"; if($zpam.startsWith("@ ")){ $zpam=$zpam.substring(1).trim(); $global:szSakura=1 };
  (dir -name $zdir\*.txt)|%{ $zcc=( (SLS -enc oem -patt $zpam "$zdir\$_")-join "`n" ); if( $zcc.length-gt 5 ){ $zcc0+=$zcc+"`n" }; }; 
  $zcc=$zcc0.replace("`r","").replace("$zdir\",""); ssMsgBoxWnd 0 0 $szGrepBoxPam $zcc "【grep検索(txt)】"; $mBox.WordWrap=$false; 
  $mBox.Add_DoubleClick({ $zcm=( ssWCAct $this 1 ).split(":"); $zdir=$this.Lines[0]; $zfl="$zdir\"+$zcm[0]; 
      if( $szSakura-eq 1 -and $szEditor.contains("sakura") ){ $yy=("-y="+$zcm[1]); & $szEditor $zfl $yy; return};
      (ssMaV2Box 3 $zfl); ssDirCmp !MovL $zcm[1] $szBoxMm; });
};
##-------------------------------------------------------------------------


##★No8: フォルダ/ファイルのPSW付圧縮(1項のみ)(ツール２[13]へ)-------------
$global:szTlCmpres ="C:\winfree\Lhaplus\Lhaplus.exe";
(MenuSet 13 );
( ssDMnMSet "D:Dir/File圧縮(1選択+psw)"  ).add_Click({ ssUsrAct_DCmp }); 
( ssRbtMenu "D:Dir/File圧縮(1選択+psw)"  ).add_Click({ ssUsrAct_DCmp }); 
##★
function global:ssUsrAct_DCmp($zpam){ if( $szMaDirGet-eq "" ){return}; $zcc0=(ssMaSetText 0); 
  if(Test-Path $szTlCmpres){}else{ dbg "Lhaplusをインストールし`r`nフォルダ名を確認くだい"; return};
  $zpsw=(ssVBKeyInp "[PSW入力]" "zip圧縮PSWの入力`n`n$szMaDirGet\`n`n$zcc0" ( Get-Date -Format "yyyyMMdd") ); if($zpsw-eq ""){return};
  Start -wait $szTlCmpres -Arg "/c:zip /p:`"$zpsw`" /o:$szMaDirGet `"$szMaDirGet\$zcc0`""; ssDirCmp !DGet  1  $szMaDirGet;
};
##-------------------------------------------------------------------------


##★No9: mail複数行の選択処理----------------------------------------------
(MenuSet 13 ); $aa=( ssDMnMSet "----" );
( ssDMnMSet "M:未読に戻す(受信Box" ).add_Click({ ssMailAct3 !MCmp 11 });
( ssDMnMSet "M:読済み設定(受信Box" ).add_Click({ ssMailAct3 !MCmp 12 });
##★MCmp:選択行処理（ 11:未読に戻す 12:読み済み
function global:ssMailAct3($zcmd,$zpam){ switch($zcmd){
 !MCmp{   $zcc0=$szMaBox.SelectedText;
    foreach($cc in $zcc0.split("`n") ){ $cc=$cc.trim(); if( ($cc.length-lt 12)-or($cc-eq $cc0) ){continue}; $ii=$cc.substring(0,17);
       switch($zpam){ 11{$szMaItem[$ii].UnRead=$true} 12{$szMaItem[$ii].UnRead=$false} }; $cc0=$cc;
    }; return}##_★
};};
##-------------------------------------------------------------------------


##★No10: 受信BOX項目の表示------------------------------------------------
(MenuSet 13 );
( ssDMnMSet "受信BOXの表示" ).add_Click({ ssMailAct !MGet "6;0;1" ; MsgBox $szMailDtGet "960,460" "受信BOX" 11 });
##-------------------------------------------------------------------------