set a to "3 0x4248387 1920×1200 0 0 -1920 -1200 0 [main]"

set aStr to (current application’s NSString’s stringWithString:a)
–> (NSString) "3 0x4248387 1920×1200 0 0 -1920 -1200 0 [main]"

set aLine to (aStr’s componentsSeparatedByString:" ")
–> (NSArray) {"3", "", "0x4248387", "", "", "", "", "1920×1200", "", "", "", "", "", "0", "", "", "", "", "0", "", "-1920", "", "-1200", "", "", "", "", "", "0", "", "", "", "[main]"}

(aLine’s removeObject:"")
–> (NSArray) {"3", "0x4248387", "1920×1200", "0", "0", "-1920", "-1200", "0", "[main]"}

set aParamStr to "access_token=XXxxx(XXxXXXXXxxXxxXXx))&expires=86399"
set aDict to (parseStrByAmpAndEqual(aParamStr) of me) as record
–>　　{​​​​​expires:"86399", ​​​​​access_token:"XXxxx(XXxXXXXXxxXxxXXx))"​​​}

set aParamStr to "access_token=XXxxx(XXxXXXXXxxXxxXXx))&expires=86399&name="
set aDict to (parseStrByAmpAndEqual(aParamStr) of me)
–>　　{expires:"86399", |name|:"", access_token:"XXxxx(XXxXXXXXxxXxxXXx))"}

set aStr to "thru （throughも可）"
set aRes to (trimStrFromTo(aStr, "（", "）") of me)
–>　　"thru "

set bStr to "thru "
set bRes to (trimStrFromTo(bStr, "（", "）") of me)
–>　　"thru "

on trimStrFromTo(aParamStr, fromStr, toStr)
　　set theScanner to current application’s NSScanner’s scannerWithString:aParamStr
　　set anArray to current application’s NSMutableArray’s array()
　　
　　repeat until (theScanner’s isAtEnd as boolean)
　　　　— terminate check, return the result (aDict) to caller
　　　　set {theResult, theKey} to theScanner’s scanUpToString:fromStr intoString:(reference)
　　　　
　　　　— skip over separator
　　　　theScanner’s scanString:fromStr intoString:(missing value)
　　　　set {theResult, theValue} to theScanner’s scanUpToString:toStr intoString:(reference)
　　　　if theValue is missing value then set theValue to "" –>追加
　　　　
　　　　— skip over separator
　　　　theScanner’s scanString:toStr intoString:(missing value)
　　　　
　　　　anArray’s addObject:theValue
　　end repeat
　　
　　if anArray’s |count|() = 0 then return aParamStr
　　
　　copy aParamStr to curStr
　　repeat with i in (anArray as list)
　　　　set curStr to repChar(curStr, fromStr & i & toStr, "") of me
　　end repeat
　　
　　return curStr
end trimStrFromTo

set theString to "UA460 SFO to YVR [Flight] 6/12/2013 United Airlines(UA) #460 dep SFO 7:57pm PDT arr YVR 10:14pm PDT; Ticket #0162360127882, Ticket #0162360127883; conf #K5XBXY; Note:, Seats:—/30A , Seats:—/30B
"

set theDates to (extractTransitInfoFromNaturalText(theString))
–>　　{​​​​​{​​​​​​​Flight:"460"​​​​​}​​​}

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

set theString to "長野谷隆昌
(Takaaki Naganoya)
maro@piyocast.com
http://piyocast.com/as
2015年8月21日〜23日
080-1111-2222
東京都練馬区中村橋1-2-3
"

set theDates to (extractPhoneNumberFromNaturalText(theString))
–>　　{​​​​​"080-1111-2222"​​​}

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

set theString to "長野谷隆昌
(Takaaki Naganoya)
maro@piyocast.com
http://piyocast.com/as
2015年8月21日〜23日
東京都練馬区中村橋1-2-3
"

set theDates to (extractAddressFromNaturalText(theString))
–>　　{{State:"東京都", Street:"中村橋1-2-3", City:"練馬区"}}

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

set theString to "長野谷隆昌
(Takaaki Naganoya)
maro@piyocast.com
http://piyocast.com/as
2015年8月21日〜23日
080-1111-2222
東京都練馬区中村橋1-2-3
"

set resList to (extractLinksFromNaturalText(theString))
–>　　{​​​​​(NSURL) mailto:maro@piyocast.com, ​​​​​(NSURL) http://piyocast.com/as​​​}

set bList to {}
repeat with i in resList
　　set the end of bList to (i’s absoluteString()) as text
end repeat
bList
–> {"mailto:maro@piyocast.com", "http://piyocast.com/as"}

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

set aText to "
—
Takaaki Naganoya
Piyomaru Software
http://piyocast.com/as
maro@piyocast.com
"
set aRes to findEmailAddressesIn(aText) of me
–>　　{​​​​​"maro@piyocast.com"​​​}

set aString to current application’s NSString’s stringWithString:"The time has come for all good “men”"
set aString to (aString’s stringByAddingPercentEncodingWithAllowedCharacters:(current application’s NSCharacterSet’s URLQueryAllowedCharacterSet())) as text

set aStr to "龍馬伝"
set aRes to decodeCharacterReference(aStr) of me
–>　　"龍馬伝"

set aStr to "＼"第2エア＼""
set aRes to decodeCharacterReference(aStr) of me
–>　　"＼"第2エア＼""

on decodeCharacterReference(aStr)
　　set anNSString to current application’s NSString’s stringWithString:aStr
　　set theData to anNSString’s dataUsingEncoding:(current application’s NSUTF16StringEncoding)
　　set styledString to current application’s NSAttributedString’s alloc()’s initWithHTML:theData documentAttributes:(missing value)
　　set plainText to (styledString’s |string|()) as string
　　return plainText
end decodeCharacterReference

set aStr to "高島屋"
set aPath to choose file name

set cStr to current application’s NSString’s stringWithString:aStr
set thePath to POSIX path of aPath

set aRes to cStr’s writeToFile:thePath atomically:false encoding:(current application’s NSUTF16LittleEndianStringEncoding) |error|:(missing value)

set aStr to "高島屋"
set aPath to choose file name

set cStr to current application’s NSString’s stringWithString:aStr
set thePath to POSIX path of aPath

set aRes to cStr’s writeToFile:thePath atomically:false encoding:(current application’s NSUTF16BigEndianStringEncoding) |error|:(missing value)

set aStr to "高島屋"
set aPath to choose file name

set cStr to current application’s NSString’s stringWithString:aStr
set thePath to POSIX path of aPath

set aStr to "高島屋"
set aPath to choose file name

set cStr to current application’s NSString’s stringWithString:aStr
set thePath to POSIX path of aPath

set aStr to "高島屋"
set aPath to choose file name

set cStr to current application’s NSString’s stringWithString:aStr
set thePath to POSIX path of aPath

set aStr to "高島屋"
set aPath to choose file name

set cStr to current application’s NSString’s stringWithString:aStr
set thePath to POSIX path of aPath

set aRes to cStr’s writeToFile:thePath atomically:false encoding:(current application’s NSJapaneseEUCStringEncoding) |error|:(missing value)