要么批量转码（字符集）整个图像文件名列表...要么使用主 Tex 文件中的字符编码转换功能？

Question

在这两个选项中，更好的解决方案可能是重命名所有文件（例如重命名B0AA.png为高.png），假设您处理这些文件的所有工具都能够处理此类文件名，并且假设您可以轻松地阅读和区分这些文件名。但 TeX 不是此类文件系统操作的好工具。

另一种选择在 TeX 中是可行的：当您在 TeX 中指定文件名时，您可以将每个字符转换为其 Big5 编码，从而解决问题。这种编程即使在 TeX 宏中也是可行的，但是当您使用 LuaTeX 时，它会变得容易得多。

Lua 本身不理解 Unicode；UTF-8 编码的字节字符串对 Lua 来说只是一个字节字符串。但这不是问题；下面我用 Lua 编写了一个简单的 UTF-8 解码器。

以下 Lua 和 TeX 文件定义了一个宏\bigfive，您可以键入它\bigfive{高}，它将扩展（等效于）B0AA为该字符的 Big5 编码。Lua 代码可以放在文件中.tex，但我更喜欢将其放在一个单独的文件中big5.lua（例如）：

function ucsFromChar(s)
   -- UTF-8 decoder. Given a valid UTF-8-encoded character s, returns the number (codepoint) it encodes.
   -- A stricter version is at https://gist.github.com/shreevatsa/6aef61aafd4ccfe2149ddacdc5c5855d
   local n = string.byte(s, 1)
   if n < 128 then return n end -- Starts with a 0
   if n < 224 then              -- Starts with 110, so get remaining 5 bits, then 6 bits from next byte
      return (n - 192) * 64 + string.byte(s, 2) - 128
   elseif n < 240 then          -- Starts with 1110, so get remaining 4 bits, then 6 bits each from next 2 bytes
      return ((n - 224) * 64 + string.byte(s, 2) - 128) * 64 + string.byte(s, 3) - 128
   else                         -- Starts with 11110, so get remaining 3 bits, then 6 bits each from next 3 bytes
      return (((n - 240) * 64 + string.byte(s, 2) - 128) * 64 + string.byte(s, 3) - 128) * 64 + string.byte(s, 4) - 128
   end
end

map = nil  -- Populated and used by getMap() below.
function getMap()
   -- Returns map from a file containing a space-separated key-value pair per line.
   if map ~= nil then return map end
   map = {}
   for line in io.open('map.txt', 'r'):lines() do
      local key = nil
      for s in string.gmatch(line, "%S+") do
         if key ~= nil then map[key] = s else key = s end
      end
   end
   return map
end

function big5FromChar(s)
   local u = string.upper(string.format('U+%x', ucsFromChar(s)))
   -- return getMap()[u]
   local v = getMap()[u]
   if v ~= nil then return v else return s end
end

这假设（如问题所述）您有一个map.txt包含如下行的文件：

U+9AD8  B0AA
U+4E00  A440
U+751F  A5CD

这样，.tex文件就可以只是：

\documentclass{article}
\usepackage{fontspec}
\setmainfont{AppleGothic}

\directlua{dofile('big5.lua')}
\newcommand{\bigfive}[1]{\directlua{tex.sprint(big5FromChar('#1'))}}

\begin{document}
Anywhere in my document I can use the \verb+\bigfive+ macro.

For example, 高 is \bigfive{高} in big5.
\end{document}

上述代码生成：

Answer 1