MS Access中乌兹别克拉丁字符转西里尔字符失败求助

原代码的核心问题 #

1. 无法处理多字符组合：原代码逐个字符遍历，无法识别Sh、G'、O'这类由多个字符组成的拉丁拼写
2. 字符匹配顺序错误：未优先处理长字符组合，会导致Sh被拆分为S+h单独转换
3. 编码兼容性问题：直接使用的特殊引号（如‘）可能与API返回的'（直单引号）不匹配，导致映射失效

修复后的VBA转换函数 #

Function TranslateLatinToCyrillic(inputText As String) As String
    Dim LatinToCyrillic As Object
    Dim key As Variant
    Dim tempText As String
    
    ' 创建字典并设置为不区分大小写（根据需求调整）
    Set LatinToCyrillic = CreateObject("Scripting.Dictionary")
    LatinToCyrillic.CompareMode = vbTextCompare ' 可选，若需大小写不敏感转换
    
    ' 先添加多字符组合映射（必须放在单字符前面）
    LatinToCyrillic.Add "Sh", "Ш"
    LatinToCyrillic.Add "sh", "ш"
    LatinToCyrillic.Add "G'", "Ғ"
    LatinToCyrillic.Add "g'", "ғ"
    LatinToCyrillic.Add "O'", "Ў"
    LatinToCyrillic.Add "o'", "ў"
    
    ' 添加单字符映射
    LatinToCyrillic.Add "A", "А"
    LatinToCyrillic.Add "a", "а"
    LatinToCyrillic.Add "B", "Б"
    LatinToCyrillic.Add "b", "б"
    LatinToCyrillic.Add "C", "С"
    LatinToCyrillic.Add "c", "с"
    LatinToCyrillic.Add "D", "Д"
    LatinToCyrillic.Add "d", "д"
    LatinToCyrillic.Add "E", "Э"
    LatinToCyrillic.Add "e", "э"
    LatinToCyrillic.Add "F", "Ф"
    LatinToCyrillic.Add "f", "ф"
    LatinToCyrillic.Add "G", "Г"
    LatinToCyrillic.Add "g", "г"
    LatinToCyrillic.Add "H", "Ҳ"
    LatinToCyrillic.Add "h", "ҳ"
    LatinToCyrillic.Add "I", "И"
    LatinToCyrillic.Add "i", "и"
    LatinToCyrillic.Add "J", "Ж"
    LatinToCyrillic.Add "j", "ж"
    LatinToCyrillic.Add "K", "К"
    LatinToCyrillic.Add "k", "к"
    LatinToCyrillic.Add "L", "Л"
    LatinToCyrillic.Add "l", "л"
    LatinToCyrillic.Add "M", "М"
    LatinToCyrillic.Add "m", "м"
    LatinToCyrillic.Add "N", "Н"
    LatinToCyrillic.Add "n", "н"
    LatinToCyrillic.Add "O", "О"
    LatinToCyrillic.Add "o", "о"
    LatinToCyrillic.Add "P", "П"
    LatinToCyrillic.Add "p", "п"
    LatinToCyrillic.Add "Q", "Қ"
    LatinToCyrillic.Add "q", "қ"
    LatinToCyrillic.Add "R", "Р"
    LatinToCyrillic.Add "r", "р"
    LatinToCyrillic.Add "S", "С"
    LatinToCyrillic.Add "s", "с"
    LatinToCyrillic.Add "T", "Т"
    LatinToCyrillic.Add "t", "т"
    LatinToCyrillic.Add "U", "Ю"
    LatinToCyrillic.Add "u", "ю"
    LatinToCyrillic.Add "V", "В"
    LatinToCyrillic.Add "v", "в"
    LatinToCyrillic.Add "X", "Х"
    LatinToCyrillic.Add "x", "х"
    LatinToCyrillic.Add "Y", "Е"
    LatinToCyrillic.Add "y", "е"
    
    tempText = inputText
    
    ' 遍历字典替换：先处理长字符，再处理单字符
    For Each key In LatinToCyrillic.Keys
        tempText = Replace(tempText, key, LatinToCyrillic(key), 1, -1, vbTextCompare)
    Next key
    
    TranslateLatinToCyrillic = tempText
End Function

关键修复说明 #

1. 优先处理多字符组合：将Sh、G'等多字符映射放在单字符前面，避免被拆分转换
2. 统一引号匹配：使用API返回的标准直单引号'而非弯引号‘，确保字符匹配准确
3. 添加大小写对应映射：覆盖大小写两种情况，避免遗漏小写字符的转换
4. 使用Replace批量替换：替代逐个字符遍历的方式，更高效且能正确识别多字符组合

字段显示正确的注意事项 #

1. 字段类型设置：确保存储转换后内容的字段为**长文本（Long Text）**类型，短文本（Short Text）可能存在Unicode字符截断问题
2. 数据库编码：Access 2016及以上版本默认支持Unicode，若使用旧版本，需确保数据库以.accdb格式保存（.mdb格式对Unicode支持有限）
3. 字体支持：Access表单/报表中需使用支持乌兹别克西里尔字符的字体，如Arial Unicode MS、Times New Roman或乌兹别克本地字体，避免字符显示为方框（□）

内容的提问来源于stack exchange，提问作者Muxamedov Rahimjon