このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362913813/419
#  ●Regular Expressionの使用環境 
#  sakura editor 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●説明 
#  xmlのtaxiwaypath要素のなかに 
#  type="TAXI"と centerLineLighted="FALSE"が存在するときに、 他の属性を書き換えずにcenterLineLighted="TRUE"に書き換えたいです 
#   
#  ●対象データ 
#  <TaxiwayPath 
#     type="TAXI" 
#     … 
#     centerLineLighted="FALSE" 
#     … 
#     /> 
#   
#  ●希望する結果 
#  <TaxiwayPath 
#     type="TAXI" 
#     … 
#     centerLineLighted="TRUE" 
#      … 
#     /> 
#   
#  …は省略していると言う意味です 
# 
# 


' までの間に type="TAXI" とcenterLineLighted="FALSE" が存在する時、centerLineLighted="FALSE" を centerLineLighted="TRUE" に置換する'(_文字列,_置換された文字列) :-
        sPLIT(_文字列,['>',' ','\n','\t'],_区切りを含む要素ならび),
        ' までの間に type="TAXI" とcenterLineLighted="FALSE" が存在する時、centerLineLighted="FALSE" を centerLineLighted="TRUE" にする'(R2,R2_2),
        atomic_list_concat(_置換された区切りを含む要素ならび,_置換された文字列),!.
' までの間に type="TAXI" とcenterLineLighted="FALSE" が存在する時、centerLineLighted="FALSE" を centerLineLighted="TRUE" に置換する'(_文字列,_文字列).

' までの間に type="TAXI" とcenterLineLighted="FALSE" が存在する時、centerLineLighted="FALSE" を centerLineLighted="TRUE" に置換する'(R2,_置換された区切りを含む要素ならび) :-
        append(L1,[''|R3],_区切りを含む要素ならび),
        \+(member('>',R2)),
        member('type="TAXI"',R2),
        ならびの置換(R2,'centerLineLighted="FALSE"','centerLineLighted="TRUE"',R2_2),
        append(L1,[''|R3],_置換された区切りを含む要素ならび),!.