6

我有一个损坏的文件，其中 Windows 特殊字符已被其 UTF-8“等效字符”替换。我尝试编写一个能够根据此表替换特殊字符的函数：

utf2win <- function(x){
soll <- c("À", "Á", "Â", "Ã", "Ä", "Å", "Æ", "Ç", "È", "É", "Ê", "Ë", 
  "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "×", "Ø", 
  "Ù", "Ú", "Û", "Ü", "Ý", "Þ", "ß", "à", "á", "â", "ã", "ä", "å", 
  "æ", "ç", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", 
  "ó", "ô", "õ", "ö", "÷", "ø", "ù", "ú", "û", "ü", "ý", "þ", "ÿ"
)

ist <- c("À", "Ã", "Â", "Ã", "Ä", "Ã…", "Æ", "Ç", "È", "É", 
  "Ê", "Ë", "ÃŒ", "Ã", "ÃŽ", "Ã", "Ã", "Ñ", "Ã’", "Ó", "Ô", 
  "Õ", "Ö", "×", "Ø", "Ù", "Ú", "Û", "Ãœ", "Ã", "Þ", "ß", 
  "Ã", "á", "â", "ã", "ä", "Ã¥", "æ", "ç", "è", "é", "ê", 
  "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ", 
  "ö", "÷", "ø", "ù", "ú", "û", "ü", "ý", "þ", "ÿ")


     for(i in 1: length(ist)){
          x <- gsub(ist[i], soll[i], x)
     }
  return(x)
}

现在进行测试

a <- "Geidorf: Grabengürtel"

utf2win(a)

什么也没有发生……我想问题是字符“Ô没有被正确识别。你有解决我的问题的方法吗？

4

1 回答 1

6

这是一个编码问题。您也许可以修复它，但没有文件就很难知道。 readBin如果您不能强制进行正确的编码，这是一个不错的选择。以下是我发现的摘要：

我尝试iconv了示例字符串

iconv(a, "UTF-8", "WINDOWS-1252")
#[1] "Geidorf: Grabengürtel"

它有效，但你说得对，“Ô出了点问题

iconv("Geidorf: Grabengürtel Ã", "UTF-8", "WINDOWS-1252")
#[1] NA

我们可以看到哪些字母有问题：

ist[is.na(iconv(ist, "UTF-8", "WINDOWS-1252"))]
[1] "Ã" "Ã" "Ã" "Ã" "Ã" "Ã"

# corresponding characters
paste(soll[is.na(iconv(ist, "UTF-8", "WINDOWS-1252"))])
[1] "Á" "Í" "Ï" "Ð" "Ý" "à"

您链接到的网站有一个相关页面，其中说明了问题所在：

编码问题：双重错误转换

症状

通过这种特殊的双重转换，大多数字符都能正确显示。只有第二个 UTF-8 字节为 0x81、0x8D、0x8F、0x90、0x9D 的字符会失败。在 Windows-1252 中，以下带有 Unicode 代码点的字符：U+00C1、U+00CD、U+00CF、U+00D0 和 U+00DD 将显示问题。如果您查看I18nQA 编码调试表 ，您可以看到 UTF-8 中的这些字符的第二个字节以未分配的 Windows 代码点之一结尾。

Í Ï Ý

“à”是另一种情况。当它应该是“Ã\u00A0”或“Ã\xA0”或“Ô时，您已将其映射到“Ô（请注意，该空间不是普通空间；它是一个不间断的空间）。因此，修复它ist需要处理一封信。

至于其他字符（“Á”、“Í”、“Ï”、“Д和“Ý”），照原样，它们都映射到“Ô中ist，你永远无法做到只要这是真的，就可以进行适当的替换。

于 2016-01-08T16:25:18.010 回答