このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/700
#  サクラエディタで、改行部分を連番+改行に置き換えたいのですけど、連番に変換するにはどうしたらよろしいでしょうか? 
#   
#  文字列1 
#  文字列2 
#   
#  を 
#  1 
#  文字列1 
#  2 
#  文字列2 
#   
#  といったかんじです。 
#   

'改行部分を連番+改行に置き換える'(_ファイル) :-
        get_lines(_ファイル,Lines),
        open(_ファイル,write,Outstream),
        append(L0,[Line|R],Lines),
        length([_|L0],N),
        write_formatted(Outstream,'%t\n%t\n',[N,Line]),
        R = [],
        close(Outstream).