このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/9
#  どなたかご教授ください・・・ 
#  ●正規表現の使用環境 
#  EmEditor 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●説明 
#  鍵カッコ内の文字列と前方の文字列を入れ替えたい。 
#   
#  ●対象データ 
#  AAA「BBB」/CCC「DDD」/EEE「FFF」…YYY「ZZZ」 
#   
#  ●希望する結果 
#  BBB「AAA」/DDD「CCC」/FFF「EEE」…ZZZ「YYY」 
# 
# 

鍵カッコ内の文字列と前方の文字列を入れ替えたい。(_文字列,_置換された文字列) :-
        置換部分の確定(_文字列,S1,S2,S3,R1,R2,R3,_前文字列,_後文字列),
        鍵カッコ内の文字列と前方の文字列を入れ替えたい。(_後文字列,_置換された文字列の二),
        concat_atom([_前文字列,_置換された文字列の二],_置換された文字列),!.
鍵カッコ内の文字列と前方の文字列を入れ替えたい。(_文字列,_文字列) :- !.

置換部分の確定(_文字列,S1,S2,S3,R1,R2,R3,_前文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,[/|R1],[「|R2],[」|R3]),
        \+(append(_,[」|_],R1),
        append([/|R2],[「|R1],[」],L0),
        atom_chars(_前文字列,L0),
        atom_chars(_後文字列,R3),!.
置換部分の確定(_文字列,S1,S2,S3,R1,R2,R3,_前文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,[「|R2],[」|R3]),
        \+(append(_,[」|_],R1),
        append(R2,[「|L1],[」],L0),
        atom_chars(_前文字列,L0),
        atom_chars(_後文字列,R3),!.