PowerShell小僧:ファイル名の一括置換(改) [コンピューター]
前記事のファイル名一括置換スクリプトを
一部変更しました。ファイルパスの最後の部分を切り出して、新しいファイル名の頭にするあたりです。
【コード】
# 関数:文字コードを表示
function myFShChrCd1{
[String]$result = chcp
#$result.GetType().FullName
# ":"で分割
[String[]]$BUF1 = $result.Split(":")
#$BUF1.GetType().FullName
# 2個目の文字列
$BUF2 = $BUF1[1]
#$BUF2.GetType().FullName
# 空白を削除
[String]$ChCode1 = $BUF2.Trim()
#echo $ChCode1
#$ChCode1.GetType().FullName
switch ($ChCode1){
"65001"{echo "文字コードはUTF-8(65001)です。";break}
"932"{echo "文字コードはShift-JIS(932)です。";break}
default{echo "文字コードは不明です。";break}
}
}
# 関数:何も入力されなかったら、デフォルト値を返す
Function Read-HostDefault($Prompt, $Default) {
# デフォルト値がある時のプロンプト
if ($Default) {
$Prompt = "$Prompt [$Default]"
}
# コンソール入力
$val = Read-Host $Prompt
# 何も入力されなかったら、デフォルト値を返す
if($val -eq ""){
Return $Default
}else{
Return $val
}
# ($default,$val)[[bool]$val]
}
#
# 文字コードをUTF-8に変更
chcp 65001
# 文字コードを表示
myFShChrCd1
# 現在のパス
$CurrentPath1 = Get-Location
Write-Host "現在のパス="$CurrentPath1
$INPUT=Read-HostDefault "OK?"
# ファイルがあるフォルダを入力
$MyFilePath1 = Read-HostDefault "ファイルがあるフォルダ?" "D:\Document\01_hy75fd4"
# フォルダが存在しない場合、終了
if(-Not(Test-Path $MyFilePath1)){
Write-Host "フォルダが存在しません。"
Exit
}
# ファイルがあるフォルダへ移動
cd -LiteralPath $MyFilePath1
# ファイル名の一覧を表示
echo "変更前のファイル名です。"
Get-ChildItem
# 入力待ち
$INPUT = Read-HostDefault "ファイル名を変更しますか(Y/N)?" "N"
if($INPUT -ne "Y"){
# Y以外なら、処理中止
# 文字コードをShift-JISに変更
chcp 932
# 文字コードを表示
myFShChrCd1
echo "処理を中断しました。"
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# ファイル名の一覧を表示
Get-ChildItem
exit
}
# ファイルパスの長さ
[int]$MyLength1 = $MyFilePath1.Length
Write-Host "MyLength1="$MyLength1
# ファイルパスの区切り文字"_"の位置
[int]$MyLastIndex1 = $MyFilePath1.LastIndexOf("_", $MyLength1 - 1)
Write-Host "MyLastIndex1="$MyLastIndex1
# 区切り文字"_"が見つかったか?
if($MyLastIndex1 -eq -1){
# 区切り文字"_"が見つからない
# ファイルパスの切り出し開始文字を最終文字から2文字目にする
[int]$MyStart1 = $MyLength1 - 3
#Write-Host "MyStart1="$MyStart1
# ファイルパスの最終3文字を切り出す
[string]$PathL3 = $MyFilePath1.Substring($MyStart1,3)
# アンダーバーを連結
$PathL3 += "_"
#Write-Host $PathL3
}else{
# 区切り文字"_"が見つかった
# ファイルパスの切り出し開始文字
[int]$MyStart1 = $MyLastIndex1 + 1
# 切り出す文字数
[int]$MyLength2 = $MyLength1 - $MyStart1
# 切り出す文字数が10を超えたら、最終3文字のみ切り出す
if($MyLength2 -gt 10){
# ファイルパスの切り出し開始文字を最終文字から2文字目にする
[int]$MyStart1 = $MyLength1 - 3
# 切り出す文字数
[int]$MyLength2 = 3
}
Write-Host "MyStart1="$MyStart1
Write-Host "MyLength2="$MyLength2
# ファイルパスの区切り文字"_"の次の文字から最終文字までを切り出す
[string]$PathL3 = $MyFilePath1.Substring($MyStart1, $MyLength2)
# アンダーバーを連結
$PathL3 += "_"
#Write-Host $PathL3
}
# 新しいファイル名を入力
[String]$NewFileName1 = Read-HostDefault "新しいファイル名?" $PathL3
# ファイル名の連番の開始番号を入力
[String]$StartNo = Read-HostDefault "ファイル名の連番の開始番号?" 1
# ヌル判定
# if ([String]::IsNullOrEmpty($StartNo)){
# Write-Host "開始番号に何も入力されなかったので、開始番号=1とします。"
# [string]$StartNo = "1"
# 入力待ち
# $INPUT = Read-Host "OK?"
# }
# 変換後の整数変数
[Int]$StartNo1 = 0
# 整数変換
[Bool]$Result1 = [int]::TryParse($StartNo, [ref]$StartNo1)
if($Result1 -eq $FALSE){
Write-Host "開始番号="$StartNo" に整数以外が入力されたので終了します。"
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# 文字コードをShift-JISに変更
chcp 932
# 文字コードを表示
myFShChrCd1
echo "処理を中断しました。"
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# ファイル名の一覧を表示
Get-ChildItem
exit
}
# 新しいファイル名の確認
[String]$String1 = "新しいファイル名:" + $NewFileName1 + $StartNo1.tostring("000") + ".jpg でよろしいですか(Y/N)?"
$INPUT = Read-HostDefault $String1 "N"
if($INPUT -eq "Y"){
# TMP_001.xxx, TMP_002.xxx と昇順で名前を付け替える
ls -File | sort Name | % {$i = $StartNo1} { $Newname = "TMP_" +$i.tostring("000")+$_.extension; rename-item $_ $Newname; $i++ }
Get-ChildItem
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# if ([String]::IsNullOrEmpty($INPUT)){
# echo "INPUTはNull"
# }else{
# echo "INPUTはNullではない"
# }
# $INPUT = Read-HostDefault "OK?"
# ファイル名のTMP_をABC_に置換する
Get-ChildItem | Rename-Item -NewName { $_.Name -replace 'TMP_',$NewFileName1 }
# 拡張子のjpegをjpgに置換する
Get-ChildItem | Rename-Item -NewName { $_ -replace '\.jpeg$','.jpg' }
}else{
echo "ファイル名の変更を中止します。"
}
# 文字コードをShift-JISに変更
chcp 932
# 文字コードを表示
myFShChrCd1
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# ファイル名の一覧を表示
Get-ChildItem
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# スクリプト実行前のパスに戻る
Set-Location $CurrentPath1
# 現在のパス
$CurrentPath1 = Get-Location
Write-Host "現在のパス="$CurrentPath1
一部変更しました。ファイルパスの最後の部分を切り出して、新しいファイル名の頭にするあたりです。
【コード】
# 関数:文字コードを表示
function myFShChrCd1{
[String]$result = chcp
#$result.GetType().FullName
# ":"で分割
[String[]]$BUF1 = $result.Split(":")
#$BUF1.GetType().FullName
# 2個目の文字列
$BUF2 = $BUF1[1]
#$BUF2.GetType().FullName
# 空白を削除
[String]$ChCode1 = $BUF2.Trim()
#echo $ChCode1
#$ChCode1.GetType().FullName
switch ($ChCode1){
"65001"{echo "文字コードはUTF-8(65001)です。";break}
"932"{echo "文字コードはShift-JIS(932)です。";break}
default{echo "文字コードは不明です。";break}
}
}
# 関数:何も入力されなかったら、デフォルト値を返す
Function Read-HostDefault($Prompt, $Default) {
# デフォルト値がある時のプロンプト
if ($Default) {
$Prompt = "$Prompt [$Default]"
}
# コンソール入力
$val = Read-Host $Prompt
# 何も入力されなかったら、デフォルト値を返す
if($val -eq ""){
Return $Default
}else{
Return $val
}
# ($default,$val)[[bool]$val]
}
#
# 文字コードをUTF-8に変更
chcp 65001
# 文字コードを表示
myFShChrCd1
# 現在のパス
$CurrentPath1 = Get-Location
Write-Host "現在のパス="$CurrentPath1
$INPUT=Read-HostDefault "OK?"
# ファイルがあるフォルダを入力
$MyFilePath1 = Read-HostDefault "ファイルがあるフォルダ?" "D:\Document\01_hy75fd4"
# フォルダが存在しない場合、終了
if(-Not(Test-Path $MyFilePath1)){
Write-Host "フォルダが存在しません。"
Exit
}
# ファイルがあるフォルダへ移動
cd -LiteralPath $MyFilePath1
# ファイル名の一覧を表示
echo "変更前のファイル名です。"
Get-ChildItem
# 入力待ち
$INPUT = Read-HostDefault "ファイル名を変更しますか(Y/N)?" "N"
if($INPUT -ne "Y"){
# Y以外なら、処理中止
# 文字コードをShift-JISに変更
chcp 932
# 文字コードを表示
myFShChrCd1
echo "処理を中断しました。"
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# ファイル名の一覧を表示
Get-ChildItem
exit
}
# ファイルパスの長さ
[int]$MyLength1 = $MyFilePath1.Length
Write-Host "MyLength1="$MyLength1
# ファイルパスの区切り文字"_"の位置
[int]$MyLastIndex1 = $MyFilePath1.LastIndexOf("_", $MyLength1 - 1)
Write-Host "MyLastIndex1="$MyLastIndex1
# 区切り文字"_"が見つかったか?
if($MyLastIndex1 -eq -1){
# 区切り文字"_"が見つからない
# ファイルパスの切り出し開始文字を最終文字から2文字目にする
[int]$MyStart1 = $MyLength1 - 3
#Write-Host "MyStart1="$MyStart1
# ファイルパスの最終3文字を切り出す
[string]$PathL3 = $MyFilePath1.Substring($MyStart1,3)
# アンダーバーを連結
$PathL3 += "_"
#Write-Host $PathL3
}else{
# 区切り文字"_"が見つかった
# ファイルパスの切り出し開始文字
[int]$MyStart1 = $MyLastIndex1 + 1
# 切り出す文字数
[int]$MyLength2 = $MyLength1 - $MyStart1
# 切り出す文字数が10を超えたら、最終3文字のみ切り出す
if($MyLength2 -gt 10){
# ファイルパスの切り出し開始文字を最終文字から2文字目にする
[int]$MyStart1 = $MyLength1 - 3
# 切り出す文字数
[int]$MyLength2 = 3
}
Write-Host "MyStart1="$MyStart1
Write-Host "MyLength2="$MyLength2
# ファイルパスの区切り文字"_"の次の文字から最終文字までを切り出す
[string]$PathL3 = $MyFilePath1.Substring($MyStart1, $MyLength2)
# アンダーバーを連結
$PathL3 += "_"
#Write-Host $PathL3
}
# 新しいファイル名を入力
[String]$NewFileName1 = Read-HostDefault "新しいファイル名?" $PathL3
# ファイル名の連番の開始番号を入力
[String]$StartNo = Read-HostDefault "ファイル名の連番の開始番号?" 1
# ヌル判定
# if ([String]::IsNullOrEmpty($StartNo)){
# Write-Host "開始番号に何も入力されなかったので、開始番号=1とします。"
# [string]$StartNo = "1"
# 入力待ち
# $INPUT = Read-Host "OK?"
# }
# 変換後の整数変数
[Int]$StartNo1 = 0
# 整数変換
[Bool]$Result1 = [int]::TryParse($StartNo, [ref]$StartNo1)
if($Result1 -eq $FALSE){
Write-Host "開始番号="$StartNo" に整数以外が入力されたので終了します。"
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# 文字コードをShift-JISに変更
chcp 932
# 文字コードを表示
myFShChrCd1
echo "処理を中断しました。"
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# ファイル名の一覧を表示
Get-ChildItem
exit
}
# 新しいファイル名の確認
[String]$String1 = "新しいファイル名:" + $NewFileName1 + $StartNo1.tostring("000") + ".jpg でよろしいですか(Y/N)?"
$INPUT = Read-HostDefault $String1 "N"
if($INPUT -eq "Y"){
# TMP_001.xxx, TMP_002.xxx と昇順で名前を付け替える
ls -File | sort Name | % {$i = $StartNo1} { $Newname = "TMP_" +$i.tostring("000")+$_.extension; rename-item $_ $Newname; $i++ }
Get-ChildItem
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# if ([String]::IsNullOrEmpty($INPUT)){
# echo "INPUTはNull"
# }else{
# echo "INPUTはNullではない"
# }
# $INPUT = Read-HostDefault "OK?"
# ファイル名のTMP_をABC_に置換する
Get-ChildItem | Rename-Item -NewName { $_.Name -replace 'TMP_',$NewFileName1 }
# 拡張子のjpegをjpgに置換する
Get-ChildItem | Rename-Item -NewName { $_ -replace '\.jpeg$','.jpg' }
}else{
echo "ファイル名の変更を中止します。"
}
# 文字コードをShift-JISに変更
chcp 932
# 文字コードを表示
myFShChrCd1
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# ファイル名の一覧を表示
Get-ChildItem
# 入力待ち
$INPUT = Read-HostDefault "OK?"
# スクリプト実行前のパスに戻る
Set-Location $CurrentPath1
# 現在のパス
$CurrentPath1 = Get-Location
Write-Host "現在のパス="$CurrentPath1
ヤバイぜ! ありがとうございます(^_0)ノ
by cheese999 (2021-04-15 06:57)