コーディング

PowerShellのScriptファイル(*.ps1)をダブルクリックで実行できるようにするショートカットの作成手順

PowerShellのScriptファイル(*.ps1)をダブルクリックで実行できるようにするショートカットの作成手順を備忘録として残します。解決内容以下の問題点を解決します。問題点PowerShellのScriptファイル(*.ps1)を実行するには、コマンドラインを開いて以下のようなコマンドを実行します。このままだとスキルの低い人にPowerShell Scriptを配布した後、実行方法を説明するのが少々面倒です。（サラリーマン社会は技術以外にも部課長、お客様など技術者層以外にもファイルを配布することがよくあるのです）解決結果そのため以下のようにショートカットファイルをダブルクリックするだけでPowerShellファイルを実行してくれるようにします。手順以下の手順を実施します。まずPowerShellのScriptファイルを用意します。記述内容は仮に「PowerShellファイルを実行しました」のメッセージを表示するスクリプトにしています。exec.ps1(PowerShellファイル)Write-Host "PowerShellファイルを実行しました"pause次にショートカット...

2025.01.19

PowerShell

PowerShellでJSONファイルを読み込むサンプルコード(レコードのようなJSONファイル編)

PowerShellで同じ定義が続くレコードのようなJSONファイルを読み込むサンプルコードを紹介します。ファイル構成jsonファイルとpowershellファイル(ps1)は同じディレクトリに格納しています。ソースコードコマンドを叩くと、JSONファイルを読み込んで全部出力します。今回は2パターンのforeach文でidとnameを出力します。コマンドpowershell -ExecutionPolicy RemoteSigned -File "ReadJson_multi.ps1"ReadJson_multi.ps1# JSONファイルの読み込み$jsonContent = Get-Content -Path "json_multi.json" -Raw$jsonObj = ConvertFrom-Json $jsonContent# 繰り返し処理 1 $jsonObj | ForEach-Object { Write-Host $_.id }# 繰り返し処理 2foreach($person in $jsonObj){ Write-Host $person.name}json_m...

2024.12.28

PowerShell

PowerShellでJSONファイルを読み込むサンプルコード(設定ファイルのようなJSONファイル編)

PowerShellでJSONファイルの設定ファイルを読み込むサンプルコードを紹介します。同じ列定義が続くレコードのようなJSONファイルの読み込みは別記事で紹介します。ファイル構成jsonファイルとpowershellファイル(ps1)は同じディレクトリに格納しています。ソースコードコマンドを叩くと、JSONファイルのいくつかのプロパティを読み込みます。コマンドpowershell -ExecutionPolicy RemoteSigned -File "ReadJson.ps1"ReadJson.ps1# JSONファイルの読み込み$jsonContent = Get-Content -Path "json1.json" -Raw$jsonObj = ConvertFrom-Json $jsonContent# プロパティの確認# 文字列Write-Host $jsonObj.property1# 数値Write-Host $jsonObj.property2# 階層構造Write-Host $jsonObj.property3.namejson1.json(JSONファイル){ ...

2024.12.15 2024.12.28

PowerShell

PowerShellでJSONファイルへ書き込むサンプルコード

PowerShellでJSONファイルへ書き込むサンプルコードを紹介します。ファイル構成jsonファイルとpowershellファイル(ps1)は同じディレクトリに格納しています。ソースコードコマンドを叩くと、JSONファイルを読み込み、ageプロパティとpets.typeプロパティを変更し書き込みます。また、プロパティ"language" : "japanese"を新規に追加します。コマンドpowershell -ExecutionPolicy RemoteSigned -File "WriteJson.ps1"WriteJson.ps1# JSONファイルの読み込み$jsonContent = Get-Content -Path "json1.json" -Raw$jsonObj = ConvertFrom-Json $jsonContent# プロパティの変更# 年齢$jsonObj.age = 99# ペットの種類$jsonObj.pets.type = "bird"# プロパティの追加# 母語$jsonObj | Add-Member -Name "language" -Va...

2024.12.15 2024.12.28

PowerShell

VBAによるswap関数(2つの変数の値を交換)のサンプルコード

VBAによるswap関数(2つの変数の値を交換)のサンプルコードを紹介します。SWAP関数とはSWAP関数とは「二つの変数の値を入れ替える」基本的な関数です。ソートアルゴリズムを学ぶ際に、SWAP関数は必ず必要な知識になります。ここではVBAで、2ステップに分けてSWAP関数を作成していきます。二つの変数の値を入れ替えるコードを作成する上記のコードをSWAP関数化する二つの変数の値の入れ替えまずはシンプルに2つの変数の値を入れ替えます。関数化は後で実施します。ソースコードThisWorkbookの下にソースコードを記述しました。swap1.xlsmOption ExplicitSub main() Dim dataA As String Dim dataB As String Dim temp As String dataA = "AAAA" dataB = "BBBB" MsgBox "実行前:" & Chr(13) + Chr(10) & dataA & "," & dataB temp = dataA dataA = dataB dataB = temp MsgBox "実行後:...

2024.12.14 2024.12.15

VBA

PowerShellによるswap関数(2つの変数の値を交換)のサンプルコード

PowerShellによるswap関数(2つの変数の値を交換)のサンプルコードを紹介します。SWAP関数とはSWAP関数とは「二つの変数の値を入れ替える」基本的な関数です。ソートアルゴリズムを学ぶ際に、SWAP関数は必ず必要な知識になります。ここではPowerShellで、2ステップに分けてSWAP関数を作成していきます。二つの変数の値を入れ替えるコードを作成する上記のコードをSWAP関数化する二つの変数の値の入れ替えまずはシンプルに2つの変数の値を入れ替えます。関数化は後で実施します。ソースコードコマンドpowershell -ExecutionPolicy RemoteSigned -File "swap.ps1"swap.ps1$data1 = "あいうえお"$data2 = "かきくけこ"Write-Host ("入れ替え前：" + $data1 + "," + $data2)# 値の入れ替え$temp = $data1$data1 = $data2$data2= $tempWrite-Host ("入れ替え後：" + $data1 + "," + $data2)Read-Ho...

2024.12.14 2024.12.15

PowerShell

Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコード

Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコードを紹介します。仕様下記のシートのA列のように文末に余分に改行があるとします。※B列に補足を入れていますこれを以下のシートのように、余分な改行を削除するVBAを考えました。文章の途中の改行は残しつつ、文末の改行だけを消すのです。ソースコードソースコードは以下のとおりです。Option ExplicitSub deleteLineBreak() Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Dim CellValue As String CellValue = Worksheets("Sheet1").Cells(i, 1).value '文字数回繰り返す Dim j As Long For j = 1 To Len(CellValue) '最後の文字が改行コードの場合 If Right(CellValue, 1) = vbLf Or Right(CellValue, 1) = vbCr Then '最後の文字以外を格納 CellValue...

2024.08.04 2024.12.12

VBA

Excelの各セルのフォント名（フォントファミリー）を変更するPowerShellのサンプルコード

Excelの各セルのフォント名（フォントファミリー）を変更するPowerShellのサンプルコードを紹介します。仕様ローカルの任意の場所にPowerShellの*.ps1ファイルと、Excelファイルを格納します。「Book1.xlsx」のA列のセルのフォント名を変更してみます。後でPowerShellの実行前後を比較するため、B列にもA列の内容をコピーしておきます。PowerShell実行前のフォント名は游ゴシックです。これを以下のような別のフォント名に変更させます。セル位置実行前実行後A1游ゴシックＭＳＰゴシックA2游ゴシックＭＳゴシックA3游ゴシックＭＳ明朝A4游ゴシックメイリオA5游ゴシック游ゴシックソースコード以下のコマンドとps1ファイルを準備しておきます。コマンドpowershell -ExecutionPolicy RemoteSigned -File "setExcelFontName.ps1"setExcelFontName.ps1$excel = New-Object -ComObject Excel.Application$book = $null$exc...

2024.08.04 2024.12.12

PowerShell

郵便番号一覧から住所を求めていくREST APIを使ったVBAのサンプルコード(zipcloud版)

郵便番号一覧から住所を求めていく、REST APIを使ったVBAのサンプルコードを公開してみます。使用するWebAPIExcel単体で住所情報検索はできないので、下記「郵便番号検索API」の力を借ります。サービス名郵便番号検索API運営株式会社アイビスURL概要郵便番号検索APIは、日本郵便が公開している郵便番号データを検索する機能をRESTで提供しています。仕様画面仕様表のA列に住所を求めたい「郵便番号」の一覧を入力しています。表の右に住所出力の実行ボタンが配置されています。実行ボタンを押下すると、B列とC列に「住所」と「住所（カナ）」が出力されます。ソースコードSub ボタン1_Click() Dim objXMLHttp As Object, zipArr Dim yubinNo As String Dim splitLine() As String Dim i As Long i = 2 '行番号 Do While Cells(i, 1).value <> "" '入力値からハイフンの削除 yubinNo = Replace(Worksheets("Sheet1").Cells...

2024.08.03 2024.08.05

VBA

Excelのシートの並び順を逆順にするPowerShellのサンプルコード

Excelのシートの並び順を逆順にするPowerShellのサンプルコードを作ってみました。仕様ローカルの任意の場所にps1ファイルと、Excelファイルを格納します。Book1.xlsxを開くと、左から以下の順でシートが用意されています。Sheet1Sheet3Sheet5Sheet2Sheet4Sheet6PowerShellを実行すると、以下のように元の順と逆順に入れ分かるようにします。Sheet6Sheet4Sheet2Sheet5Sheet3Sheet1※あくまで逆順であって、ソートじゃないことに注意ソースコードpowershell本体と、PowerShellを実行するためのコマンドです。コマンドpowershell -ExecutionPolicy RemoteSigned -File "ReserveSheet.ps1"ReserveSheet.ps1$excel = New-Object -ComObject Excel.Application$book = $null$excel.Visible = $false$excel.DisplayAlerts = $fals...

2024.08.01 2024.12.12

PowerShell