set aStr to "drawAtPoint:(CGPoint)point forWidth:(CGFloat)width withFont:(UIFont *)font minFontSize:(CGFloat)minFontSize actualFontSize:(CGFloat *)actualFontSize lineBreakMode:(UILineBreakMode)lineBreakMode baselineAdjustment:(UIBaselineAdjustment)baselineAdjustment"

set sStr to "("
set eStr to ")"

–変数の型で２語に別れるものを徹底的に置換
set aStr to repChar(aStr, "unsigned short", "unsignedshort") of me
set aStr to repChar(aStr, "signed short", "signedshort") of me
set aStr to repChar(aStr, "signed int", "signedint") of me
set aStr to repChar(aStr, "unsigned int", "unsignedint") of me

if aStr does not end with ";" then
　　set aStr to aStr & ";"
end if

set aStr to trimStrByCharPair(aStr, sStr, eStr, 0, 0) of me

set aStr to repChar(aStr, tab, "") of me
set aStr to repChar(aStr, character id 10, "") of me

set aStr to repChar(aStr, ";", " ") of me
set aStr to repChar(aStr, ":", "_") of me

set bList to parseByDelim(aStr, {"_", " "}) of me
set aRes to ""
repeat with i from 1 to ((length of bList) - 1) by 2
　　set j to contents of item i of bList
　　set aRes to aRes & (j & "_")
end repeat

set bRes to "("
repeat with i from 2 to (length of bList) by 2
　　set j to contents of item i of bList
　　set bRes to bRes & (j & ", ")
end repeat
set bRes to bRes & ")"

set bRes to repChar(bRes, ", )", ")") of me –ゴミ掃除

set cRes to aRes & bRes
–>"drawAtPoint_forWidth_withFont_minFontSize_actualFontSize_lineBreakMode_baselineAdjustment_(point, width, font, minFontSize, actualFontSize, lineBreakMode, baselineAdjustment)"

–指定文字列から、指定ペア文字で囲まれる部分を削除。前方からスキャンして削除実行
on trimStrByCharPair(aStr, sStr, eStr, sTrimOffset, eTrimOffset)
　　repeat
　　　　set sOffst to offset of sStr in aStr
　　　　set eOffst to offset of eStr in aStr
　　　　
　　　　set aLen to length of aStr
　　　　if aLen < 2 then return ""
　　　　
　　　　if sOffst = 0 or eOffst = 0 then
　　　　　　exit repeat
　　　　end if
　　　　
　　　　if sOffst > 1 then
　　　　　　set tmp1Str to text 1 thru (sOffst - 1 + sTrimOffset) of aStr
　　　　　　set tmp2Str to text (eOffst + 1 + eTrimOffset) thru -1 of aStr
　　　　　　set aStr to tmp1Str & tmp2Str
　　　　　　
　　　　else if sOffst = 1 then
　　　　　　set aStr to text (eOffst + 1) thru -1 of aStr
　　　　　　
　　　　else if sOffst = aLen - 1 then
　　　　　　set aStr to ""
　　　　　　
　　　　end if
　　　　
　　end repeat
　　
　　return aStr
end trimStrByCharPair

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

–与えられた文字列を、指定デリミタ文字でparseしてリストにして返す
on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–「YxX」の形式の文字列を、{Y,X}のように数字のリストにして返す
on divideYxX(aStr)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to "x"
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2}
　　
end divideYxX

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set bList to countAcharInStrAndDetectPos(a, aTargChar) of me
–> {2, {4, 6}} –指定文字の出現回数カウント、登場位置リスト

–文字列中に指定文字が何個入っているかカウントし、登場位置をリストで返す
on countAcharInStrAndDetectPos(aStr, aTargChar)
　　set aList to {}
　　set posC to 1
　　
　　considering case
　　　　set aHit to offset of aTargChar in aStr
　　　　
　　　　if aHit is not equal to 0 then
　　　　　　set aaList to characters of aStr
　　　　　　set aCount to 0
　　　　　　
　　　　　　repeat with i in aaList
　　　　　　　　
　　　　　　　　set j to contents of i
　　　　　　　　
　　　　　　　　if j = aTargChar then
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　　　set the end of aList to posC
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set posC to posC + 1
　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　　　
　　　　　　return {aCount, aList}
　　　　else
　　　　　　return {0, {}}
　　　　end if
　　end considering
end countAcharInStrAndDetectPos

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> file “Cherry:Users:maro:Desktop:ScriptingBridgeFramework.pdf”

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> alias “Cherry:Users:maro:Desktop:ScriptingBridgeFramework.pdf”

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> alias “Cherry:Users:maro:Desktop:ScriptingBridgeFramework.pdf”

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–文字列の先頭と末尾に指定文字が存在した場合にはトリミングして返す
on trimByCharPair(aStr, beginChar, endChar)
　　
　　set aLen to length of aStr
　　set sPos to 1
　　set ePos to aLen
　　
　　if aStr begins with beginChar then
　　　　set sPos to sPos + 1
　　end if
　　
　　if aStr ends with endChar then
　　　　set ePos to ePos - 1
　　end if
　　
　　set aResStr to text sPos thru ePos of aStr
　　return aResStr
　　
end trimByCharPair

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–数字の文字が入っているかどうかをテストする
–数字の文字が入っていたらtrue
on detectContainsSomeNumChar(testText)
　　–ANK文字列（大文字小文字は問わない）
　　set ankChar to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
　　
　　set _testChar to testText as Unicode text
　　
　　ignoring case
　　　　repeat with i in _testChar
　　　　　　set j to contents of i
　　　　　　if j is in ankChar then
　　　　　　　　return true
　　　　　　end if
　　　　end repeat
　　end ignoring
　　
　　return false
end detectContainsSomeNumChar

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set a to mergeLastItem(aList, 4) of me
–>
(*
{"○○初等部", "○○中等部", "○○高等部（400）", "○○大学
○○女子短期大学
○○女子短期大学"}

*)

–指定アイテム以降は指定アイテム目に改行で区切って連結する
on mergeLastItem(aList, aLimit)
　　set aLen to length of aList
　　if aLen > aLimit then
　　　　set newItem to ""
　　　　
　　　　set tmpList to items aLimit thru aLen of aList
　　　　set newItem to retDelimedText(tmpList, return) of me
　　　　
　　　　set bList to items 1 thru (aLimit - 1) of aList
　　　　set the end of bList to newItem
　　　　set aList to bList
　　end if
　　
　　return aList
end mergeLastItem

on retDelimedText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retDelimedText

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–文字列末尾からスペースを削る
on trimSpaceFromLast(aStr)
　　set revStrList to (reverse of characters of aStr)
　　set rLen to length of revStrList
　　
　　set hitF to false
　　set aCount to rLen
　　
　　repeat with i in revStrList
　　　　set j to contents of i
　　　　
　　　　if j is not equal to " " then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　if hitF = false then return aStr
　　
　　set bStr to text 1 thru (rLen - aCount - 1) of aStr
　　return bStr
end trimSpaceFromLast

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set my2Name to retChildFileName(myName, aList) of dupNameGenKit

script dupNameGenKit
　　–子番号を考慮しつつ、新しいファイル名を返す
　　on retChildFileName(myName, aList)
　　　　
　　　　set numList to {}
　　　　–set aList to {”RIMG0056.JPG”}
　　　　
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　
　　　　　　set tmpN to offset of “_” in j
　　　　　　if tmpN is not equal to 0 then
　　　　　　　　set tmpA to text (tmpN + 1) thru -1 of j
　　　　　　　　set aOfst to offset of “.” in tmpA
　　　　　　　　set numStr to text (tmpN + 1) thru (tmpN + aOfst - 1) of j
　　　　　　　　
　　　　　　　　set the end of numList to (numStr as number)
　　　　　　end if
　　　　　　
　　　　end repeat
　　　　
　　　　if numList is not equal to {} then
　　　　　　–すでに「_」の子番号が存在する場合
　　　　　　set b to shellSortDecending(numList) of me
　　　　　　set largestNum to contents of first item of b
　　　　　　
　　　　　　set largestNum to largestNum + 1
　　　　　　
　　　　else
　　　　　　–まだ「_」の子番号が存在しない場合
　　　　　　set largestNum to 1
　　　　　　
　　　　end if
　　　　
　　　　set pureName to retNameFromFilenameStr(myName) of me
　　　　set anExt to retExtNameFromFilenameStr(myName) of me
　　　　set gName to pureName & “_” & (largestNum as string) & anExt
　　　　
　　　　return gName
　　　　
　　end retChildFileName
　　
　　
　　–ファイル名文字列から拡張子を外して返す
　　on retNameFromFilenameStr(fileNameStr)
　　　　set fLen to length of fileNameStr
　　　　set revText to (reverse of (characters of fileNameStr)) as string –逆順テキストを作成
　　　　set anOffset to offset of “.” in revText
　　　　set fRes to text 1 thru (fLen - anOffset) of fileNameStr
　　　　return fRes
　　end retNameFromFilenameStr
　　
　　–ファイル名文字列から拡張子のみ取得する
　　on retExtNameFromFilenameStr(fileNameStr)
　　　　set fLen to length of fileNameStr
　　　　set revText to (reverse of (characters of fileNameStr)) as string –逆順テキストを作成
　　　　set anOffset to offset of “.” in revText
　　　　set fRes to text (fLen - anOffset + 1) thru -1 of fileNameStr
　　　　return fRes
　　end retExtNameFromFilenameStr
　　
　　–シェルソートでリストを昇順ソート（入れ子ではないリスト）
　　on shellSortAscending(a)
　　　　set n to length of a
　　　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　　　repeat with h in cols
　　　　　　if (h ≤ (n - 1)) then
　　　　　　　　repeat with i from h to (n - 1)
　　　　　　　　　　set v to item (i + 1) of a
　　　　　　　　　　set j to i
　　　　　　　　　　repeat while (j ≥ h) and ((contents of item (j - h + 1) of a) > v)
　　　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　　　set j to j - h
　　　　　　　　　　end repeat
　　　　　　　　　　set item (j + 1) of a to v
　　　　　　　　end repeat
　　　　　　end if
　　　　end repeat
　　　　return a
　　end shellSortAscending
　　
　　–シェルソートでリストを降順ソート（入れ子ではないリスト）
　　on shellSortDecending(a)
　　　　set n to length of a
　　　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　　　repeat with h in cols
　　　　　　if (h ≤ (n - 1)) then
　　　　　　　　repeat with i from h to (n - 1)
　　　　　　　　　　set v to item (i + 1) of a
　　　　　　　　　　set j to i
　　　　　　　　　　repeat while (j ≥ h) and ((contents of item (j - h + 1) of a) < v)
　　　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　　　set j to j - h
　　　　　　　　　　end repeat
　　　　　　　　　　set item (j + 1) of a to v
　　　　　　　　end repeat
　　　　　　end if
　　　　end repeat
　　　　return a
　　end shellSortDecending
end script

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aCode to "1102-V-01" –チェック対象のコード
set ruleCode to "9999-Z-99" –コードのルールを外部から供給
set aRes to chkCode(aCode, ruleCode) of me
–> {true, true, true, true, true, true, true, true, true}

–コードのチェックを行う
on chkCode(aCode, ruleCode)
　　
　　–set ruleCode to "9999Z99" –コードのルールを記述しておく–> コードのルール自体も外部から供給するようにしてみた
　　set ruleList to characters of ruleCode
　　
　　–コード長のチェック
　　set rLen to length of ruleList
　　set aLen to length of aCode
　　if aLen is not equal to rLen then return false
　　
　　–与えられたコードをリストに分解
　　set aList to characters of aCode
　　
　　set resList to {}
　　
　　repeat with i from 1 to rLen
　　　　
　　　　set j1 to contents of item i of ruleList
　　　　set j2 to contents of item i of aList
　　　　
　　　　set {fromID, toID} to getCharRange(j1) of me
　　　　set aCharCode to ASCII number of j2
　　　　
　　　　if (aCharCode ≥ fromID) and (aCharCode ≤ toID) then
　　　　　　–ルールに合っている場合には何もしない
　　　　　　set the end of resList to true
　　　　else
　　　　　　set the end of resList to false
　　　　end if
　　　　
　　end repeat
　　
　　return resList
　　
end chkCode

–文字レンジを返す
on getCharRange(a)
　　set aCode to ASCII number of a
　　
　　if aCode ≥ 48 and aCode ≤ 57 then
　　　　return {48, aCode} –数字（0〜指定数字まで）
　　else if aCode ≥ 65 and aCode ≤ 90 then
　　　　return {65, aCode} –アルファベット（大文字　A〜指定文字まで）
　　else if aCode ≥ 97 and aCode ≤ 122 then
　　　　return {97, aCode} –アルファベット（大文字　a〜指定文字まで）
　　else
　　　　return {aCode, aCode} –その他（ハイフンなどの記号を想定。上記とかぶらない文字）
　　end if
end getCharRange

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aText to retItemDelimedAndParagraphDelimedText(aList, tab, return) of me
–>
(*
"on handler1(thisYear, m)　　●　　●
on handler2(writeOutPathStr)　　●　　
on handler3(templatePath)　　●　　
on handler4(lastCellAdrNum)　　●　　
on handler5(aList, namePrefix, layerName)　　●　　
on handler2(aList, aDelim)　　　　●
on handler3(aList)　　　　●
on handler7(targetFrameName)　　　　●
on handler8(aStr)　　　　●
"
*)

–入れ子のリストを、アイテム間のデリミタとパラグラフ間のデリミタを指定してテキスト化
–というか、入れ子のリストをタブ区切りテキストにするのが目的
on retItemDelimedAndParagraphDelimedText(aList, itemDelim, paragraphDelim)
　　set aText to ""
　　
　　repeat with i in aList
　　　　set aStr to retDelimedText(i, itemDelim) of me
　　　　set aText to aText & aStr & paragraphDelim
　　end repeat
　　
　　return aText
end retItemDelimedAndParagraphDelimedText

on retDelimedText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retDelimedText

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–「m月d日」の文字列を「m/d」に変換して返す
on retMonthSlashDateStr(aStr)
　　set {mStr, dStr} to retMonthStrAndDateStr(aStr, {"月", "日"}, 2) of me
　　set resStr to mStr & "/" & dStr
　　return resStr
end retMonthSlashDateStr

–指定リストを指定デリミタでparseして日付文字列をリストにして、先頭から指定アイテムまで取り出して返す
–ただし、日付など「月」「日」が必ず存在しているという前提条件が成立するものだけが処理対象
on retMonthStrAndDateStr(aStr, delimiterList, lastItem)
　　set osVer to system attribute "sys2"
　　
　　if osVer ≥ 5 then
　　　　–Mac OS X 10.5以上の場合
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to delimiterList
　　　　set aList to text items of aStr
　　　　set AppleScript’s text item delimiters to curDelim
　　　　set bList to items 1 thru lastItem of aList
　　　　return bList
　　　　
　　else
　　　　–Mac OS X 10.4以下の場合
　　　　set resList to {}
　　　　
　　　　repeat with i in delimiterList
　　　　　　set curDelim to AppleScript’s text item delimiters
　　　　　　set AppleScript’s text item delimiters to i –10.4ではデリミタをリストで指定できないので１つずつ指定
　　　　　　set aList to text items of aStr
　　　　　　set AppleScript’s text item delimiters to curDelim
　　　　　　
　　　　　　set the end of resList to item 1 of aList
　　　　　　
　　　　　　try
　　　　　　　　set aStr to contents of (item 2 of aList) –ここ、あんまりよくないな〜。実害はないけど、美しくない
　　　　　　end try
　　　　　　
　　　　end repeat
　　　　
　　　　return resList
　　end if
　　
end retMonthStrAndDateStr

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

on parseNumKanji(aStr)
　　set nFlag to false
　　set aList to characters of aStr
　　set nList to {}
　　
　　set aFirst to contents of first item of aList
　　set aList to rest of aList
　　set nFlag to detectOutNumChar(aFirst) of me
　　
　　set aStack to aFirst
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　set aRes to detectOutNumChar(j) of me
　　　　
　　　　if not aRes = nFlag then
　　　　　　set the end of nList to aStack
　　　　　　set aStack to j
　　　　　　set nFlag to not nFlag
　　　　else
　　　　　　set aStack to aStack & j
　　　　end if
　　end repeat
　　
　　if aStack is not equal to "" then
　　　　set the end of nList to aStack
　　end if
　　
　　return nList
end parseNumKanji

–数字範囲外の文字があるかどうかをテストする
–数字の文字以外のものが入っていたらfalse
on detectOutNumChar(testText)
　　–ANK文字列（大文字小文字は問わない）
　　set ankChar to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "."}
　　
　　set _testChar to testText as Unicode text
　　
　　ignoring case
　　　　repeat with i in _testChar
　　　　　　set j to contents of i
　　　　　　if j is not in ankChar then
　　　　　　　　return false
　　　　　　end if
　　　　end repeat
　　end ignoring
　　
　　return true
end detectOutNumChar

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aRes to convHiraganaToKatakana(aHiraganaStr) of me
–> “漢字トヒラガナデゴザル”

on convHiraganaToKatakana(anUnicodeText)
　　set hList to characters of anUnicodeText
　　
　　set newText to “”
　　repeat with i in hList
　　　　set anID to id of i
　　　　if checkHiragana(anID) of me then
　　　　　　set b to string id (anID + 96)
　　　　else
　　　　　　set b to i as Unicode text
　　　　end if
　　　　set newText to newText & b
　　end repeat
end convHiraganaToKatakana

–string idを渡すとひらがなチェックを行う
on checkHiragana(anID)
　　return (anID > 12352 and anID < 12448)
end checkHiragana

–string idを渡すとカタカナチェックを行う
on checkKatakana(anID)
　　return (anID > 12448 and anID < 12544)
end checkKatakana

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aStr to "\"&#31532;2&#12456;&#12450;\"" –英数字などが混在しているパターンの文字列
set bStr to trimStrFromTo(aStr, "\"", "\"") of me
set cRes to decodeCharacterReference(bStr) of me
–> "第2エア"

–実体参照している文字列をデコードする
on decodeCharacterReference(aStr)
　　set aList to parseByDelim(aStr, ";") of me
　　
　　set newStr to ""
　　
　　repeat with i in aList
　　　　set j to i as string
　　　　if j contains "&#" then
　　　　　　set aPos to offset of "&#" in j
　　　　　　set preChar to ""
　　　　　　if aPos is not equal to 1 then
　　　　　　　　set preChar to text 1 thru (aPos - 1) of j
　　　　　　　　set jj to text (aPos + 2) thru -1 of j
　　　　　　else
　　　　　　　　set jj to j
　　　　　　　　
　　　　　　end if
　　　　　　
　　　　　　set bStr to repChar(jj, "&#", "") of me
　　　　　　set cStr to string id (bStr as number)
　　　　else
　　　　　　set cStr to j
　　　　　　set preChar to ""
　　　　end if
　　　　set newStr to newStr & preChar & cStr
　　end repeat
　　
　　if newStr contains "&" then
　　　　set newStr to repChar(newStr, "&amp", "&") of me
　　　　set newStr to repChar(newStr, "&lt", "<") of me
　　　　set newStr to repChar(newStr, "&gt", ">") of me
　　　　set newStr to repChar(newStr, "&quot", "\"") of me
　　end if
　　
　　return newStr
end decodeCharacterReference

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

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

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

"
set aRes to retStartWithBlankAndEndsWithBlank(aStr) of me
–> {"", "09:30〜12:00 　　　　ひよこ手帳　　資料作成", "13:00〜14:30　　　　ひよこインク　　資料作成", "15:00〜17:00　　　　世界征服計画発表会　　", "17:00〜18:45　　　　ひよこインク　　資料作成", ""}

–改行のみで囲まれた行をリストで取り出す
on retStartWithBlankAndEndsWithBlank(aStr)
　　set mList to paragraphs of aStr
　　set wList to {}
　　
　　set trimF to false
　　set tStart to 0
　　set tEnd to 0
　　set tCounter to 1
　　
　　repeat with i in mList
　　　　set j to contents of i
　　　　set jLen to length of j
　　　　if trimF = false then
　　　　　　if jLen = 0 then
　　　　　　　　set tStart to tCounter
　　　　　　　　set trimF to true
　　　　　　end if
　　　　else
　　　　　　if jLen = 0 then
　　　　　　　　set tEnd to tCounter
　　　　　　　　exit repeat
　　　　　　end if
　　　　end if
　　　　
　　　　set tCounter to tCounter + 1
　　end repeat
　　
　　set rData to items tStart thru tEnd of mList
　　return rData
　　
end retStartWithBlankAndEndsWithBlank

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set a to "ひよこさんの募集は終了しました"
set b to retAfterRuledLineCharacter(a, "…") of me
b
–> "ひよこさんの募集は終了しました"

–リーダー罫文字のあとの文字を取得する
on retAfterRuledLineCharacter(a, aRulerLineChar)
　　if a does not contain aRulerLineChar then
　　　　return a
　　end if
　　
　　set cList to characters of a
　　set aLen to length of a
　　
　　set rList to reverse of cList
　　set rText to rList as string
　　set rOffset to offset of aRulerLineChar in rText
　　
　　set resText to text (aLen - rOffset + 2) thru -1 of a
　　
　　return resText
end retAfterRuledLineCharacter

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aList to characters of a

set aResList to {}

set inF to false –アイテムへの取り込みフラグ：初期値＝false（取り込まない）
set oneItem to ""

repeat with i in aList
　　set j to contents of i
　　set aF to detectOutNumChar(j) of me –aF：現在のキャラクタがNumericかどうかの判定フラグ
　　
　　if aF = true and inF = false then
　　　　set inF to true
　　　　set oneItem to oneItem & j
　　　　
　　else if aF = true and inF = true then
　　　　set oneItem to oneItem & j
　　　　
　　else if aF = false and inF = true then
　　　　set the end of aResList to oneItem
　　　　set oneItem to ""
　　　　set inF to false
　　　　
　　else if aF = false and inF = false then
　　　　–なにもしない
　　　　
　　end if
end repeat

if oneItem is not equal to "" then
　　set the end of aResList to oneItem
end if

aResList
–> {"100", "12", "88"}

–数字範囲外の文字があるかどうかをテストする
–数字の文字以外のものが入っていたらfalse
on detectOutNumChar(testText)
　　–ANK文字列（大文字小文字は問わない）
　　set ankChar to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "."}
　　
　　set _testChar to testText as Unicode text
　　
　　ignoring case
　　　　repeat with i in _testChar
　　　　　　set j to contents of i
　　　　　　if j is not in ankChar then
　　　　　　　　return false
　　　　　　end if
　　　　end repeat
　　end ignoring
　　
　　return true
end detectOutNumChar

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “Finder”
　　set aName to name of aFol
end tell

set anID to id of first character of aName

–「ふつうのFolder」を選択した場合
–> 12405

–「だくてんテスト」を選択した場合
–> {12383, 12441}–> 「た」＋濁点

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に