use AppleScript
use scripting additions
use framework "Foundation"

set targString to " " & string id 8212 & " " –コピペやURL Events経由で受け渡すと壊れる

tell application "Xcode"
　　set xcVer to version
　　
　　—オープン中のファイル名（余計な文字列つき）を取得
　　tell window 1
　　　　set aStr to name
　　end tell
　　
　　–Xcode Project書類のパスを取得
　　tell document 1
　　　　set aPrjPath to path of it
　　end tell
end tell

set a1Str to parseFileNameFromXCodeWindowName(aStr, targString) of me
if a1Str does not end with ".applescript" then return

set pathString to current application’s NSString’s stringWithString:(aPrjPath)
set parentFol to (pathString’s stringByDeletingLastPathComponent()) as string

set aList to retFullPathUnderAFolderWithRecursiveFilterByFileName(parentFol, a1Str) of me
if length of aList > 1 then
　　set aRes to first item of (choose from list aList)
else
　　set aRes to first item of aList
end if

return aRes
–> "/Users/me/Documents/testXC162/testXC162/AppDelegate.applescript"

on parseFileNameFromXCodeWindowName(aStr, aDelim)
　　set aCount to retFrequency(aStr, aDelim) of me
　　set aRes to parseByDelim(aStr, aDelim) of me
　　return item 2 of aRes
end parseFileNameFromXCodeWindowName

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

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 retFullPathUnderAFolderWithRecursiveFilterByFileName(aFol, aFileName)
　　set anArray to current application’s NSMutableArray’s array()
　　set aPath to current application’s NSString’s stringWithString:aFol
　　set dirEnum to current application’s NSFileManager’s defaultManager()’s enumeratorAtPath:aPath
　　
　　repeat
　　　　set aName to (dirEnum’s nextObject())
　　　　if aName = missing value then exit repeat
　　　　set aFullPath to aPath’s stringByAppendingPathComponent:aName
　　　　anArray’s addObject:aFullPath
　　end repeat
　　
　　set thePred to current application’s NSPredicate’s predicateWithFormat_("lastPathComponent == %@", aFileName)
　　set bArray to anArray’s filteredArrayUsingPredicate:thePred
　　
　　return bArray as list
end retFullPathUnderAFolderWithRecursiveFilterByFileName