このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/579
#  見出しと任意文字列の間にtabを挿入したいのですが、そうした置換は可能でしょうか? 
#  サクラエディタを使っています。 
#  幼稚な質問をお許し下さい 
#   
#   
#  見出し1=任意文字列1 
#  見出し2=任意文字列2=任意文字列3 
#  見出し3=任意文字列4=任意文字列5=任意文字列6 
#   
#  【こうしたい】 
#  見出し1=  任意文字列1 
#  見出し2=  任意文字列2=任意文字列3 
#  見出し3=  任意文字列4=任意文字列5=任意文字列6 
#   
#   
#   
#   
# 
# 

見出しと任意文字列の間にtabを挿入したい(_対象となる行ならび,_見出しと任意文字列の間にtabを挿入した行ならび) :-
        findall(_tabを挿入された行,(
                     append(_,[_行|_],_対象となる行ならび),
                     文字列置換(_行,'=','=\t',_tabを挿入された行)),
                _見出しと任意文字列の間にtabを挿入した行ならび).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 文字列置換/4 が未定義だったら、

見出しと任意文字列の間にtabを挿入したい(_対象となる行ならび,_見出しと任意文字列の間にtabを挿入した行ならび) :-
        findall(_tabを挿入された行,(
                     append(_,[_行|_],_対象となる行ならび),
                     split(_行,['='],[_見出し|R]),
                     concat_atom(R,'=',S),
                     concat_atom([_見出し,'=','\t',S],_tabを挿入された行)),
                _見出しと任意文字列の間にtabを挿入した行ならび).