R语言实现十六进制数按指定进制格式化转换的技术需求

针对需求，我们需要替换原代码中的硬编码逻辑，实现通用的8位十六进制字符串转换功能，完善后的函数如下：

Convert <- function(addr, base) {
    # 确保输入的addr是字符串类型
    addr <- as.character(addr)
    # 按每两位拆分十六进制字符串
    hex_groups <- substring(addr, seq(1, nchar(addr), 2), seq(2, nchar(addr), 2))
    
    if (base == 16) {
        # 直接用点连接十六进制分组
        result <- paste(hex_groups, collapse = ".")
    } else if (base == 10) {
        # 将每个十六进制分组转为十进制，再用点连接
        dec_values <- sapply(hex_groups, function(x) as.integer(as.hexmode(x)))
        result <- paste(dec_values, collapse = ".")
    } else {
        # 处理非法进制输入
        stop("仅支持目标进制为16或10")
    }
    
    return(result)
}

# 调用示例
Convert("C0290614", 16)  # 输出 "C0.29.06.14"
Convert("C0290614", 10)  # 输出 "192.41.6.20"

关键说明 #

• 字符串拆分：通过substring按步长2截取字符，实现任意8位十六进制字符串的分组，替代原代码的硬编码
• 十六进制转十进制：使用as.hexmode解析十六进制字符串，再通过as.integer转为十进制数值
• 参数合法性：增加了非法进制的错误提示，同时强制将addr转为字符串，避免传入非字符串参数导致的错误
• 调用注意：必须传入字符串类型的十六进制值（如"C0290614"），不能直接传C0290614（会被识别为未定义变量）

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