このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362913813/117
#  コメント内の任意の文字を全て半角スペースに置き換える正規表現は可能でしょうか? 
#  aaaは固定ではなく、長さや文字も任意です。 
#  文字数分スペースに置き換える必要があります。 
#   
#  変換前 
#  /*aaa*/ 
#   
#  変換後 
#  /*   */ 
# 
# 

'コメント内の任意の文字を全て半角スペースに置き換える正規表現は可能でしょうか?
aaaは固定ではなく、長さや文字も任意です。
文字数分スペースに置き換える必要があります。

変換前
/*aaa*/

変換後
/*   */'(_文字列,_置換された文字列) :-
        コメント内の任意の文字を全て半角スペースに置き換える(_文字列,_置換された文字列).

コメント内の任意の文字を全て半角スペースに置き換える(_文字列,_置換された文字列) :-
        sub_atom(_文字列,'/*','*/',_,_,_,S1,S2,S3,L1,L2,L3),
        sub_atom(S2,2,Len,2,_),
        length(L0,Len),
        all(L0,' '),
        atomic_list_concat([S1,'/*',L0,'*/',S3],_置換された文字列).