このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/15
#  Excelの置換で、 
#  マッチした文字列を、マッチした文字列の最初の一文字で置換したいです。 
#   
#  たとえば、 
#   
#  りんご 
#  ごりら 
#  ぼーる 
#   
#  だと、 
#   
#  り 
#  ご 
#  ぼ 
#   
#  に置換したいです。 
#  置換前の正規表現と、置換後の正規表現はどのようにすればよいのでしょうか? 
# 
# 

マッチした文字列を、マッチした文字列の最初の一文字で置換する(_文字列,_マッチした文字列,_置換された文字列) :-
        sub_atom(_文字列,_,_,_,S1,_マッチした文字列_1,S3,L1,L2,L3),
        検索条件(_マッチした文字列_1),
        sub_atom(_マッチした文字列_1,0,1,_,_最初の一文字),
        concat_atom([S1,_最初の一文字,S3],_置換された文字列_1),
        マッチした文字列を、マッチした文字列の最初の一文字で置換する(_文字列,S1,_最初の一文字,S3,_マッチした文字列_1,_マッチした文字列,_置換された文字列_1,_置換された文字列).

マッチした文字列を、マッチした文字列の最初の一文字で置換する(_文字列,_,_,_,_マッチした文字列,_マッチした文字列,_置換された文字列,_置換された文字列).
マッチした文字列を、マッチした文字列の最初の一文字で置換する(_文字列,S1,_最初の一文字,S3,_,_マッチした文字列,_,_置換された文字列) :-
        マッチした文字列を、マッチした文字列の最初の一文字で置換する(S3,_マッチした文字列,_置換された文字列_2),
        concat_atom([S1,_最初の一文字,_置換された文字列_2],_置換された文字列).