デコードしたQRコードのメールデータの各フィールドを取り出す v2.2

AppleScript名：デコードしたQRコードのメールデータの各フィールドを取り出す v2.2

— Created 2016-12-12 by Shane Stanley
— Modified 2016-12-14 by edama2
— Modified 2017-01-12 by Takaaki Naganoya
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aStr to "こんにちは、ぴよまるです

MATMSG:TO:hiyoko@piyocast.com;SUB:たいとる;BODY:ほんぶん;;

Takaaki Naganoya
XXX-XXXX-XXXX

iPhoneから送信"

set aDict to (parseStrByParamlabelAndTail(aStr, "MATMSG:", ":", ";") of me)

set eMailAddrs to (aDict’s valueForKey:"TO") as string
–>　　"hiyoko@piyocast.com"
set aSubject to (aDict’s valueForKey:"SUB") as string
–>　　"たいとる"
set aBody to (aDict’s valueForKey:"BODY") as string
–>　　"ほんぶん"

on parseStrByParamlabelAndTail(aParamStr, aDataHeader, aParamLabel, aParamTail)
　　set theScanner to current application’s NSScanner’s scannerWithString:aParamStr
　　set aDict to current application’s NSMutableDictionary’s |dictionary|()
　　
　　—Skip over the data header
　　set {theResult, theKey} to theScanner’s scanUpToString:aDataHeader intoString:(reference)
　　if theResult as boolean = false then return false –Error: Data header is not present
　　
　　theScanner’s scanString:aDataHeader intoString:(missing value)
　　
　　repeat until (theScanner’s isAtEnd as boolean)
　　　　— terminate check, return the result (aDict) to caller
　　　　set {theResult, theKey} to theScanner’s scanUpToString:aParamLabel intoString:(reference)
　　　　
　　　　— skip over separator
　　　　theScanner’s scanString:aParamLabel intoString:(missing value)
　　　　set {theResult, theValue} to theScanner’s scanUpToString:aParamTail intoString:(reference)
　　　　if theValue is missing value then set theValue to ""
　　　　
　　　　— skip over separator
　　　　theScanner’s scanString:aParamTail intoString:(missing value)
　　　　
　　　　aDict’s setObject:theValue forKey:theKey
　　end repeat
　　
　　return aDict
end parseStrByParamlabelAndTail