このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/236
#  英数字プラスセミコロンはとれるのですが英数字の桁数が{3}をつけてもうまくいかず悩んでいます。 
#   
#   
#  ●正規表現の使用環境 
#  VBA 
#   
#  ●検索か置換か? 
#  検索 
#   
#  ●説明 
#  対象データのフォーマットチェックをしたいです 
#   
#  A01;B02;C03;… 
#  英数字3桁がセミコロンで区切られたデータに対して様式通りならtrueを返します 
#  一番最後にはセミコロンはつきません 
#   
#  ●対象データと希望する結果 
#  A01;B02;C03   →true 
#  A01;B02;C03;   →false 
#  A01;B092;C03  →false 
# 

'英数字3桁がセミコロンで区切られたデータに対して様式通りならtrueを返します。一番最後にはセミコロンはつきません'(_文字列,true) :-
        R2 = [A,B,C,';'],
        \+(member(';',L1)),
        \+(member(';',L3)),
        すべてが英数字([A,B,C]),!.
'英数字3桁がセミコロンで区切られたデータに対して様式通りならtrueを返します。一番最後にはセミコロンはつきません'(_文字列,false).

すべてが英数字([]) :- !.
すべてが英数字([A|R]) :-
        A @>= 0,
        A @=< 9,
        すべてが英数字(R).
すべてが英数字([A|R]) :-
        A @>= 'A',
        A @=< 'Z',
        すべてが英数字(R).
すべてが英数字([A|R]) :-
        A @>= 'a',
        A @=< 'z',
        すべてが英数字(R).