Tweenで選択している発言に含まれるURLを全て開くAutoHotKeyスクリプト
選択している発言の中のURLを全て開きます。
複数の発言を選択していたらその中の全てのURLを開きます。
@idやハッシュタグは開きません。
*更新履歴
11/09/12
URL無かったらツールチップ表示して通知するようにした
末尾…のURLが見つかったらCtrl+Eを送る処理を追加
11/09/11 Tween1060でt.co対応したため正規表現がマッチしなくなったので直した
誤爆しそうな雰囲気
末尾が"…"になってるものは開けません。もしなんかいい方法あったら教えて下さい
!+E:: clipboard = Send, ^c ClipWait, 3 tweet := RegExReplace(Clipboard, "\[http://[\w./]+\]") count = 0 loop { RegExMatch(tweet, "[\w-.!~*'();\?:\@&=+\$,%#]+/[\w-.!~*'();\?:/\@&=+\$,%#]*\s", url) if url = { RegExMatch(tweet, "[\w-.!~*'();\?:\@&=+\$,%#]+/[\w-.!~*'();\?:/\@&=+\$,%#]*…", tco) if count = 0 { if tco = { ToolTip, URL無いよ, , , 1 sleep, 1000 ToolTip, , , , 1 } else Send, ^e } else if tco <> send, ^e tweet = return } else { Run, http://%url% StringReplace, tweet, tweet, %url% count += 1 } } return
;Tween1050以前用 ;Alt+Shift+Eで全部開く #IfWinActive, ahk_class WindowsForms10.Window.8.app.0.2bf8098_r15_ad1 !+E:: clipboard = Send, ^c ClipWait tweet := RegExReplace(Clipboard, "\[http://[\w./]+\]") loop { RegExMatch(tweet, "http://[\w/\.?=&%-]+", url) if url = { tweet = return } else { Run, %url% StringReplace, tweet, tweet, %url% } } return #IfWinActive
最初一発言中の複数のURL開ければいいなーと思って作ってたら、
TweenはCtrl+Cで複数の発言をまとめてコピー出来ることが発覚し
選択した発言のURL全部開けるようになりました。運がいい