BAT : プレフィクス外しバッチ

前回の続きだ。
前回紹介した日付プレフィクスをファイル名から外す方のバッチは若干のバグがあった。

実際のタイムスタンプとプレフィクスを比較して、一致していたら外す…などと、高等な事をしようとしてたが、バッチのみでは機能が追いつかなかったってこった。

今回は、"-"を区切り文字として、先頭の部分を消すという低機能。
ただし、前回のプレフィクス付けバッチは、"-"が入ってないぞ。工夫して、"-"を入れてくれ。

Batchのつぼ

壷はなし。前回と大して変わらん。

fnnotime.bat

@del qaz.bat @for %%i in ("%~f1"\*.jpg) do @call :sub1 "%%i" more qaz.bat @goto :e :sub1 @for /f "tokens=1,2,3,4* delims=- " %%i in ("%~n1") do @set fnm=%%j%%k%%l @if not "%fnm%"=="" @echo ren %1 "%fnm%%~x1" >>qaz.bat :e

BAT : タイムスタンプをファイル名プレフィクスにつけるバッチ

今回から何回かに分けて、多量ファイルの整理に役立つスクリプトを紹介する。

例えば、ハードディスククラッシュ後、復旧ソフト等でぶっこ抜きした、多量のフォルダ所在不明ファイルだ。
分類する情報としては、フォルダが飛んでいるので、ファイル名、タイムスタンプしかない。
このファイルを整理するため、ファイル名先頭に日時文字を付けたり外したりするバッチだ。

Batchのつぼ

XP以降のBatchでは、Batch内である程度の文字列加工ができる。
しかも、工夫次第でワークファイルの出力も必要なくなる。
echo xxxx | findstr /C:"yyyyy"
の実行後、errorlevelを見ることでsearch代わりになるし、
摩訶不思議構文のfor文で指定文字列の部分削除ができる。

又、バッチ内サブルーチンコールでは、%1～%nのパラメタがスタックされるので、%~f1(パラメタ%1をフルパスファイル名に変換)等もサブルーチンパラメタと呼び出し元の双方で個々に保持される。


下記バッチは、例えば "qaz.txt" 2014/08/08 12:34　のファイルを"201408081234qaz.txt"に変換／逆変換してくれる。
バッチ内で使用している"dir /tc"を"dir /tw"にすれば作成日ではなく更新日をプレフィクスにすることもできる。
安全のため、ダイレクトに変更せず、変更するためのバッチをカレントに出力している。
作成されたファイル名変更バッチをエディター等で目視確認してから実行しろし。

fnctime.bat (パラメタで指定したフォルダ配下階層ファイルにプレフィクスとして作成日を付加する)

@if exist qaz.bat @del qaz.bat 2>nul @IF "%~f1"=="" (set ggpath=.) ELSE set ggpath=%~f1 @FOR %%a IN ("%ggpath%\*") do @call :sub1 "%%a" @echo ----------------------------------- @echo 上記コマンドをqaz.batに書き込みました。コマンドラインで実行してください。 @exit /b :sub1 @set orgname="%~f1" @set lastname=%~nx1 @for /f "skip=4 tokens=1-5 delims=/: " %%i in ('dir /tc "%~f1"') do @if %%i GTR 1900 call set ctstr=%%i%%j%%k%%l%%m @echo "%lastname%" | findstr /C:"%ctstr%" 2>nul >nul @if not errorlevel 1 exit /b @echo ren %orgname% "%ctstr%%lastname%" >>qaz.bat @echo ren %orgname% "%ctstr%%lastname%" @exit /b :sub2 @set lastpath=%~n1 @exit /b

fnnctime.bat (パラメタで指定したフォルダ配下階層ファイルから,作成日プレフィクスを外す)

bug:元のファイル名先頭が数字だと、消しすぎるバグあり。

@if exist qaz.bat @del qaz.bat 2>nul @IF "%~f1"=="" (set ggpath=.) ELSE set ggpath=%~f1 @FOR %%a IN ("%ggpath%\*") do @call :sub1 "%%a" @echo ----------------------------------- @echo 上記コマンドをqaz.batに書き込みました。コマンドラインで実行してください。 @exit /b :sub1 @set orgname="%~f1" @set lastname=%~nx1 @for /f "skip=4 tokens=1-5 delims=/: " %%i in ('dir /tc "%~f1"') do @if %%i GTR 1900 call set ctstr=%%i%%j%%k%%l%%m @echo "%lastname%" | findstr /C:"%ctstr%" 2>nul >nul @if errorlevel 1 exit /b @for /f "tokens=* delims=%ctstr%" %%i in ("%lastname%") do @set lastname=%%i @echo ren %orgname% "%lastname%" >>qaz.bat @echo ren %orgname% "%lastname%" @exit /b :sub2 @set lastpath=%~n1 @exit /b