如何用R从Excel/CSV生成指定格式的文本文件？

完全可以用R实现这个转换，以下是具体步骤和代码示例：

步骤1：读取Excel/CSV数据 #

首先用对应工具读取你的数据文件：

• 处理Excel文件：使用readxl包；
• 处理CSV文件：用基础R的read.csv或readr::read_csv均可。

示例代码：

# 首次运行需安装依赖包
install.packages(c("readxl", "dplyr", "purrr"))

# 读取Excel文件
library(readxl)
df <- read_excel("你的文件路径.xlsx")

# 若为CSV文件，替换为：
# df <- read.csv("你的文件路径.csv", stringsAsFactors = FALSE)

步骤2：生成目标格式文本 #

逐行拼接字符串生成每个location块，保持格式缩进一致：

library(dplyr)
library(purrr)

# 定义单个location块的生成函数
generate_location_block <- function(loc, proxy) {
  paste0(
    "location /", loc, "/ {\n",
    "            proxy_pass ", proxy, ";\n",
    "            proxy_set_header Authorization \"xyz\";\n",
    "        }"
  )
}

# 为所有数据生成块，并以空行分隔
final_text <- map2_chr(df$location, df$proxy_pass, generate_location_block) %>%
  paste(collapse = "\n\n")

步骤3：保存为文本文件 #

将生成的内容写入目标文件：

writeLines(final_text, "output_config.txt")

测试验证（用你提供的示例数据） #

如果用你给出的测试数据验证效果：

library(tibble)
df <- tibble::tibble(
  location = c(148,85), 
  proxy_pass = c("http://110.140.110.105/", "http://110.140.110.110/")
)

# 生成文本并查看
final_text <- map2_chr(df$location, df$proxy_pass, generate_location_block) %>%
  paste(collapse = "\n\n")
cat(final_text)

运行后会输出你期望的格式内容，确认无误后保存即可。

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