求助：按条件移除字符串指定位置的0的实现方法

嗨，看了你的需求，我给你两种实用的方案，都是在R环境下实现的，你可以根据自己的习惯选择：

方案一：直观的字符筛选法（推荐，不容易出错） #

这个方法把字符串拆成单个字符，再根据位置条件决定是否保留，逻辑清晰，哪怕对正则不熟也能轻松看懂：

library(stringi)

# 你的原始数据向量
x <- c("01001", "11003", "08011")

# 逐个处理字符串
result <- sapply(x, function(s) {
  # 把字符串拆成单个字符的向量
  chars <- stri_split_boundaries(s, type = "character")[[1]]
  # 定义每个位置的保留规则：第1位非0则留，第3位非0则留，其余位置始终保留
  keep_flags <- c(
    chars[1] != "0",  # 第1位：不是0才保留
    TRUE,             # 第2位：始终保留
    chars[3] != "0",  # 第3位：不是0才保留
    TRUE,             # 第4位：始终保留
    TRUE              # 第5位：始终保留
  )
  # 拼接需要保留的字符
  paste(chars[keep_flags], collapse = "")
})

# 查看结果
print(result)
# 输出：
# 01001 11003 08011 
#  "101" "1103"  "811"

方案二：正则表达式一步替换法（适合熟悉正则的同学） #

针对你固定5位的字符串，可以用正则的位置匹配直接删除目标字符，一步到位：

library(stringi)

x <- c("01001", "11003", "08011")

# 正则匹配两种需要删除的情况：开头的0，以及第3位的0
result <- stri_replace_all_regex(x, "^0|(?<=^.{2})0", "")

# 如果用stringr包（语法更友好），代码如下：
# library(stringr)
# result <- str_replace_all(x, "^0|(?<=^.{2})0", "")

print(result)

正则解释：

• ^0：匹配字符串开头的0，直接替换为空
• (?<=^.{2})0：正向后顾匹配，定位到前面正好有2个任意字符的0（也就是原字符串的第3位），替换为空

两种方法都能完美实现你的需求，选你用着顺手的就行~

备注：内容来源于stack exchange，提问作者leo