如何在R语言中根据文件名的部分内容复制文件？

要实现基于前缀匹配的文件复制，核心是先筛选出符合前缀条件的完整文件名，再执行复制操作。原代码的问题在于直接使用前缀字符串作为文件名，无法匹配实际的完整文件名（如ABC1211_987XYZ.txt）。以下是修改后的完整方案：

步骤1：定义路径与前缀向量 #

先明确原文件夹、目标文件夹路径，以及你的前缀向量：

# 替换为实际路径
origin_path <- "Path_For_Origin_Folder"
new_path <- "Path_For_New_folder"

# 你的前缀向量
group_1 <- c("ABC1211", "ABC1213", "ABC1220")

步骤2：确保目标文件夹存在 #

如果目标文件夹尚未创建，先自动生成：

if (!dir.exists(new_path)) {
  dir.create(new_path, recursive = TRUE)
}

步骤3：筛选匹配前缀的文件 #

1. 获取原文件夹下所有.txt文件的完整路径
2. 生成匹配正则：匹配以group_1中任意前缀开头的文件名
3. 筛选出符合条件的文件

# 获取所有txt文件的完整路径
all_txt_files <- list.files(
  path = origin_path,
  pattern = "\\.txt$",  # 仅匹配txt文件
  full.names = TRUE     # 返回完整路径，方便后续复制
)

# 生成匹配模式：匹配以group_1中任意前缀开头的文件名
match_pattern <- paste0("^", paste(group_1, collapse = "|"))

# 筛选出目标文件
target_files <- all_txt_files[grepl(match_pattern, basename(all_txt_files))]

• basename(all_txt_files)：提取文件名部分（去掉路径），用于前缀匹配
• ^：正则中表示“字符串开头”，确保只匹配前缀为目标值的文件（避免包含前缀但非开头的情况）

步骤4：批量复制文件 #

直接使用file.copy的向量输入，批量复制所有目标文件：

# 执行复制，返回逻辑值表示每个文件是否复制成功
copy_status <- file.copy(
  from = target_files,
  to = file.path(new_path, basename(target_files))
)

# 可选：查看复制失败的文件（如果有的话）
if (any(!copy_status)) {
  cat("复制失败的文件：\n", paste(target_files[!copy_status], collapse = "\n"))
}

替代方案：逐个前缀处理（适合需要单独监控每个前缀的场景） #

如果你需要针对每个前缀单独处理，可以用lapply遍历前缀向量：

copy_by_prefix <- function(prefix) {
  # 匹配当前前缀对应的所有txt文件
  pattern <- paste0("^", prefix, ".*\\.txt$")
  matched_files <- list.files(origin_path, pattern = pattern, full.names = TRUE)
  
  # 复制文件
  if (length(matched_files) > 0) {
    file.copy(
      from = matched_files,
      to = file.path(new_path, basename(matched_files))
    )
    cat("完成前缀", prefix, "的文件复制，共", length(matched_files), "个\n")
  } else {
    cat("前缀", prefix, "未找到匹配文件\n")
  }
}

# 遍历所有前缀执行复制
lapply(group_1, copy_by_prefix)

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