>>292
＄Ｉｆｅｑｕａｌ（
＄ｓｔｒｃｍｐ（＄ａｓｃｉｉ（＄ｕｐｐｅｒ（＄ｃｕｔ（＄ｓｔｒｉｐｐｒｅｆｉｘ（％ＡＲＴＩＳＴ％），１））），？）
，１
，あ安
，＄ａｓｃｉｉ（＄ｕｐｐｅｒ（＄ｃｕｔ（＄ｓｔｒｉｐｐｒｅｆｉｘ（％ＡＲＴＩＳＴ％），１）））
）　
￥％＜ＡＲＴＩＳＴ＞％￥％ＡＬＢＵＭ％￥［％ＴＲＡＣＫＮＵＭＢＥＲ％ ］％TITLE％

↑改行はすべて消して半角で一行にするとこうなった↓

┃━ Artists
┃┃　╋ 半角数字 （0〜9）
┃┃　╋ 半角記号 （とりあえずシングルクォーテーションだけ確認できた）
┃┃　╋ 半角英字 （A〜Z）
┃┃　╋ 日本語 （「あ安」でまとめて、%artist%なしのものは「?」としてこのグループに）

読み仮名タグをつくっているならシンプルに
$cut(%読み仮名タグ%,1) \%<artist>%\%album%\[%tracknumber% ]%title%

もっとスマートな構文はあるだろうけど、とりあえず。