このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/244
#  よろしくお願いします。 
#   
#  ●正規表現の使用環境  
#  JavaScript 
#   
#  ●検索か置換か?  
#  検索 
#   
#  ●説明  
#  xという文字から、xという文字までの取得 
#  ただしyxというパターンが含まれている場合は飛ばして、次のxを探す 
#  x((?!yx).)*xを試しましたが、途中で検索が打ち切られて思うようになりません 
#   
#  ●対象データ  
#  "ab\"c",'def' 
#   
#  ●希望する結果  
#  "ab\"c" 
# 
# 

'xという文字から、xという文字までの取得。ただしyxというパターンが含まれている場合は飛ばして、次のxを探す'(_x,_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,[_x|R1],L3),
        append(L0,[_x],R1),
        許容(_x,L0).
'xという文字から、xという文字までの取得。ただしyxというパターンが含まれている場合は飛ばして、次のxを探す'(_x,_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_,_,_後文字列_2,L1,[_x|R1],L3),
        append(L0,[_x],R1),
        許容(_x,L0),
        'xという文字から、xという文字までの取得。ただしyxというパターンが含まれている場合は飛ばして、次のxを探す'(_x,_後文字列_2,_前文字列,_適合文字列,_後文字列).

許容(_,[]) :- !.
許容(A,[A|_]) :- !,fail.
許容(A,['\\',A|R]) :-
        許容(R).
許容(A,[_|R]) :-
        許容(A,R).