如何将十六进制字符串转换为R中的文本？

Posted 2023-02-23

【中文标题】如何将十六进制字符串转换为R中的文本？

【英文标题】：How to convert a hex string to text in R?

【发布时间】：2015-05-28 21:41:11

【问题描述】：

是否有一个函数可以将十六进制字符串转换为 R 中的文本？

例如：

我有十六进制字符串1271763355662E324375203137，应该转换为qv3Uf.2Cu 17。

有人知道 R 中有一个好的解决方案吗？

【参考方案1】：

这是一种方法：

s <- '1271763355662E324375203137'
h <- sapply(seq(1, nchar(s), by=2), function(x) substr(s, x, x+1))
rawToChar(as.raw(strtoi(h, 16L)))

## [1] "\022qv3Uf.2Cu 17"

如果你愿意，你可以sub输出不可打印的字符，如下所示：

gsub('[^[:print:]]+', '', rawToChar(as.raw(strtoi(h, 16L))))

## [1] "qv3Uf.2Cu 17"

【参考方案2】：

只是为了添加到@jbaums 答案或简化它

library(wkb)

hex_string <- '231458716E234987'

hex_raw <- wkb::hex2raw(hex_string)

text <- rawToChar(as.raw(strtoi(hex_raw, 16L)))