load framework

set res0 to current application’s SMSForder’s |description|() as text
–> "SMSForder”

–Calculates the MD5 hash of a string
set aStr to "0123456789"
set a to bPlus’s MD5From:aStr
–> "781e5e245d69b566979b86e28d23f2c7"

–Converts straight quote marks into typographer’s quote marks
set bStr to "’a’"
set b to bPlus’s smartQuotedFrom:bStr
–> "‘a’"

–Converts typographer’s quote marks into straight quote marks
set cStr to "‘a’"
set c to bPlus’s unsmartQuotedFrom:cStr
–> "’a’"

–Encodes the five reserved XML characters only
set d1Str to "&＼"<>’"
set d1 to bPlus’s encodedXMLFrom:d1Str
–> "&amp;&quot;&lt;&gt;&apos;"

–Decode the five reserved XML characters only
set d2Str to "&amp;&quot;&lt;&gt;&apos;"
set d2 to bPlus’s unencodedForXMLFrom:d2Str
–> "&＼"<>’"

–Encodes characters outside ASCII 32-126 in hexadecimal form (&#xHHHH;)
set eStr to "あいうえお"
set e to bPlus’s encodedHexFrom:eStr
–> "&#x3042;&#x3044;&#x3046;&#x3048;&#x304A;"

–Encodes characters outside ASCII 32-126 in decimal form (&#DD;), for use in HTML
set fStr to "あいうえお"
set f to bPlus’s encodedDecimalFrom:fStr
–> "&#12354;&#12356;&#12358;&#12360;&#12362;"

–Decodes characters that appear in decimal form (&#DD;) or hexidecimal form (&#xHHHH;), as used in XML and HTML
set gStr to "&#12354;&#12356;&#12358;&#12360;&#12362;"
set g to bPlus’s decodedDecimalFrom:gStr
–> "あいうえお"

–Deletes any paragraphs that are empty or contain only spaces and/or tabs
set hStr to "a
aaa
a

"
set h to bPlus’s emptyLineFreeFrom:hStr
–>
(*
"a
aaa
a
a
a"
*)

–Converts runs of more than one space to a single space character, and trims spaces from the beginning and end of paragraphs.
set hStr to " aaaaa bbbb ccccc "
set h to bPlus’s cleanSpacedFrom:hStr
–> "aaaaa bbbb ccccc"

set theString to "ながのや, たかあき" –Hiragana
set aRes to (bPlus’s transformedFrom:theString ICUTransform:"Hiragana-Latin" inverse:false) as text
–> "naganoya, takaaki"

set theString to "ながのや, たかあき" –Hiragana
set aRes to (bPlus’s transformedFrom:theString ICUTransform:"Hiragana-Katakana" inverse:false) as text
–> "ナガノヤ, タカアキ"–Katakana

set theString to "Takaaki, Naganoya"
set aRes to (bPlus’s transformedFrom:theString ICUTransform:"Latin-Hiragana" inverse:false) as text
–> "たかあき、 ながのや"–Hiragana

set theString to "Takaaki, Naganoya"
set aRes to (bPlus’s transformedFrom:theString ICUTransform:"Latin-Katakana" inverse:false) as text
–> "タカアキ、 ナガノヤ"–Katakana

set theString to "Shane, Stanley"
set aRes to (bPlus’s transformedFrom:theString ICUTransform:"Latin-Katakana" inverse:false) as text
–> "シャネ、 スタンレイ"–Katakana…..this seems odd. "シェーン, スタンリー" will be a right spelling

set theString to "Takaaki, Naganoya"
set aRes to (bPlus’s transformedFrom:theString ICUTransform:"Halfwidth-Fullwidth" inverse:false) as text
–> "Ｔａｋａａｋｉ，　Ｎａｇａｎｏｙａ"–Double Width Alphabet

set theString to "Naganoya, Takaaki"
set aRes to (bPlus’s transformedFrom:theString ICUTransform:"Latin-Hangul" inverse:false) as text
–> "나가노야, 타카아키"–Hangul

set a to current application’s NSMutableString’s stringWithString:"あいうえお"
set b to a’s |length|()
–>　　5

–OS X 10.4で導入されたconsidering numeric strings
considering numeric strings
　　if aVer > bVer then
　　　　display dialog "Yosemite is newer than Mavericks"
　　else
　　　　display dialog "Whoa!"
　　end if
end considering

set a to "10.10"
set b to "10.10.0"
set aRes to compareVersionNumericStrings(a, b) of me
–>　　"A=B"

set a to "10.10"
set b to "10.10.0.1"
set aRes to compareVersionNumericStrings(a, b) of me
–>　　"B>A"

set a to "10.10.1"
set b to "10.10.0.1"
set aRes to compareVersionNumericStrings(a, b) of me
–>　　"A>B"

set a to "10.10.1"
set b to "10.9.1.1"
set aRes to compareVersionNumericStrings(a, b) of me
–> "A>B"

–バージョン番号文字列の正確な比較
on compareVersionNumericStrings(a, b)
　　
　　set aList to parseVersionNumber(a) of me
　　–>　　{​​​​​"10", ​​​​​"10"​​​}
　　
　　set bList to parseVersionNumber(b) of me
　　–>　　{​​​​​"10", ​​​​​"10", ​​​​​"0"​​​}
　　
　　set aLen to length of aList
　　set bLen to length of bList
　　
　　if aLen = bLen then
　　　　–何もしない
　　　　set buryTimes to 0
　　else if aLen > bLen then
　　　　set buryTimes to (aLen – bLen)
　　　　set bList to addNullItems(bList, "0", buryTimes) of me
　　else if bLen > aLen then
　　　　set buryTimes to (bLen – aLen)
　　　　set aList to addNullItems(aList, "0", buryTimes) of me
　　end if
　　
　　set cLen to length of aList –aListもbListも同じ長さなのでこれでいい
　　
　　repeat with i from 1 to cLen
　　　　
　　　　set aItem to contents of item i of aList
　　　　set bItem to contents of item i of bList
　　　　
　　　　considering numeric strings
　　　　　　if aItem > bItem then
　　　　　　　　return "A>B"
　　　　　　else if aItem < bItem then
　　　　　　　　return "B>A"
　　　　　　end if
　　　　end considering
　　　　
　　end repeat
　　
　　return "A=B"
　　
end compareVersionNumericStrings

–バージョン番号文字列からメジャーバージョンを取り出し数値として返す
on parseVersionNumber(a)
　　set aStr to current application’s NSString’s stringWithString:a
　　set aRes to (aStr’s componentsSeparatedByString:".")
　　set bRes to aRes’s allObjects()
　　return bRes as list
end parseVersionNumber

–指定リストの末尾に指定個数、埋め草を追加する
on addNullItems(aList, anItem, aTimes)
　　
　　copy aList to bList
　　
　　repeat aTimes times
　　　　set the end of bList to anItem
　　end repeat
　　
　　return bList
　　
end addNullItems

set a to "㍑"
set b to "リットル"
log (a = b) –AppleScriptネイティブの文字列比較だとこれらが混同されることに注意
–> true
set c to compStrA_B_(a, b)
–> false

set a to "バビブベボ"
set b to "ハヒフヘホ"
log (a = b)
–> false
set c to compStrA_B_(a, b)
–> false

set a to "あいうえお"
set b to "アイウエオ"
log (a = b) –AppleScriptネイティブの文字列比較だとこれらが混同されることに注意
–> true
set c to compStrA_B_(a, b)
–> false

set aRes to compareIgnoringDiacriticals("AbC", "ÂbC")
–> true

set aRes to compareIgnoringDiacriticals("Abc", "Ábc")
–> true

set aRes to compareIgnoringDiacriticals("abc", "åbc")
–> true

set inputStringWithLigatures to "ꜲꜳÆæꜴꜵꜶꜷꜸꜹꜺꜻꜼꜽffffifflfiflŒœꝎstꜨꜩᵫꝠꝡ" & "LJLjNJNjnjDZDzdzIJij"
set aRes to removeLigaturesFromString(inputStringWithLigatures) of me
–>　　"AAaaAEaeAOaoAUauAVavAVavAYayffffifflfiflOEoeOOstTZtzueVYvyLJLjNJNjnjDZDzdzIJij"

on removeLigaturesFromString(inputStringWithLigatures)
　　set theString to current application’s NSString’s stringWithString:inputStringWithLigatures
　　
　　# Convert what may be done applying transform "ÆæffffifflfiflŒœᵫ" & "LJLjNJNjnjDZDzdzIJij"
　　set inputStringWithLigatures to (theString’s stringByApplyingTransform:"Latin-ASCII" |reverse|:false) as text
　　
　　# Treat the remaining ligatures
　　set searchStrings to {"Ꜳ", "ꜳ", "Ꜵ", "ꜵ", "Ꜷ", "ꜷ", "Ꜹ", "ꜹ", "Ꜻ", "ꜻ", "Ꜽ", "ꜽ", "Ꝏ", "Ꜩ", "ꜩ", "Ꝡ", "ꝡ"} — if you find others, add them here
　　set replaceStrings to {"AA", "aa", "AO", "ao", "AU", "au", "AV", "av", "AV", "av", "AY", "ay", "OO", "TZ", "tz", "VY", "vy"} — if you find others, add them here
　　set saveTID to AppleScript’s text item delimiters
　　
　　considering case
　　　　set i to 0
　　　　repeat with lig in searchStrings
　　　　　　set i to i + 1
　　　　　　set AppleScript’s text item delimiters to {lig}
　　　　　　set inputStringWithLigatures to text items of inputStringWithLigatures
　　　　　　set AppleScript’s text item delimiters to {item i of replaceStrings}
　　　　　　set inputStringWithLigatures to inputStringWithLigatures as text
　　　　end repeat
　　end considering
　　
　　set AppleScript’s text item delimiters to saveTID
　　
　　return inputStringWithLigatures
end removeLigaturesFromString

–指定文字列内の指定キーワードの出現回数を取得する
on retFrequency(origText, aKeyText)
　　set aRes to parseByDelim(origText, aKeyText) of me
　　return ((count every item of aRes) – 1)
end retFrequency

set aUUID to (current application’s NSUUID’s UUID()’s UUIDString()) as text
–>　　"46EF17B7-CB3E-4DD9-BA8A-013D3B30A80A"

set aUUID to "😀😐" & aUUID & "😀😐"
–>　　"😀😐46EF17B7-CB3E-4DD9-BA8A-013D3B30A80A😀😐"

set revUUID to reversedStr(aUUID) as text
–>　　"😐😀A08A03B3D310-A8AB-9DD4-E3BC-7B71FE64😐😀"

set a to "10.0.1"
set b to retMajorVersionNumber(a) of me
–> 10

set a to "9.10"
set b to retMajorVersionNumber(a) of me
–> 9