–イコールかどうか？
if a is equal to b then
　　display dialog “Equal”
else
　　display dialog “Not Equal”
end if

–前方一致
if a begins with b then
　　display dialog “begins with”
else
　　display dialog “Not begins with”
end if

–後方一致
if a ends with b then
　　display dialog “ends with”
else
　　display dialog “Not ends with”
end if

–部分一致
if a contains b then
　　display dialog “contains”
else
　　display dialog “not contains”
end if

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

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

set bRes to parseInfopdfData(aRes) of me

on parseInfopdfData(aRes)
　　set aList to paragraphs of aRes
　　set aRec to {|aTitle|:”", |aSubject|:”", |anAuthor|:”", |aCreator|:”", |aProducer|:”", |aCreationDate|:”", |aModDate|:”", |aTagged|:”", |aPages|:”", |anEncrypted|:”", |aPageSize|:”", |aFilesize|:”", |anOptimized|:”", |aPDFver|:”"}
　　repeat with i in aList
　　　　set j to contents of i
　　　　–先にデータのみにしておいて…
　　　　set bRes to fetchDataAfterColon(j) of me
　　　　–レコードの中身を指定する
　　　　if j begins with “Title:“ then
　　　　　　set |aTitle| of aRec to bRes
　　　　else if j begins with “Subject:“ then
　　　　　　set |aSubject| of aRec to bRes
　　　　else if j begins with “Author:“ then
　　　　　　set |anAuthor| of aRec to bRes
　　　　else if j begins with “Creator:“ then
　　　　　　set |aCreator| of aRec to bRes
　　　　else if j begins with “Producer:“ then
　　　　　　set |aProducer| of aRec to bRes
　　　　else if j begins with “CreationDate:“ then
　　　　　　set |aCreationDate| of aRec to bRes
　　　　else if j begins with “ModDate:“ then
　　　　　　set |aModDate| of aRec to bRes
　　　　else if j begins with “Tagged:“ then
　　　　　　set |aTagged| of aRec to bRes
　　　　else if j begins with “Pages:“ then
　　　　　　set |aPages| of aRec to bRes
　　　　else if j begins with “Encrypted:“ then
　　　　　　set |anEncrypted| of aRec to bRes
　　　　else if j begins with “Page size:“ then
　　　　　　set |aPageSize| of aRec to changePTStoMM(bRes) of me
　　　　else if j begins with “File size:“ then
　　　　　　set |aFilesize| of aRec to bRes
　　　　else if j begins with “Optimized:“ then
　　　　　　set |anOptimized| of aRec to bRes
　　　　else if j begins with “PDF version:“ then
　　　　　　set |aPDFver| of aRec to bRes
　　　　end if
　　end repeat
　　return aRec
end parseInfopdfData

–コロンの次の文字からスペースではない文字をスキップして残りの文字を返す
on fetchDataAfterColon(aData)
　　set cList to characters of aData
　　set sPos to offset of “:“ in aData
　　set sPos to sPos + 1
　　repeat with i from sPos to (length of cList)
　　　　if contents of item i of cList is not equal to “ “ then
　　　　　　set aRes to (items i thru -1 of cList) as string
　　　　　　return aRes
　　　　end if
　　end repeat
　　return “”
end fetchDataAfterColon

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

–ポイント数値のテキストをmmに書き換える
on changePTStoMM(aText)
　　set wList to words of aText
　　
　　set attrList to {}
　　repeat with i in wList
　　　　set the end of attrList to numChk(i) of me
　　end repeat
　　
　　set aCount to count wList
　　
　　set aReText to {}
　　repeat with i from 1 to (aCount - 1)
　　　　set anItem to item i of wList
　　　　set anAttr to item i of attrList
　　　　if anAttr = true then
　　　　　　set the end of aReText to (point2mm(anItem as number) of me) as string
　　　　else
　　　　　　set the end of aReText to anItem
　　　　end if
　　end repeat
　　–set the end of aReText to “mm”
　　set last item of aReText to “mm“
　　
　　set aText to makeStrFromListWithDelim(” “, aReText) of me
　　return aText
　　
end changePTStoMM

–リストを任意のデリミタ付きでテキストに
on makeStrFromListWithDelim(aDelim, aList)
　　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 makeStrFromListWithDelim

–ポイントからmmへの変換
on point2mm(a)
　　return (a * 0.353) –１ポイント＝0.353mm
end point2mm

–数値かどうか調べる
on numChk(aNum)
　　set aClass to (class of aNum) as string
　　if aClass = “number“ or aClass = “double“ or aClass = “integer“ or aClass = “real“ then
　　　　return true
　　else if aClass = “string“ or aClass = “text“ or aClass = “unicode text“ then
　　　　try
　　　　　　set bNum to aNum as number
　　　　　　return true
　　　　on error
　　　　　　return false
　　　　end try
　　end if
end numChk

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

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

–テキストで与えられたパスデータから、最終階層のテキストのみを返す
on getLastLayerOfDirData(aData)
　　set aColon to “:” as Unicode text
　　copy aData to bData
　　if bData ends with “:” then
　　　　set bData to text 1 thru -2 of bData
　　end if
　　
　　set aLen to length of bData
　　set rData to reverse of (characters of bData)
　　set rData to rData as string
　　set dPos to offset of aColon in rData
　　set resData to text (aLen - dPos + 2) thru -1 of bData
　　return resData
　　
end getLastLayerOfDirData

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