| AppleScript名：指定言語のスペルチェックを行い、候補文を返す |
| — Created 2015-12-18 by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "AppKit" set aText to "This is a penz." set spRes to spellCheckingInSpecifiedLanguage(aText, "English") of me –> {missed:"penz", suggestionList:{"This Is A Pens", "This Is A Pend", "This Is A Penh", "This Is A Penn", "This Is A Pent", "This is a pen"}} set aText to "Applele" set spRes to spellCheckingInSpecifiedLanguage(aText, "English") of me –> {missed:"Applele", suggestionList:{"Apple", "Apples", "Appeal", "Appalled", "Appellate"}} set aText to "Applele" set spRes to spellCheckingInSpecifiedLanguage(aText, "French") of me –> {missed:"Applele", suggestionList:{"Appelle", "Appelée", "Appelles"}} set spRes to spellCheckingInSpecifiedLanguage(aText, "fr") of me –> {missed:"Applele", suggestionList:{"Appelle", "Appelée", "Appelles"}} on spellCheckingInSpecifiedLanguage(aText, aLang) set aStr to current application’s NSString’s stringWithString:aText set aChecker to current application’s NSSpellChecker’s sharedSpellChecker() aChecker’s setLanguage:aLang set aMisspelledRange to aChecker’s checkSpellingOfString:aStr startingAt:0 if aMisspelledRange’s |length|() = 0 then return missing value –Get Misspelled String set aMisString to (aStr’s substringWithRange:aMisspelledRange) as text –Get Suggestion set aSugList to (aChecker’s guessesForWord:aStr) as list –> {"This Is A Pens", "This Is A Pend", "This Is A Penh", "This Is A Penn", "This Is A Pent", "This is a pen"} return {missed:aMisString, suggestionList:aSugList} end spellCheckingInSpecifiedLanguage |
タグ: Spell check
英文のスペルチェックを行い、候補文を返す
| AppleScript名：英文のスペルチェックを行い、候補文を返す |
| — Created 2015-12-18 by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "AppKit" set aText to "This is a penz." set spRes to spellChecking(aText) of me –> {missed:"penz", suggestionList:{"This Is A Pens", "This Is A Pend", "This Is A Penh", "This Is A Penn", "This Is A Pent", "This is a pen"}} set aText to "AppleScript" set spRes to spellChecking(aText) of me –> missing value set aText to "Applele" set spRes to spellChecking(aText) of me –> {missed:"Applele", suggestionList:{"Apple", "Apples", "Appeal", "Appalled", "Appellate"}} on spellChecking(aText) set aStr to current application’s NSString’s stringWithString:aText set aChecker to current application’s NSSpellChecker’s sharedSpellChecker() set aMisspelledRange to aChecker’s checkSpellingOfString:aStr startingAt:0 if aMisspelledRange’s |length|() = 0 then return missing value –Get Misspelled String set aMisString to (aStr’s substringWithRange:aMisspelledRange) as text –Get Suggestion set aSugList to (aChecker’s guessesForWord:aStr) as list –> {"This Is A Pens", "This Is A Pend", "This Is A Penh", "This Is A Penn", "This Is A Pent", "This is a pen"} return {missed:aMisString, suggestionList:aSugList} end spellChecking |
NSSpellCheckerでスペルチェック可能な言語の一覧リストを取得_v2
| AppleScript名：NSSpellCheckerでスペルチェック可能な言語の一覧リストを取得_v2 |
| — Created 2015-12-18 by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" set aChecker to current application’s NSSpellChecker’s sharedSpellChecker() set langList to (aChecker’s availableLanguages()) as list –> {"en", "en_GB", "en_AU", "en_CA", "en_IN", "en_SG", "fr", "da", "de", "es", "it", "nl", "nb", "pl", "pt_BR", "pt_PT", "fi", "sv", "tr", "ru", "ko"} set langNameList to {} repeat with i in langList set j to contents of i –set aLocale to (current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:j) set aLocale to current application’s NSLocale’s currentLocale() set aLocName to (aLocale’s displayNameForKey:(current application’s NSLocaleIdentifier) value:j) set cntLocs to (aLocale’s displayNameForKey:(current application’s NSLocaleLanguageCode) value:j) set cntName to getCountryNameFromLanguageCode(j) of me set the end of langNameList to {aLocName as string, cntName as text, cntLocs as text} end repeat return langNameList –> {{"英語", "アメリカ合衆国", "英語"}, {"英語 (イギリス)", "イギリス", "英語"}, {"英語 (オーストラリア)", "オーストラリア", "英語"}, {"英語 (カナダ)", "カナダ", "英語"}, {"英語 (インド)", "インド", "英語"}, {"英語 (シンガポール)", "シンガポール", "英語"}, {"フランス語", "フランス", "フランス語"}, {"デンマーク語", "デンマーク", "デンマーク語"}, {"ドイツ語", "ドイツ", "ドイツ語"}, {"スペイン語", "スペイン", "スペイン語"}, {"イタリア語", "イタリア", "イタリア語"}, {"オランダ語", "オランダ", "オランダ語"}, {"ノルウェー語(ブークモール)", "ノルウェー", "ノルウェー語(ブークモール)"}, {"ポーランド語", "ポーランド", "ポーランド語"}, {"ポルトガル語 (ブラジル)", "ブラジル", "ポルトガル語"}, {"ポルトガル語 (ポルトガル)", "ポルトガル", "ポルトガル語"}, {"フィンランド語", "フィンランド", "フィンランド語"}, {"スウェーデン語", "スウェーデン", "スウェーデン語"}, {"トルコ語", "トルコ", "トルコ語"}, {"ロシア語", "ロシア", "ロシア語"}, {"韓国語", "大韓民国", "韓国語"}} on getCountryNameFromLanguageCode(aCode) –http://www.benricho.org/translate/countrycode.html if aCode is equal to "en" then set aCode to aCode & "_US" else if aCode is equal to "fr" then set aCode to aCode & "_FR" else if aCode is equal to "da" then set aCode to aCode & "_DK" else if aCode is equal to "de" then set aCode to aCode & "_DE" else if aCode is equal to "es" then set aCode to aCode & "_ES" else if aCode is equal to "it" then set aCode to aCode & "_IT" else if aCode is equal to "nl" then set aCode to aCode & "_NL" else if aCode is equal to "nb" then set aCode to aCode & "_NO" else if aCode is equal to "pl" then set aCode to aCode & "_PL" else if aCode is equal to "fi" then set aCode to aCode & "_FI" else if aCode is equal to "sv" then set aCode to aCode & "_SE" else if aCode is equal to "tr" then set aCode to aCode & "_TR" else if aCode is equal to "ru" then set aCode to aCode & "_RU" else if aCode is equal to "ko" then set aCode to aCode & "_KR" else if aCode is equal to "ja" then set aCode to aCode & "_JP" end if set aLocale to current application’s NSLocale’s currentLocale() set aLoc to (current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:aCode) set aLocCode to aLoc’s objectForKey:(current application’s NSLocaleCountryCode) set aLocName to aLocale’s displayNameForKey:(current application’s NSLocaleCountryCode) value:aLocCode return aLocName end getCountryNameFromLanguageCode |