リンクに拡張子アイコンを追加 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



添付ファイル: filepdf.png 491件 [詳細] filewarn.png 579件 [詳細] filemsi.png 499件 [詳細] filearchive.png 673件 [詳細]

複製名前変更