特定の文字列を持つファイルを一括でリネームするバッチファイルを作成したい。

Question

特定の文字列を持つファイルを一括でリネームするバッチファイルを作成しております。
そこで、下記のバッチファイルを使用しているのですが、
実際に実行すると本来ほしい結果がでず苦慮しております。
記述方法が間違っているのか、アドバイスをお願い致します。

やりたいこととして
同じフォルダ内にあるCSVファイル名を変更したい

望む出力結果例
a_yyymmdd.csv→aaa_yyymmdd.csv
b_yyymmdd.csv→bbb_yyymmdd.csv

yyyymmddは変更せず前方のa,bのみを変更したい。

上記を実現するバッチを以下のように作成しましたがforのループが旨く行かず
a.csv→aaaccc.csvとなります。

exit /b で:changeのfor文を戻し:change2の処理を実行する構文を想定しておりますが
うまく行かずアドバイスをお願い致します。

echo off
SET /P ANSWER="実行しますか (Y/N)？"

if /i {%ANSWER%}=={y} (goto :yes)
if /i {%ANSWER%}=={yes} (goto :yes)

:no

echo "No が選択されました"

goto exitlabel

:yes

echo "Yesが選択されました"
echo 処理開始

for %%f in (*.csv) do call :change %%f
exit /b 

:change
set fileName=%1
set fileName=%fileName:a=aaa%
ren %1 %fileName%

for %%f in (*.csv) do call :change2 %%f

:change2
set fileName=%1
set fileName=%fileName:c=ccc%
ren %1 %fileName%

echo 完了しました！ Enterを押して終了してください。
pause > nul
exit

Comments

[yambejp]

VBS(cscript)など処理能力の高い言語で対応することは無理ですか？
（どちらもwinのバッチ処理にはかわりませんが）

[mta77]

ご回答ありがとうございます。できればバッチで対応したいです。

[mta77]

ちなみにVBSだとどういった構文になるのでしょうか。

Answer 1

バッチファイルからpowershellのワンライナーを実行する方法もご紹介します

@echo off

set a="dir '*_*.csv' | ren -newName { [Text.RegularExpressions.Regex]::Replace($_.Name, '^(\w)_(\d{8})', '$1$1$1_$2.csv') }"

powershell -Command %a%

Comments

[mta77]

回答が遅くなってすみません。ワンライナーの方法ありがとうございます。
こちらでも処理できました。

Answer 2

dim reg
set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "^(.)(_.+.csv)$"
dim fso
set fso = createObject("Scripting.FileSystemObject")
dim folder
set folder = fso.getFolder(".\")
dim file
for each file in folder.files
  if reg.Test(file.name) then
    Set fn = fso.GetFile(file.name)
    fn.name=reg.replace(file.name, "$1$1$1$2")
 end if
next 

上記

• a_yyymmdd.csv→aaa_yyymmdd.csv
• b_yyymmdd.csv→bbb_yyymmdd.csv
• a.csv→a.csvのまま

もっと複雑な条件設定も可能です

Comments

[mta77]

yambejp様、ご回答ありがとうございます。
.vbsで頂いたソース実行しましたが、リネーム処理が走りませんでした。
自分のやり方が悪いのか確認してみます。

[yambejp]

これでテストしてみてください

dim fso
set fso = createObject("Scripting.FileSystemObject")

dim folder
set folder = fso.getFolder(".\")
Dim reg
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "^(.)(_.+.csv)$"
dim file
for each file in folder.files
if reg.Test(file.name) then
Set fn = fso.GetFile(file.name)
WScript.echo fn.name
WScript.echo reg.replace(file.name, "$1$1$1$2")
end if
next

[mta77]

確認できました。ありがとございます。

Answer 3

これは以前経験しました。CMD.EXEのバグと言って良いのか、想定外の使い方で未定義動作にあたるのか不明。

2年前なので細かいところはよく覚えていませんが、自分のブログから引用すると、

いろいろ試すと、「ワイルドカードが複数のファイルにマッチするときに、その(辞書順での)最後のファイル以外の1つ以上のファイルを、最後のファイルより辞書的に大きいファイル名にリネームして、かつ、最後のファイルもリネームした場合」のようです。

のときに、リネーム後のファイルがマッチして繰り返し処理される。

多分これで行けるはずです。

for /f %%f in ('dir /b *.csv') do call :change %%f

#追記
見直すと、上記の点以外でもいろいろおかしいですね。
処理の流れがぐちゃぐちゃです。

echo off
（中略）
echo 処理開始

for /f %%f in ('dir /b *.csv') do call :change %%f
echo 完了しました！ Enterを押して終了してください。
pause > nul
exit /b 

:change
set fileName=%1
set fileName=%fileName:a=aaa%
if not "%1"=="%fileName%" (
  ren %1 %fileName%
  exit /b
)
set fileName=%1
set fileName=%fileName:c=ccc%
if not "%1"=="%fileName%" ren %1 %fileName%
exit /b 

Comments

[mta77]

otn様、ご回答ありがとうございます
頂いたソースですが、
”for %%f in (*.csv) do call :change %%f”部分を変更する理解でよろしいでしょうか。
所々実行しましたがうまくいかずアドバイス頂けると幸いです。

[otn]

そうです。
> 所々実行しましたがうまくいかずアドバイス頂けると幸いです。
どうなりましたか？

「うまくいかない」は解決のための情報量がゼロなので、どうなったかを書きましょう。

見直すと元々の構造が変ですね。
追記しておきます。

[mta77]

アドバイスありがとうございます。実行し、a.csv→aaa.csvからc.csvまで処理は通りましたが、処理結果が”ccc.cccsv”となり正常終了しませんでした。
change内のサブルーチンで”set fileName=%fileName:c=ccc%”の追記処理が必要でしょうか。

[otn]

それは、１行だけ置き換えたときの結果ですか？
追記に書いたとおり、元のコードは処理がぐちゃぐちゃなので、どうなるか考える気がしません。

[mta77]

コードを変更して無事ファイル名が変更可能になりました。
ありがとうございました。

[otn]

処理フローがぐちゃぐちゃなのは、「call :ラベル」 の処理がどうなるかが理解できていないからではないかと思います。
普通のプログラミング言語にある関数やメソッドとは全然違うので。

[mta77]

call と exit /b exitの処理の仕方がまだ実行処理はできたものの
まだピンと来ていないです。
バッチ処理について始めたばかリの事もあり勉強させて頂きます。