2.2 プログラミング入門 このPSH窓だけでプログラムが作れる(スーパWeb検索)

@echo off &rem if not "%~0"=="%~dp0.\%~nx0" (start /min cmd /c,"%~dp0.\%~nx0" %* &exit) &rem ★DOS窓mini化
powershell -ExecutionPolicy RemoteSigned "$fln=(echo %0); $aa=(Cat $fln -Raw); $fdt=$aa.substring($aa.indexof('##'+'STT:')); Iex($fdt+'##>');"
exit; pause&exit;
##
##Ver1.20 wndPshKiso151.bat 2025/1205 by ryu #####################################
##
##STT:  ★bat:PSH勉強支援アプリ(PSH基礎その1)
##
using namespace System.Windows.Forms; Add-Type -AssemblyName System.Windows.Forms,System.Drawing; ##★GUI
function dbg($cc){ [MessageBox]::Show($cc) }; function dbc($zcc){ Write-Host $zcc; };  ##★DBG
function MsgYesNo($cc0,$cc1){ return [MessageBox]::Show($cc1,$cc0,"YesNo"); };
function ssView($bb){ $tBox.Text=$bb.substring( $bb.indexof("<#"+"#Ver" )); $tBox.SelectionStart=0; $mMain.Text="[1.20] "+$fln; }; ##★表示
##★メイン窓／編集窓の生成   ##★窓寸法(WW,HH)  ##★文字種類/寸法  ##★背景色
$mMain=New-Object Form -Pro @{Size="1080,740";}; $szFont="BIZ UDゴシック"; $tBox=New-Object TextBox -Pro @{ Font="$szFont,13"; BackColor="#E4FFE5";
   Dock="Fill"; Multiline=$True; AcceptsReturn=$True; ScrollBars=[ScrollBars]::Vertical;  }; $mMain.Controls.Add($tBox);
$mMain.MainMenuStrip =$dListMenu =New-Object MenuStrip -Pro @{ Font="$szFont,12"; }; $mMain.Controls.Add($dListMenu);
function ssDMnMenu($zcc){ $zmm=New-Object ToolStripMenuItem; $zmm.Text=$zcc; $dListMenu.Items.AddRange($zmm); $global:szMnBas=$zmm; return $zmm;}
function ssDMnMSet($zcc){ $zmm=New-Object ToolStripMenuItem; $zmm.Text=$zcc; $szMnBas.DropDownItems.AddRange($zmm); return $zmm;}
function ssSavPrg($typ,$cc){if((MsgYesNo "確認" "保存`n`n$fln")-ne "Yes"){dbg "中止";return}; SC "$fln.$typ" (Cat $fln) -For; SC $fln $cc -For};
(ssDMnMenu "[反映]").add_Click({ $zcc=Cat $fln -Raw; $zcc0=($zcc.substring(0,($zcc.indexof("<#"+"#Ver")-1))+$tBox.Text); ssSavPrg "bak" $zcc0 });
(ssDMnMenu "[bak]").add_Click({ notepad ($fln+".bak") }); (ssDMnMenu "[再表示]").add_Click({ ssView( Cat $fln -Raw ) });
(ssDMnMenu "[Clear]").add_Click({ $zcc=""; (0..3)|%{ $zcc+=$tBox.Lines[$_]+"`r`n"; }; $tBox.Text=$zcc; $tBox.SelectionStart=0;});
(ssDMnMenu "[編集]").add_Click({ notepad.exe $fln }); $global:szWeb="https://ryupapa008.blogspot.com/2024/08/guipsh_24.html#_szIdm";
(ssDMnMenu "[一覧]").add_Click({$zcc=""; foreach($cc in $tBox.Text.split("`n")){ if($cc.contains("##★")){$zcc+="$cc`n";}; }; MsgBox $zcc; });
$aa=(ssDMnMenu "[Help]"); (ssDMnMSet "はじめに(Web)").add_Click({ $cc="10"; Start "$szWeb$cc" });
  @("60.ｺﾋﾟﾍﾟList","30.利用方法","81.PSH窓の利用","83.変数","84.制御文","85.条件文字","86.関数","87.ﾌｧｲﾙなど",
    "88.ｶﾚﾝﾀﾞ表示","50.Web検索作成","89.Web検索説明"  )|%{ (ssDMnMSet $_).add_Click({ $cc=($this.Text).substring(0,2); Start "$szWeb$cc" }); };
  $aa=(ssDMnMSet "----"); (ssDMnMSet "[Clip>ｱﾌﾟﾘ入替]").add_Click({ $zcc0=((GCB)-join "`r`n").trim()+"`r`n"; $zfl0=Split-Path $fln -Lea;
    if( $zcc0.startsWith("@echo off") -and $zcc0.contains($fln0) ){}else{ dbg "$zfl0 をマウスコピーください"; return}; ssSavPrg "old" $zcc0 });
  (ssDMnMSet "old表示").add_Click({ notepad ($fln+".old") });
##★マウス[WC]操作 ##★DOS処理 ##★explorer処理 ⇒ ★psh追加⇒★画面設定⇒MainDLG表示 ##★Tool窓起動
$tBox.Add_DoubleClick({ $ln=((($tBox.Text).substring(0,$tBox.SelectionStart)).split("`n")).count-1; $zcc=($tBox.Lines[$ln]-split"##")[0];
  if( $zcc.startsWith("&") ){ for( $ii=1; $ii -lt 500; $ii++ ){ $cc=$tBox.Lines[$ln+$ii]; if($cc -eq $null){ break; };
      if( $cc.startsWith(";") ){ $zcc+="`n"+($cc.substring(1)).trim(); }else{ if( $cc.startsWith("#") ){ continue;}; break; }; }; }; ##dbc $zcc;
  if( $zcc.startsWith("&&& ")){ $zcc=$zcc.substring(3); $tBox.SelectionStart+=4; Iex($zcc); return}; 
  if( $zcc.startsWith("& ")  ){ $zcc=$zcc.substring(1); $zcc=$zcc.replace('"','\"'); Start powershell -Arg "-noe $zcc"; return}; 
  if( $zcc.startsWith("&& ") ){ $zcc=$zcc.substring(2); $zcc=$zcc.replace('"','\"'); Start -NoN powershell -Arg "$zcc"; return}; 
  if( $zcc.startsWith("&") ){ ssMacAct $ln $zcc; };
}); function global:ssMacAct($ln,$zcc){}; $fladd=$fln.replace(".bat","_add.ps1"); if( Test-Path $fladd ){ . $fladd; }; 
##★MsgBox関数
function MsgBox($cc){ $fm=New-Object Form -Pro @{Size="920,540"}; $global:mBox=$mm=New-Object TextBox -Pro @{ Font="$szFont,12"; Multiline=$True;
  Dock="Fill"; AcceptsReturn=$True}; $fm.Controls.Add($mm); $mm.Text=$cc.replace("`r","").replace("`n","`r`n"); $mm.SelectionStart=0; $fm.Show(); };
##
##★アプリ処理の登録箇所
##
ssView($fdt); $mMain.ShowDialog(); ##★最終行Gui窓表示

<##Ver1.11--[初級者向けPSH勉強支援]----------------------------------------------------------
##
##●パワーシェル(PSH)の基礎(その１:文法)....##[WC]をダブルクリック

##  [&]行:起動   [&&]行:窓無し起動   [&&&]行:継続起動   [;]行:連結起動


##★1.1 変数(文字前に[$]を付加)
##  局所変数($dd1)、広域変数($global:dd2)、dd1は関数内部のみ有効、dd2は全体で有効。
##
##  次の[&&&]２行を順にダブルクリックし動作確認。
##
##  $dd1は空(最初の&&&行のみ有効)、$dd2は数値表示(両方で有効)、[`n]は[改行]コード。

&&&   $dd1=12345;  $global:dd2=56789; dbg "設定`n dd1=$dd1 `n dd2=$dd2"; ##[WC]

&&&   dbg "局所変数`n dd1=$dd1"; dbg "広域変数`n dd2=$dd2";  ##[WC]


##★1.2 文字列の代入と連結
##  $zcc1と$zcc2へ文字代入し、$zcc3に＋で連結。["]で括る方法もＯＫ。

&&&   $zcc1="ABCD";  $zcc2="abcd";   $zcc3=$zcc1+$zcc2;   dbg "文字列連結`n $zcc3";   ##[WC]

&&&   $zcc1="ABCD";  $zcc2="abcd";   $zcc3="$zcc1$zcc2";  dbg "文字列連結`n $zcc3";   ##[WC]


##★1.3 算術計算(四則演算)
##  普通に計算式を並べるだけでＯＫ。

&&&   $zdd=10000+2000+(50-47)*10+(30-21)/9;   dbg $zdd;   ##[WC]


##★1.4 小数点の計算＆DLG表示(ダイアログ窓表示)...PSHが自動設定。整数にしたいとき[int]指定する。

&&&   $zdd=10/3;         dbg $zdd;   ##[WC]

&&&   $zdd=[int](10/3);  dbg $zdd;   ##[WC]


##★1.5 16進数の利用＆DLG表示(10進表示)...PSHが自動設定のため普通に設定でＯＫ。

&&&   $zdd=0x0B;         dbg $zdd;   ##[WC]


##★1.6 配列の利用($zcm[]  $zdm[])＆全体DLG表示、個別表示
##  色々な設定方法があるが下記@()が判りやすい。

&&&  $zcm =@("aaa0","bbb1","ccc2","ddd3"); dbg $zcm; dbg $zcm[0]; dbg $zcm[2]; dbg $zcm[3];   ##[WC]

&&&  $zdm =@(10,11,12,13,14,15); dbg $zdm; dbg $zdm[1]; dbg $zdm[3]; dbg ($zdm[0]+$zdm[5]);  ##[WC]


##★2.1 プログラム制御文(下記10個を基本使う)
## (if/ else/ for/ foreach/ do/ while/ switch/ continue/ break/ function)

##★2.2 プログラム条件文字(PSHは記号でなく右の文字を使う)
##
## ( >  >=  ==  <=  <  !=  &&  || ) --> ( -gt -ge -eq -le -lt -ne -and -or )


& ##★2.3 for文の利用例(ループ文)  ##[WC]
;
;   for( $ii=0; $ii -lt 20; $ii++ ){     
;     echo "ii=$ii";  ## 20回echoを処理
;   };


& ##★2.4 if/else文の例  ##[WC]
;
;   for( $ii=0; $ii -lt 10; $ii++ ){     
;      if( $ii -eq 3 ){ echo "Three"; }else{ echo $ii; };
;   };


& ##★2.5 foreach文の例(ループ文) ##[WC]
;
;   foreach( $cc in "!c11","!c22","!c33","!c44","!c55","!c66" ){
;     echo $cc;       ## $cc に順番に代入してechoを処理
;   };


& ##★2.6 while文の例(ループ文) ##[WC]
;
;    $ii=3; while( $ii -lt 13){     
;      echo "Loop = $ii"; $ii++;  ## while()条件のときループ実行
;    }; 


& ##★2.7 do-while文の例(ループ文) ##[WC]
;
;    $ii=5; do{ 
;      echo "ループ = $ii"; $ii++; ## echo行処理後、while()条件でループ
;    }while( $ii -le 15); 


& ##★2.8 switch文の例１( continue利用) ##[WC]
;
;   for( $ii=0; $ii -lt 10; $ii++ ){ 
;      switch( $ii ){
;       3 { echo "$ii`:Three"; continue; }
;       4 { echo "$ii`:Four";  continue; }
;       6 { echo "$ii`:Six";   continue; }
;      default{ echo $ii; }
;      };
;   };


& ##★2.9 switch文の例２（[$_]利用/ break利用) ##[WC]
;
;  for( $ii=0; $ii -lt 19; $ii++ ){
;     switch( $ii ){
;     {$_ -in 3,7,13 }{ echo "$_`:あたり"; }
;     {$_ -in 4,6,16 }{ echo "$_`:はすれ"; }
;     default{ echo "$_"; }
;     };
;     if( $ii -eq 15 ){ echo "終わり(break)"; break; }
;   };


& ##★3.1 関数登録と関数利用  ##[WC]
; ##  注.関数利用時は、変数と変数間に[()]と[,]が無い部分に注意のこと。
;
;   echo "<<関数の登録＆利用>>" 
;
;   function ssFncAct($zcc,$zdd0,$zdd1){ 
;      echo ( "計算$zcc は "+($zdd0 * $zdd1) );
;   };
;
;   $zdd=5;  ( ssFncAct "[$zdd]の3倍" $zdd 3 );
;   $zdd=8;  ( ssFncAct "[$zdd]の4倍" $zdd 4 );


##★3.2 ファイル
##★①ファイルの読取り(&&& PSH継続処理 ①後に②のこと)
##    読取はCatで可能。次の&&&行へ渡すため広域変数$global:szccを利用。

&&&  $global:szfln="TestTest.txt";  "TestTestTest" > $szfln;  ##[WC]
; $global:szcc=(Cat $szfln -Raw); dbg $szcc;

##★②ファイルの書込み(.txt付加)⇒読取り⇒内容表示
##    書込はSCで可能。

&&&  $zcc=($szcc+"<<<Fileの最後行に追加>>>");                  ##[WC]
;  $zfln="$szfln.txt";  (SC $zfln $zcc); dbg (Cat $zfln -Raw);


##★3.3 配列(ソート/逆ソート)色んな使い方があり、別途紹介予定。

&   $zcc =@("cc:1", "bb:3", "cc:2", "ab:5", "aa:8");  ##[WC]順列ソート
;   $zcc=$zcc|Sort; $zcc; 

&   $zcc =@("cc:1", "bb:3", "cc:2", "ab:4", "aa:8");  ##[WC]逆列ソート
;   $zcc=$zcc|Sort -D; $zcc; 


##★3.4 データ入力
##★キーデータ入力の例(Read-Host)

&   $dd=Read-Host "Data=";  　"Data x 2 ="+([int]$dd)*2; ##[WC]


##★算術関数利用の例( [Math]::XXXX() を使う )
##   sin/cos/tan/pi など色々あり。

&   $dd=Read-Host "√(数値)=" ; [Math]::Sqrt([int]$dd);  ##[WC]平方根(ルート)


&&& ##★4.1B 処理例：カレンダを作成表示(起動のDOS窓へ(dbc))  ##[WC]
;   ##  チョットしたPSH利用のサンプルです。dbc利用も参考にしてください。
;
;  $mm=(get-date).month;
;  $zcc=(" "*14)+$mm+"月`n"; $zcc+="  日  月  火  水  木  金  土`n"; 
;  $dss=(Get-Date -Month $mm -Day 1); $ww=$dss.DayOfWeek.value__;
;  $zcc+=(" "*28).substring(0,$ww*4 );
;  for( $ii=1; $ii -le (($dss.AddMonths(1).AddDays(-1)).day); $ii++ ){
;     if( $ii -lt 10 ){ $zcc+="   "+$ii; }else{ $zcc+="  "+$ii; };
;     $ww++; if($ww -eq 7 ){ $ww=0; $zcc+="`n"; };
;  }; dbc $zcc; MsgBox $zcc;


&&& ##★4.2 処理例：スーパWeb検索処理([&KKn]マクロ登録)   ##★[WC]①
;
; $global:szMacroList="【[&KKn]マクロ一覧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/
;   &KKT, 乗車時間,     https://transit.yahoo.co.jp/search/result/
;   &KKC, 地図検索,     https://www.google.co.jp/maps/place/
;   &KKN, noteｻｲﾄ検索,  https://note.com/search?q=
;   &KK3, 一括検索(3),  KKK/KKA/KKR
;   &KK5, 一括検索(5),  KKK/KKG/KKY/KKA/KKR
;   &KKd, 株ドラ,       https://www.kabudragon.com/s?t=
;   &KKnn,Now株価,      https://finance.yahoo.co.jp/search/?query=
;";
; ##★[&KKn]マクロ処理
; function global:ssMacAct($ln,$zcc){ if( $zcc.startsWith("&KK") ){;}else{ return;}; 
;    $zcmd=($zcc.split(" "))[0]; $zcc1=$zcc.substring(5).trim(); $zcm=$szMacroList.replace("; "," ").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; };
;    (ssMacAdd $zcmd $zcc1);
; };
; ##★追加処理
; function global:ssMacAdd($zcmd,$zcc1){
;    if( ($zcmd -eq "&KK3") -or ($zcmd -eq "&KK5") ){
;        foreach($cc in $zcc.split("/")){ if($cc.length -eq 3){ ssMacAct $ln "&$cc $zcc1"; }; }; };
; };
;
; dbg "[登録完了]"


##★上記★[WC]①をダブルクリック[WC]後、下記を[WC]する。

&KKK  こぴぺ パワー          ##[WC] MSNで検索(よく使うサイト)

&KKN  コピペ パワー          ##[WC] noteｻｲﾄで検索

&KK5  ファンヒータ           ##[WC] 一度に(5)つのサイト検索

&KK3  コーヒー ブリックス    ##[WC] 一度に(3)つのサイト検索

&KKT  大阪-京都              ##[WC] 乗車時間(Time)検索

&KKC  京都                   ##[WC] 地図の検索(Chi Zu)

&KKd  4755 6702 3402 6965 7270   ##[WC] 楽天 富士通 東レ 浜松 スバル

&KKnn 4755 6702 3402 6965 7270   ##[WC] 楽天 富士通 東レ 浜松 スバル

&&&  dbg $szMacroList            ##★[WC] [&KKn]マクロ一覧のdbg表示

&&&  MsgBox $szMacroList         ##★[WC] [&KKn]マクロ一覧のMsgBox表示