指定文字列ではじまるURLをオープン中のTabをクローズ

Safariでオープン中のウィンドウ/Tabのうち、指定URLではじまるもの（この場合にはGoogle翻訳）をオープン中のものだけをクローズする掃除用のAppleScriptです。

TabのIDを取得して、1から処理するとナンバリングがおかしくなるので、後ろから処理しているあたりが「ワザ」とでもいうべきものでしょうか。

AppleScript名：指定文字列ではじまるURLをオープン中のTabをクローズ

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/03/01
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

set targURL to "https://translate.google.co.jp" –Google翻訳
closeSafariTabsBeginsWithAURL(targURL) of me

on closeSafariTabsBeginsWithAURL(targURL)
　　tell application "Safari"
　　　　set wCount to (every window whose visible is true)
　　　　
　　　　repeat with w in wCount
　　　　　　set aWin to contents of w
　　　　　　
　　　　　　tell aWin
　　　　　　　　set tabCount to count every tab
　　　　　　　　repeat with t from tabCount to 1 by -1
　　　　　　　　　　tell tab t
　　　　　　　　　　　　set aURL to URL of it
　　　　　　　　　　　　if aURL begins with targURL then
　　　　　　　　　　　　　　close
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　　　
　　　　end repeat
　　end tell
end closeSafariTabsBeginsWithAURL