このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1340383120/110
#   '([\x8E\xA1-\xFE][\xA1-\xFE])' で、euc の2バイト文字にマッチするかと思いますが、 
#  このうち、「×」(\xA1DF)のみマッチさせたくないのですが、 
#  どのように書けばよいでしょうか? 
# 

'([0x8E0xA1-0xFE][0xA1-0xFE]) で、euc の2バイト文字にマッチするかと思いますが、このうち、「×」x0xA1DF)のみマッチさせたくないのですが、どのように書けばよいでしょうか? '(_文字列,_前文字列,_適合文字,_後文字列) :-
        sub_atom(_文字列,S,1,R,_適合文字),
        char_code(_適合文字,_文字コード),
        'euc の2バイト文字にマッチするかと思いますが、このうち、「×」(0xA1DF)のみマッチさせたくない'(_文字コード),
        aub_atom(_文字列,0,S,_,_前文字列),
        sub_atom(_文字列,S+1,_,0,_後文字列).        

'euc の2バイト文字にマッチするかと思いますが、このうち、「×」(0xA1DF)のみマッチさせたくない'(_文字コード) :-
        _文字コード >= 0x8ea1,
        _文字コード =< 0xa1fe,
        \+(_文字コード==0xa1df).