リンクに拡張子アイコンを追加 † Edit

例えば、リンクの拡張子が書庫なら書庫のアイコンを、PDFならPDFのアイコンを、実行ファイルなら警告アイコンをリンクの最後に追加します。

昔どこかで拾ったフィルタを修正した物です。

「オミトロンがあるフォルダ/html/image/icon/」に以下のファイルをDLしてください。
archive.png msi.png pdf.png warn.png

[Patterns]
Name = "add ext icon (081206)"
Active = TRUE
Multi = TRUE
Bounds = "<a\s*</a>"
Limit = 512
Match = "<a\s[^>]++href=$AV([^?#]++."
"(exe$SET(1=warn.png)"
"|(zip|lzh|cab|rar|7z|gz|bz|tar|gca|ace)$SET(1=archive.png)"
"|pdf$SET(1=pdf.png)"
"|msi$SET(1=msi.png)"
")([?#]*|(^?)))&\0"
Replace = "\0<img src="http://local.ptron/image/icon/\1" />"
<a href="hoge.zip"></a>
のようになっている場合、リンクがないアイコンのみが表示されてしまうので、アイコンにリンクを付けるようにしたやつ

[Patterns]
Name = "add ext icon (081206) b"
Active = TRUE
Multi = TRUE
Bounds = "<a\s*</a>"
Limit = 512
Match = "<a\s[^>]++href=$AV([^?#]++."
"(exe$SET(1=warn.png)"
"|(zip|lzh|cab|rar|7z|gz|bz|tar|gca|ace)$SET(1=archive.png)"
"|pdf$SET(1=pdf.png)"
"|msi$SET(1=msi.png)"
")([?#]*|(^?)))&\0</a>"
Replace = "\0<img src="http://local.ptron/image/icon/\1" /></a>"
テスト用リンク
http://host/path/hoge.exe　http://host/path/hoge.exe?aa　http://host/path/hoge.exe#aa　http://host/path/hoge.exe.htm
http://host/path/hoge.zip　http://host/path/hoge.zip?aa　http://host/path/hoge.zip#aa　http://host/path/hoge.zip.htm
http://host/path/hoge.pdf　http://host/path/hoge.pdf?aa　http://host/path/hoge.pdf#aa　http://host/path/hoge.pdf.htm
http://host/path/hoge.msi　http://host/path/hoge.msi?aa　http://host/path/hoge.msi#aa　http://host/path/hoge.msi.htm

添付ファイル: filewarn.png 337件 [詳細] filepdf.png 391件 [詳細] filemsi.png 341件 [詳細] filearchive.png 374件 [詳細]
複製名前変更