このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/200
#  ●正規表現の使用環境 
#  VBScript 
#   
#  ●検索か置換か? 
#  検索 
#   
#  ●説明 
#  http://ime.nu/upload.jpn.ph/500/bin/とんこつ.zip 
#  だけを変数に入れて、後で変数を利用したい 
#   
#  ●対象データ 
#  </style> 
#   
#  <META HTTP-EQUIV="Refresh" CONTENT="1;URL=http://ime.nu/upload.jpn.ph/500/bin/とんこつ.zip"> 
#  </HEAD> 
#   
#  ●希望する結果 
#  適当な変数=http://ime.nu/upload.jpn.ph/500/bin/とんこつ.zip 
#  例:もし変数 var5 とかにとんこつ.zipを代入できるなら 
#  WScript.Echo var5 
#  としたときにhttp://ime.nu/upload.jpn.ph/500/bin/とんこつ.zip 
#  と出力できるようにしたいです。 
#   
#  もし上手く説明できてなかったらごめんなさい。 
#  よろしくお願いします。 
# 
# 

'URLを検索する'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,[h,t,t,p,:,/,/|R2],[' '|R3]),
        \+(sub_atom(S2,_,1,_,' ')),
        \+(append(_,[h,t,t,p,:,/,/|_],R2)).