与えられたデータのうちIPアドレスとして妥当なもののみを抽出

AppleScript名：与えられたデータのうちIPアドレスとして妥当なもののみを抽出

— Created 2018-01-03 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSPredicate : a reference to current application’s NSPredicate
property NSArray : a reference to current application’s NSArray

set aaList to {"112.4.208.194", "17.20.30..12"}
set aResList to {}
repeat with i in aaList
　　set j to contents of i
　　set the end of aResList to chkIPAddressFormat(j) of me
end repeat
aResList

on chkIPAddressFormat(aStr as string)
　　set aList to {aStr}
　　set anArray to NSArray’s arrayWithArray:aList
　　set aPred to NSPredicate’s predicateWithFormat:"SELF MATCHES ’[0-9]{1,3}＼＼.[0-9]{1,3}＼＼.[0-9]{1,3}＼＼.[0-9]{1,3}’"
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　return (length of bRes = 1) as boolean
end chkIPAddressFormat