将小写字符转换为大写的脚本与服务操作的工作方式不同

Question

我正在尝试一个简单的脚本作为自动化程序中执行此功能的服务操作：

在任何应用程序中接收选定的文本并替换选定的文本 文本包含大写字母

所以我使用了这个脚本：

on run {input, parameters}

set upperCaseString to ""
repeat with i in input
    if (ASCII number i) > 96 and (ASCII number i) < 123 then
        set upperCaseString to upperCaseString & (ASCII character ((ASCII number i) - 32))
    else
        set upperCaseString to upperCaseString & (ASCII character (ASCII number i))
    end if
end repeat

return upperCaseString
end run

但我发现了这个问题：

它返回输入的第一个字母作为大写字母，例如。 输入 - 小写文本，输出 - L，而预期输出为 - 小写字母文本。

为了检查问题，我在重复循环中添加了这行代码：

display dialog i

并发现它一次显示完整的文本而不是单个字符，即。它不是以小写文本显示 l.. o.. w..，而是立即显示小写文本。

谁能告诉我为什么它在 Apple 脚本编辑器中工作正常时却以服务操作的形式困扰我？

Answer 1

这适用于很多语言：

on toUpper(s)
tell AppleScript to return do shell script "shopt -u xpg_echo; export LANG='" & user locale of (system info) & ".UTF-8'; echo " & quoted form of s & " | tr [:lower:] [:upper:]"
end toUpper

on toLower(s)
tell AppleScript to return do shell script "shopt -u xpg_echo; export LANG='" & user locale of (system info) & ".UTF-8'; echo " & quoted form of s & " | tr [:upper:] [:lower:]"
end toLower

Answer 2

当我运行你的脚本时，我得到了正确的结果。但您可能想做的一件事是将结果显式强制为文本。最简单的方法是在最后：

return upperCaseString as text

这可能会或可能不会为您做这件事，但如果您在可能存在歧义时明确强制数据，您将避免很多挫败感。

另一种（更快）的方法是利用 Unix tr (translate) 命令 via do shell script：

set upperCaseString to ¬
  (do shell script ("echo " & input & " | tr a-z A-Z;"))

这对于“英语”语言来说已经足够了，但您也可以添加变音翻译，例如

set upperCaseString to ¬
  (do shell script ("echo " & input & " | tr a-zäáà A-ZÄÁÀ;"))

tr会将任何内容翻译为任何内容，因此您可以添加您可能遇到的任何字符以及您想要的内容希望他们能翻译成。我想到了“利特语”翻译。

Answer 3

如果输入变量设置为列表，您将在 AppleScript 编辑器中获得相同的结果。 Automator 操作的输入参数也是一个列表，因此您的比较并没有按照您的想法进行。请注意，文本 ID 已废弃ASCII 字符 和 ASCII 数字 命令 - 请参阅 10.5 AppleScript 发行说明。

Answer 4

@Matt Strange：

您也可以尝试：

set upperCaseString to ¬
  do shell script "echo " & input & " | tr [:lower:] [:upper:]"

如果您在“OS X 10.10”上运行“man tr”，您可能会看到应该使用字符类 [:lower:] 和 [:upper:]，而不是像 ' 这样的显式字符范围。 az' 或 'AZ'，因为它们可能不会产生正确的结果，正如手册页上所解释的那样。