バッチファイルでバイナリn文字目までを読み取りファイル形式を判別したい

Question

前提

取引先の方が拡張子無しのzipやrarを区別なく送ってきていて毎回判別するのにバイナリで開いてヘッダーを見て判別しています。
その作業が非常に時間的に勿体ないのでコマンドプロンプト・PowerShell・バッチファイル等で自動化できないか考えています。

環境

Windows 10標準搭載のみ

実現したいこと

• Windows10標準機能のみを使用しバッチファイルでファイルの4byte程度をバイナリで見て拡張子を判別させファイル名.○○（zip/rar/pdf...etc）のようにリネームをさせたい。

（4byte程度じゃなくてもファイルの拡張子の判別ができれば良いです。）

試したこと

find "Rar!" *

これだけならばrarファイルとして判別はできるがこれを応用してのリネームができない。（どうやってifに応用すればいいのかわからない。）
当方バッチはあまり触れてこなかった為つらい状況です。

補足情報

Windows 10標準のみです。VSCode等は社内規則で入れることができません。またUSB等の持ち込みも不可なので家でツールを作成する等もできないです。
相手方に何度も言っても治る気配がない状態です。

どなたかヒントだけでもご教授頂けると幸いです。
宜しくお願い致します。

Comments

[y_waiwai]

リネームができないとはどうなるんでしょうか
そこらへんの説明を質問文に追記しよう

Answer 1

自動化サンプル

$Folder = "C:\新しいフォルダー"
if ( (Test-Path -LiteralPath $Folder) -eq $True  ){
     $Files = @(Get-ChildItem -LiteralPath $Folder -Recurse -Force | Where-Object {-not $_.PSIsContainer} | ForEach-Object {$_.FullName})
     foreach ($File in $Files){
          $Header = @(Get-Content -LiteralPath $File -First 10 -Encoding Byte | ForEach-Object { [char]$_ })
          $Header = $Header -join ''
          if ( $Header -match '^PK'    ){ Rename-Item -LiteralPath $File -newName $($File+".zip") }
          if ( $Header -match '^%PDF-' ){ Rename-Item -LiteralPath $File -newName $($File+".pdf") }
         }
    }else{ Write-host '新しいフォルダーがありません' }
exit

# ■手順■
# ①Cドライブに新しいフォルダーを作成して、ファイル（拡張子なし）を入れてください。
# ②拡張子ps1ファイルを作成して、このプログラムを貼り付けて保存します。
# ③ps1ファイルをコンテキストメニューから「PowerShell で実行」を選択します。

# ■注意事項■
# ※このプログラムは１回限り実行してください。複数回実行するとファイル名が長くなります。
# ※このプログラムは、拡張子を正確に判定する事はできません。

別の方法で恐縮ですが参考にしてください。
宜しくお願いします。

Comments

[Seirious]

PowerShellでの回答有り難う御座います。
PowerShellに関しては一切触れてこなかった為不明なのですがこれを”新しいフォルダー”ではなくps1のカレントディレクトリに対応させるにはどうすればよいのでしょうか。
またお手数ですが今後の参考の為にもどこが何をしているのかを詳しくお教え頂けると幸いです。（参考サイトでも構いません。）
宜しくお願い致します。

[ccc-]

# 解説

$Folder = (Convert-Path .) + "\" + "新しいフォルダー" # ←←←←←←←←←← カレントに変更しました
if ( (Test-Path -LiteralPath $Folder) -eq $True ){ # フォルダがあるか調べる
$Files = @(Get-ChildItem -LiteralPath $Folder -Recurse -Force | Where-Object {-not $_.PSIsContainer} | ForEach-Object {$_.FullName}) # フォルダ内のファイル名を取得（複数可）
foreach ($File in $Files){ # ループ
$Header = @(Get-Content -LiteralPath $File -First 10 -Encoding Byte | ForEach-Object { [char]$_ }) # ファイルの先頭10バイトを取得後、アスキーコードから文字を作成
$Header = $Header -join '' # 文字を繋げて文字列にする
if ( $Header -match '^PK' ){ Rename-Item -LiteralPath $File -newName $($File+".zip") } # 正規表現を使用して 文字列の^先頭にPK があれば、拡張子zipとしてリネームする
if ( $Header -match '^%PDF-' ){ Rename-Item -LiteralPath $File -newName $($File+".pdf") } # 正規表現を使用して 文字列の^先頭に%PDF-があれば、拡張子pdfとしてリネームする
}
}else{ Write-host '新しいフォルダーがありません' }
exit

# カレントに変更しました。

# 本プログラムは、フォルダーにファイル（拡張子なし）が存在する事を前提に作成しております。
# 指定したフォルダ以外の場所を、変更しないように制限をかけています。ご了承ください。
# 変更は自由にできます。

# 解説を書いております。お手数ですが分からない命令文はWeb検索をご利用ください。

# お返事ありがとうございました。

[Seirious]

解説を書いて頂き有り難う御座います。
今後のWindowsのことを考えたらPowerShellで書いたほうが良さそうな気がしてきました。
分からない命令文、単語は調べて理解していきたいと思います。

改めて有り難う御座いました。

Answer 2

バッチファイルでやるとすると、

setlocal
set "FILE=%~1"
set /p FIRSTLINE=<"%FILE%"
if "%FIRSTLINE:~0,2%" == "PK" (
  move "%FILE%" "%FILE%.zip"
) else if "%FIRSTLINE:~0,3%" == "Rar" (
  move "%FILE%" "%FILE%.rar"
) else if ～～～ (
～～～～
) else echo 不明なファイルです

正しく判断するために何文字必要とかは調べてないので、上記はあくまでサンプルです。

注：バイナリーファイルの読み込みは出来ないので、FIRSTLINE には最初の CRLF までの文字が入ります。
また、比較時には制御文字とかはたぶん使えない。

Comments

[Seirious]

ご教授頂き誠にありがとうございます。サンプルを動作させてみたのですが拡張子は表示されたのですが肝心のファイル名が消えて".zip"等になるようになってしまいました。
batの解説的には
1行目のsetlocalでローカル変数と定義
2行目のset "FILE=%~1"でドラッグアンドドロップされたファイル名をFILEに代入？（格納？）
3行目でお教え頂いたFIRSTLINEでファイルの最初のCRLFまでを入れる
4行目のif "%FIRSTLINE:~0,2%" == "PK"でファイルの判別化
5行目のif()内にてifに該当した場合のファイルのリネーム
6行目以降は4行目,5行目の繰り返し

上記の認識で合ってますでしょうか。
またFIRSTLINE:~0,2はファイルの0番目から2番目の文字列、を表すもので合ってますでしょうか。
そして5行目のren "%FILE%" "%FILEL%.zip"の部分ですが、"%FILE%"の部分はファイル名が入るのは分かるのですが2つ目はなぜ%FILE"L"%になるのでしょうか。

質問に質問を重ねて誠に申し訳御座いませんがお教え頂けると幸いです。
宜しくお願い致します。

[otn]

すいません。変数名のタイプミスですね。直しておきます。

[otn]

ご認識は合ってます。

[Seirious]

修正後のbatを試して見ましたが
コマンドの構文が誤っています。
と出てきてしまいます。
ren "%FILE%" "%FILEL%.zip"の時はエラーは出ないで".zip"になるだけでした。

[otn]

あー、FILEにディレクトリがあると、ren じゃなくて move でないと駄目でした。
失礼しました。

[Seirious]

詳しく書いて頂き有り難う御座いました。
ベストアンサーにさせて頂きました。

改めて有り難う御座いました。