このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1331904826/120
#  コマンドプロンプトにてワイルドカードで複数マッチングしてそれぞれ別のsetを置きたいんですけど 
#  うまく行きません。 
#  for %%A in ("%folder%~n1*.txt") do ( 
#  set tatoeba1=%%A 
#  set tatoeba2=%%A 
#  ) 
#  こういう形まで考えたんですが結局最後のマッチングにsetされます。 
#  どのような形が正解なのでしょうか? 
# 
# 

順に置換対象が現れる度に置換ならびから順に取り出して書き換える(_文字列,_置換対象,[_置換要素|R],_置換された文字列) :-
        置換対象に合致したら(_文字列,_置換対象,S1,S3),
        順に置換対象が現れる度に置換ならびから順に取り出して書き換える(S3,_置換対象,R,_置換された文字列_2),
        concat_atom([S1,_置換要素,_置換された文字列_2],_置換された文字列),!.
順に置換対象が現れる度に置換ならびから順に取り出して書き換える(_文字列,_,_,_文字列).

置換対象に合致したら(_文字列,_置換対象,S1,S3) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,L2,L3),
        置換対象と合致(S2,_置換対象).