与えられたテキストからdate objectを抽出 v2

AppleScript名：与えられたテキストからdate objectを抽出 v2

— Created 2015-08-21 by Shane Stanley
— Modified 2015-08-22 by Shane Stanley
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use script "BridgePlus"

set theString to "Sunny September 4
Fri., September 1
Fri. Sept. 2
Fri Sep 3
Sep. 4
Sept. 9
9/8
9/7/15
09/06/2015
9/5/2015
2015/9/5
2015年9月5日
2015年9月5日（土）
２０１５．９．５
"

set theDates to ASify from (my getDatesIn:theString)
–>　　{date "2015年9月4日金曜日 12:00:00", date "2015年9月1日火曜日 12:00:00", date "2015年9月2日水曜日 12:00:00", date "2015年9月3日木曜日 12:00:00", date "2015年9月4日金曜日 12:00:00", date "2015年9月9日水曜日 12:00:00", date "2009年7月15日水曜日 12:00:00", date "2015年9月6日日曜日 12:00:00", date "2015年9月5日土曜日 12:00:00", date "2015年9月5日土曜日 12:00:00", date "2015年9月5日土曜日 12:00:00", date "2015年9月5日土曜日 12:00:00"}

on getDatesIn:aString
　　set anNSString to current application’s NSString’s stringWithString:aString
　　
　　set {theDetector, theError} to current application’s NSDataDetector’s dataDetectorWithTypes:(current application’s NSTextCheckingTypeDate) |error|:(reference)
　　
　　set theMatches to theDetector’s matchesInString:anNSString options:0 range:{0, anNSString’s |length|()}
　　set theResults to theMatches’s valueForKey:"date"
　　
　　return theResults as list
end getDatesIn: