このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1317249060/329

#  txtファイルの中の任意の場所に文字を書き込む方法はありませんか? 
#   
#  例えば下の「とまと」と「だいすき」の間に「も」を入れて 
#  「とまともだいすき」にしたりとかです。 
#   
#  /**********test.txt*********** 
#  はんばーぐおいしい 
#  とまとだいすき 
#  ****************************/ 
# 
# 

'txtファイルの中の任意の場所に文字を書き込む'(_txtファイル) :-
        get_chars(_txtファイル,Chars),
        '「とまと」と「だいすき」の間に「も」を入れる'(Chars,Chars2),
        put_chars(_txtファイル,Chars2).

'「とまと」と「だいすき」の間に「も」を入れる'([],[]) :- !.
'「とまと」と「だいすき」の間に「も」を入れる'([と,ま,と,だ,い,す,き|R1],[と,ま,と,も,だ,い,す,き|R2]) :-
        '「とまと」と「だいすき」の間に「も」を入れる'(R1,R2),!.
'「とまと」と「だいすき」の間に「も」を入れる'([A|R1],[A|R2]) :-
        '「とまと」と「だいすき」の間に「も」を入れる'(R1,R2).