set a to getSpecifiedAttrOfRec(aRec, aLabel) of me
–> 166

–与えられたレコードから指定の属性値ラベルの値を取り出して返す
on getSpecifiedAttrOfRec(aRec, aLabel)
　　
　　–パラメータのエラーチェック。エラー時にはmissing valueを返す
　　set aClass to class of aRec
　　if aClass is not record then return missing value
　　if aLabel = "" then return missing value
　　if class of aLabel is not string then return missing value
　　
　　–レコードを無理矢理stringにcastして、エラーメッセージを取得する
　　try
　　　　set a to aRec as string
　　on error aMes
　　　　set a to aMes
　　end try
　　
　　–エラーメッセージ文字列から、元のレコードの情報を組み立てる
　　set b to trimStrFromTo(a, "{", "}")
　　set b to "{" & b & "}"
　　
　　–動的にAppleScriptを生成して、無理矢理レコードから目的の属性値を取り出す
　　set s to "return " & aLabel & " of " & b
　　try
　　　　set recData to run script s
　　on error
　　　　return missing value –指定の属性値が存在しなかった場合にはエラー
　　end try
　　
　　return recData
　　
end getSpecifiedAttrOfRec

on trimStrFromTo(aStr, fromStr, toStr)
　　–fromStrは前から探す
　　if fromStr is not equal to "" then
　　　　set sPos to (offset of fromStr in aStr) + 1
　　else
　　　　set sPos to 1
　　end if
　　
　　–toStrは後ろから探す
　　if toStr is not equal to "" then
　　　　set b to (reverse of characters of aStr) as string
　　　　set ePos to (offset of toStr in b)
　　　　set ePos to ((length of aStr) – ePos)
　　else
　　　　set ePos to length of aStr
　　end if
　　set aRes to text sPos thru ePos of aStr
　　return aRes
end trimStrFromTo