このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/694
#  Flexible Renamerというソフトで音楽ファイル名の検索&一括置換したいのですが、 
#   
#  対象: aaa_bbb_01ccc.mp3 
#  ↓ 
#  結果: aaa_bbb_01_ccc.mp3 
#   
#  "_"区切りの三番目の2桁数字部分が区切られていないヤツを(選び)全て結果のように区切りたい、ということです。 
#   
#  よろしくおねがいします。 
# 
% sub_atom/10 は http://nojiriko.asai/prolog/t264_u.html を参照

'対象:aaa_bbb_01ccc.mp3 -> 結果:aaa_bbb_01_ccc.mp3 "_"区切りの三番目の2桁数字部分が区切られていないヤツを(選び)全て結果のように区切りたい'(_名前,_区切り直された名前) :-
        split(_名前,['_'],[_項1,_項2,_項3]),
        sub_atom(_項3,_検索位置,1,_残り文字数,H,A,T,_,_,_),
        \+((A@>='0',A@=<'9')),
        concat_atom([_項1,'_',_項2,'_',H,'_',A,T],_区切り直された名前),!.
'対象:aaa_bbb_01ccc.mp3 -> 結果:aaa_bbb_01_ccc.mp3 "_"区切りの三番目の2桁数字部分が区切られていないヤツを(選び)全て結果のように区切りたい'(_名前,_名前).