property NSString : a reference to current application’s NSString
property NSNumber : a reference to current application’s NSNumber
property NSDictionary : a reference to current application’s NSDictionary
property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSNumberFormatter : a reference to current application’s NSNumberFormatter
property NSRegularExpressionSearch : a reference to current application’s NSRegularExpressionSearch
property NSNumberFormatterRoundUp : a reference to current application’s NSNumberFormatterRoundUp

set sourcePath to choose file of type {"public.plain-text"}
tell current application
　　set aStr to (read sourcePath as «class utf8»)
end tell

set aRes to detectCharKindRating(aStr) of me
–> {kanjiNum:563289, kanjiRating:22.0, hiraganaNum:1311933, hiraganaRating:51.2, katakanaNum:210161, katakanaRating:8.2, otherNum:478690, otherRating:18.7, totalCount:2564073}–Light Novel
–> {kanjiNum:24960, kanjiRating:28.0, hiraganaNum:56080, hiraganaRating:62.9, katakanaNum:1063, katakanaRating:1.2, otherNum:7136, otherRating:8.0} –文学（坊ちゃん）

on detectCharKindRating(aStr as string)
　　set theCountedSet to NSCountedSet’s alloc()’s initWithArray:(characters of aStr)
　　set theEnumerator to theCountedSet’s objectEnumerator()
　　
　　set cCount to 0
　　set hCount to 0
　　set kCount to 0
　　set oCount to 0
　　set totalC to length of aStr
　　
　　repeat
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　
　　　　set aStr to aValue as string
　　　　set tmpCount to (theCountedSet’s countForObject:aValue)
　　　　
　　　　set s1Res to chkKanji(aStr) of me
　　　　set s2Res to chkKatakana(aStr) of me
　　　　set s3Res to chkHiragana(aStr) of me
　　　　
　　　　if s1Res = true then
　　　　　　set cCount to cCount + tmpCount
　　　　else if s2Res = true then
　　　　　　set kCount to kCount + tmpCount
　　　　else if s3Res = true then
　　　　　　set hCount to hCount + tmpCount
　　　　else
　　　　　　set oCount to oCount + tmpCount
　　　　end if
　　end repeat
　　
　　set ckRes to roundingUp((cCount / totalC) * 100, 1) of me
　　set kkRes to roundingUp((kCount / totalC) * 100, 1) of me
　　set hgRes to roundingUp((hCount / totalC) * 100, 1) of me
　　set otRes to roundingUp((oCount / totalC) * 100, 1) of me
　　
　　return {kanjiNum:cCount, kanjiRating:ckRes, hiraganaNum:hCount, hiraganaRating:hgRes, katakanaNum:kCount, katakanaRating:kkRes, otherNum:oCount, otherRating:otRes}
end detectCharKindRating

on chkKanji(aChar)
　　return detectCharKind(aChar, "[一-龠]") of me
end chkKanji

on chkHiragana(aChar)
　　return detectCharKind(aChar, "[ぁ-ん]") of me
end chkHiragana

on chkKatakana(aChar)
　　return detectCharKind(aChar, "[ァ-ヶ]") of me
end chkKatakana

on detectCharKind(aChar, aPattern)
　　set aChar to NSString’s stringWithString:aChar
　　set searchStr to NSString’s stringWithString:aPattern
　　set matchRes to aChar’s rangeOfString:searchStr options:(NSRegularExpressionSearch)
　　if matchRes’s location() = (current application’s NSNotFound) or (matchRes’s location() as number) > 9.99999999E+8 then
　　　　return false
　　else
　　　　return true
　　end if
end detectCharKind

on roundingUp(aNum, aDigit as integer)
　　set a to aNum as real
　　set aFormatter to NSNumberFormatter’s alloc()’s init()
　　aFormatter’s setMaximumFractionDigits:aDigit
　　aFormatter’s setRoundingMode:(NSNumberFormatterRoundUp)
　　set aStr to aFormatter’s stringFromNumber:(NSNumber’s numberWithFloat:a)
　　return (aStr as text) as real
end roundingUp

set a01 to hanToZen("ﾄｳｷｮｳﾄ") of me
–>　　"トウキョウト"–Zenkaku (Full Width)

set a02 to zenToHan(a01) of me
–>　　"ﾄｳｷｮｳﾄ" –Hankaku (Half Width)

set a03 to katakanaToHiraganaTo(a01) of me
–>　　"とうきょうと"

set a04 to hiraganaToKatakana(a03) of me
–>　　"トウキョウト"

set a05 to hiraganaToalphabet(a03) of me
–>　　"toukyouto"

set a06 to alphabetToHiragana(a05) of me
–>　　"とうきょうと"

set a07 to katakanaToAlphabet(a04) of me
–>　　"toukyouto"

set a08 to alphabetToKatakana(a07) of me
–>　　"トウキョウト"

set a09 to characterToUnicodeName("あ") of me
–>　　"＼＼N{HIRAGANA LETTER A}"

set a10 to unicodeNameToCharacter(a09) of me
–>　　"あ"

set a11 to stringToXMLHex("あ") of me
–>　　"あ"

set a12 to xmlHexTostring(a11) of me
–>　　"あ"

–半角→全角変換
on hanToZen(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformFullwidthToHalfwidth) |reverse|:true) as string
end hanToZen

–全角→半角変換
on zenToHan(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformFullwidthToHalfwidth) |reverse|:false) as string
end zenToHan

–ひらがな→カタカナ変換
on hiraganaToKatakana(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformHiraganaToKatakana) |reverse|:false) as string
end hiraganaToKatakana

–カタカナ→ひらがな変換
on katakanaToHiraganaTo(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformHiraganaToKatakana) |reverse|:true) as string
end katakanaToHiraganaTo

–ローマ字→ひらがな変換
on alphabetToHiragana(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToHiragana) |reverse|:false) as string
end alphabetToHiragana

–ひらがな→ローマ字変換
on hiraganaToalphabet(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToHiragana) |reverse|:true) as string
end hiraganaToalphabet

–ローマ字→カタカナ変換
on alphabetToKatakana(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToKatakana) |reverse|:false) as string
end alphabetToKatakana

–カタカナ→ローマ字変換
on katakanaToAlphabet(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToKatakana) |reverse|:true) as string
end katakanaToAlphabet

–文字→Unicode Name変換
on characterToUnicodeName(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformToUnicodeName) |reverse|:false) as string
end characterToUnicodeName

–Unicode Name→文字変換
on unicodeNameToCharacter(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformToUnicodeName) |reverse|:true) as string
end unicodeNameToCharacter

–文字→XML Hex変換
on stringToXMLHex(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformToXMLHex) |reverse|:false) as string
end stringToXMLHex

–XML Hex→文字変換
on xmlHexTostring(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformToXMLHex) |reverse|:true) as string
end xmlHexTostring

set aText to retTestText() of me

set sRes to genkoSimulation(20, 20, aText) of me
display notification "原稿用紙換算で約" & (sRes as string) & "枚です"

–原稿用紙枚数シミュレーション（簡易版）
on genkoSimulation(lineMax as integer, genkoLineMax as integer, aText as string)
　　script spdT
　　　　property aList : {}
　　end script
　　
　　if aText = "" then return 0
　　
　　set (aList of spdT) to characters of aText
　　set charPointer to 1
　　set lineCounter to 1
　　set aLen to length of (aList of spdT)
　　
　　set i to 1
　　
　　repeat while i < aLen
　　　　set j to contents of item i of (aList of spdT)
　　　　
　　　　
　　　　if j is in {string id 10, string id 13, string id 10 & string id 13} then
　　　　　　set charPointer to 1
　　　　　　set lineCounter to lineCounter + 1
　　　　else
　　　　　　
　　　　　　set charPointer to charPointer + 1
　　　　　　
　　　　　　if charPointer ≥ lineMax then
　　　　　　　　set charPointer to 1
　　　　　　　　set lineCounter to lineCounter + 1
　　　　　　end if
　　　　end if
　　　　
　　　　set i to i + 1
　　end repeat
　　
　　set totalPage to lineCounter div genkoLineMax
　　set amariPage to lineCounter mod genkoLineMax
　　if amariPage = 0 then
　　　　—
　　else
　　　　set totalPage to totalPage + 1
　　end if
　　
　　return totalPage
end genkoSimulation

(*
20 rem PRINT "THANKS TO ROBERT INDIANA AND DAVID AHL"
21 rem print "contributed by ATStarr@Amherst.Edu 1996"
http://www.nicholson.com/rhn/basic/classic_programs/love.bas
*)

set charMode to "E" –J or E
set aTargChar to "makiko"
set outText to ""
set aSpc to returnSpc(charMode) of me

set aList to retLoveList()

set aPos to 0
set charFlag to true –false:space char

repeat with i in aList
　　set j to contents of i
　　if charFlag = true then
　　　　set aText to retCirculateStrs(aTargChar, j) of me
　　else
　　　　set aText to retCirculateStrs(aSpc, j) of me
　　end if
　　
　　set outText to outText & aText
　　
　　set charFlag to not charFlag
　　
　　set aPos to aPos + j
　　if aPos ≥ 60 then
　　　　set aPos to 0
　　　　set outText to outText & return
　　　　set charFlag to true
　　end if
end repeat

return outText

on retLoveList()
　　return {60, 1, 12, 26, 9, 12, 3, 8, 24, 17, 8, 4, 6, 23, 21, 6, 4, 6, 22, 12, 5, 6, 5, 4, 6, 21, 11, 8, 6, 4, 4, 6, 21, 10, 10, 5, 4, 4, 6, 21, 9, 11, 5, 4, 4, 6, 21, 8, 11, 6, 4, 4, 6, 21, 7, 11, 7, 4, 4, 6, 21, 6, 11, 8, 4, 4, 6, 19, 1, 1, 5, 11, 9, 4, 4, 6, 19, 1, 1, 5, 10, 10, 4, 4, 6, 18, 2, 1, 6, 8, 11, 4, 4, 6, 17, 3, 1, 7, 5, 13, 4, 4, 6, 15, 5, 2, 23, 5, 1, 29, 5, 17, 8, 1, 29, 9, 9, 12, 1, 13, 5, 40, 1, 1, 13, 5, 40, 1, 4, 6, 13, 3, 10, 6, 12, 5, 1, 5, 6, 11, 3, 11, 6, 14, 3, 1, 5, 6, 11, 3, 11, 6, 15, 2, 1, 6, 6, 9, 3, 12, 6, 16, 1, 1, 6, 6, 9, 3, 12, 6, 7, 1, 10, 7, 6, 7, 3, 13, 6, 6, 2, 10, 7, 6, 7, 3, 13, 14, 10, 8, 6, 5, 3, 14, 6, 6, 2, 10, 8, 6, 5, 3, 14, 6, 7, 1, 10, 9, 6, 3, 3, 15, 6, 16, 1, 1, 9, 6, 3, 3, 15, 6, 15, 2, 1, 10, 6, 1, 3, 16, 6, 14, 3, 1, 10, 10, 16, 6, 12, 5, 1, 11, 8, 13, 27, 1, 11, 8, 13, 27, 1, 60}
end retLoveList

–Return Space (English Char/Japanese Char)
on returnSpc(aMode)
　　if aMode = "E" then return " " –Single character Space
　　if aMode = "J" then return "　" –Japanese Double Width Space
end returnSpc

set aStr to "

"

set aString to current application’s NSString’s stringWithString:aStr
set bStr to (aString’s stringByTrimmingCharactersInSet:(current application’s NSCharacterSet’s whitespaceAndNewlineCharacterSet()))

return bStr as string