このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/474
#  phpです。 
#  たとえば普通に 
#  http://ime.nu/google.co.jpと書いてあるものと 
#  <a href="http://ime.nu/google.co.jp">test</a>と書いてある文字列があります。 
#   
#  この文字列内のタグになってないUrlをAタグでリンクを張りたいんですがどうしたらいいでしょうか。 
#   
# 
# 

'httpから始まるURLを取り出す'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,[h,t,t,p,:,/,/,'"'|R2],L3),
        すべてURL構成文字(R2),
        \+((L3=[A|_],\+('URL構成文字'(A)))),
        concat_atom(R2,_適合文字列),
        concat_atom([S1,'http://"'],_前文字列),
        concat_atom(['"'|R2],_後文字列).

すべてURL構成文字([]) :- !.
すべてURL構成文字([A|R]) :-
        'URL構成文字'(A),
        すべてURL構成文字(R).

'URL構成文字'(A) :- append(_,[A|_],[:,/,+,-,%,~]),!.
'URL構成文字'(A) :- A @>= a,A @=< z,!.
'URL構成文字'(A) :- A @>= 'A',A @=< 'Z',!.
'URL構成文字'(A) :- A @>= '0',A @=< '9',!.