このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/932
#  お知恵をお貸しください…!どうかお詳しい方よろしくお願いいたしますm(__)m 
#   
#  ●正規表現の使用環境  
#  VBScript 
#   
#  ●検索か置換か?  
#  検索  
#   
#  ●説明  
#  メールアドレスをチェックしたい 
#  1.メールは1つか、複数 
#  2.複数メールはカンマで区切られる 
#  3.カンマの直後にスペースが入るかも 
#  4.メールの@以降は固定(間違って変な宛先に送らないため) 
#  5.@より前はてきとう 
#   
#  つづく 
#   
# 
# 

メールアドレス検索(_文字列,_メールアドレス) :-
        split(_文字列,[',',' ','\n'],L),
        append(_,[_メールアドレス|R],L),
        sub_atom(_メールアドレス,_,_,_,S1,S2,S3,L1,['@'|R2],L3),
        R = [].