このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/503
#  以下のような文字列を置換ですべて削除したいのですが 
#  どうかけばいいのでしょうか 
#   
#  onMouseOver="refPopUp(1,event)" onMouseOut="hidePop()" 
#  onMouseOver="refPopUp(23,event)" onMouseOut="hidePop()" 
#  onMouseOver="refPopUp(345,event)" onMouseOut="hidePop()" 
#  ↓ 
#  3行すべて削除 
#   
#  試した正規表現 
#  onMouseOver="refPopUp(\d+{1,3}.,event)" onMouseOut="hidePop()" 
# 
# 

'以下のような文字列を置換ですべて削除したいのですが onMouseOver="refPopUp(1,event)" onMouseOut="hidePop()" onMouseOver="refPopUp(23,event)" onMouseOut="hidePop()" onMouseOver="refPopUp(345,event)" onMouseOut="hidePop()" 3行すべて削除'(Lines1,Lines2) :-
        '文字列を置換ですべて削除したい'(Lines1,Lines2).

'文字列を置換ですべて削除したい'([],[]) :- !.
'文字列を置換ですべて削除したい'([_文字列|R1],R2) :- !.
        sub_atom(_文字列,_,_,_,'onMouseOver="refPopUp(',S2,',event)" onMouseOut="hidePop()"',L1,L2,L3),
        すべてが数字(L2),
        '文字列を置換ですべて削除したい'(R1,R2).
'文字列を置換ですべて削除したい'([_文字列|R1],[_文字列|R2]) :- !.
        '文字列を置換ですべて削除したい'(R1,R2).

すべてが数値([]) :- !.
すべてが数値([A|R]) :-
        append(_,[A|_],['0','1','2','3','4','5','6','7','8','9']),
        すべてが数値(R).