コマンドプロンプトでテキスト中のデリミタの個数を自動認識したい

Question

ファイル名を変更するコマンドプロンプトのバッチファイルを作ったのですが、改善したい点があります。

#要件
カレントディレクトリ内の全てのphpファイルを、デリミタ'_'で区切ったn番目のtokenを、標準入力で入力された文字列で置き換える(renameする)：
(例1)
shizuka_minamoto.php -> shizuka_nobi.php
yoshitsune_minamoto.php -> yoshitsune_nobi.php
tarou_minamoto.php -> tarou_nobi.php
2番目のtokenを、入力文字列'nobi'で置き換えた
(例2)
shizuka_minamoto_love.php -> shizuka_minamoto_violin.php
takahiro_karasawa_love.php -> takahiro_karasawa_violin.php
yaju_senpai_love -> yaju_senpai_violin.php
3番目のtokenを、入力文字列'violin'で置き換えた

#コード
以下がbatファイルです。
カレントディレクトリ内の全てのphpファイルのファイル名を「filename.txt」に一行ずつ書き込み、
そこから一つずつファイル名を取り出して、リネームしています。

@echo off
 
for %%a in (*.php) do (
  echo %%a >> filename.txt
)
 
setlocal ENABLEDELAYEDEXPANSION
for /f "tokens=1,2,3 delims=_" %%a in (filename.txt) do (
  rename %%a_%%b_%%c %1_%%b_%%c
)
end local

setlocal ENABLEDELAYEDEXPANSION
for /f "tokens=1,2 delims=_" %%a in (filename.txt) do (
  rename %%a_%%b %1_%%b
)
end local
 
del filename.txt

今回のケースでは、操作対象のファイルのファイル名の形式は、デリミタ'_'の数が1個のケースと2個のケースの2種類のみだったので、単純に、処理を1個のケースと2個のケースで分けて並べて書きました。

#改善したい点
・cd内のファイルには、ファイル名に含まれるデリミタ''の数が1個のものと2個のものが混在しているため、当てはまらないファイルに対して実行された処理については必ずエラーが出る（期待した挙動はしてくれるが、エラーが気持ちわるい）
→ファイル名に含まれるデリミタ''の数を自動的に認識して条件分岐で処理したい

コマンドプロンプトという原始的なプログラム言語には、そこまで便利な関数が存在するのでしょうか？それとも色々工夫してやるしかないのでしょうか？
ご回答宜しくお願いしいます。

Answer 1

案1：

for /f "tokens=1-5 delims=_" %%A in (filename.txt) do (
  if not "%%E" == "" (
    echo アンダーバーは4つ以上
  ) else if not "%%D" == "" (
    echo アンダーバーは3つ
  ) else if not "%%C" == "" (
    echo アンダーバーは2つ
  ) else if not "%%B" == "" (
    echo アンダーバーは1つ
  ) else (
    echo アンダーバーは無し
  )
)

案2：（ファイル名に空白、カンマ、セミコロン、イコール等一部の記号が含まれないことが前提）

for /f %%A in (filename.txt) do call :SUB "%%A"
exit /b

:SUB
set A=%~1
set N=-1
for %%I in (%A:_= %) do set /a N+=1
echo アンダーバーの数は%N%個
exit /b

個数を知りたいだけなら、案2ですが、個数で分岐するなら、案1ですかね。