Proxomitron Part20

>>122のはhttp://とかで始まるリンクに対応してないので改変。

＊＊＊＊＊＊＊＊＊＊＊＊　リンク抽出フィルタ　＊＊＊＊＊＊＊＊＊＊＊
[Patterns]
Name = "GET LINKpart1"
Active = TRUE
Multi = TRUE
URL = "$KEYCHK(^A)"
Limit = 32767
Match = "*<a(^(^\s))[^>]++\shref=$AV((^mailto:)\0)*</a>"
Replace = "GETLINKAAA\uGETLINKBBB\0GETLINKCCC"

[Patterns]
Name = "GET LINKpart2"
Active = TRUE
URL = "$KEYCHK(^A)"
Bounds = "$NEST(GETLINKAAA,GETLINKCCC)"
Limit = 32767
Match = "(*GETLINKBBB((http(s|)|ftp|mms|rtsp|pnm)://*)\0GETLINKCCC|"
"GETLINKAAA(*/)\0[^/]+/[^/]+/[^/]+/[^/]+/[^/]++GETLINKBBB../../../../\1GETLINKCCC|"
"GETLINKAAA(*/)\0[^/]+/[^/]+/[^/]+/[^/]++GETLINKBBB../../../\1GETLINKCCC|"
"GETLINKAAA(*/)\0[^/]+/[^/]+/[^/]++GETLINKBBB../../\1GETLINKCCC|"
"GETLINKAAA(*/)\0[^/]+/[^/]++GETLINKBBB../\1GETLINKCCC|"
"GETLINKAAA(*/)\0[^/]++GETLINKBBB(./|)(\1)GETLINKCCC)"
Replace = "<A HREF="\0\1">\0\1</A><BR>\n"

（注意点）
GET LINKpart1をGET LINKpart2の上に置くこと。
キーボードのAltキーを押しながらページを読み込むと実行される。
httpのようなプロトコルを追加したいときは　(http(s|)|ftp|mms|rtsp|pnm)　に加えていく。
相対パスで書かれた5階層より上へのリンクには対応出来ない。

下から二行目の　(./|)　を　(./|/|)　に訂正。
これで　href="/main/"　みたいなドット無しのリンクにも対応出来る。