- 376 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/31(日) 21:31:52 ID:/wUZ57kb0]
- [Patterns]
Name = "NicoVideo: NGWord custom [20090531]"
Active = TRUE
URL = "msg.nicovideo.jp/[0-9]+/api/(^?)"
Bounds = "<chat\s*</chat>( <num_click| </packet>|)"
Limit = 512
Match = "<chat(([^">]+\"[^"]+\")+[^>]+)\0>"
"(*$LST(NGword_UTF-8)*)\2"
"</chat>(( <num_click| </packet>)\1 |)"
"$SET(#=<chat\0)"
"($TST(word=t:\9)$SET(#=>\9\2)|$TST(word=b:\9)$SET(#=>\2\9)|"
"$TST(word=r:\9)$SET(#=>\9)|$SET(#= deleted="1">))"
"$SET(#=</chat>\1)"
Replace = "\@$SET(word=)"
てきとーに作ってみた。
行頭マッチとかできないので注意。
別途専用のリストを用意して*$LST(NGword_UTF-8)*の後ろに|$LST(リスト名)って付け加えれば可能。
こっちのリストは完全マッチ。abcだとabcの完全、abc*だと行頭、*abcだと行末のマッチ。
リストに$SET(word=〜)で使う。
$SET(word=r:〜)でマッチしたコメントを〜で置き換え。
$SET(word=t:〜)でマッチしたコメントの先頭に〜を追加。
$SET(word=b:〜)でマッチしたコメントの最後に〜を追加。
$SET(word=〜)がなかったり、r:,t:,b:で始まってなかったりすると通常のNGword同様コメントは非表示になる。
\0-9使いたかったけどうちの環境だとなぜか$TSTがグローバル変数じゃないとうまく動いてくれなかった。
|
 |
