可以使用命令“rngAll$TextToColumns（DataType = 1，Other = TRUE，OtherChar =““，ConsecutiveDelimiter = TRUE）”将第一列的文本分隔为多列（有关不同的选项，请参阅https://learn.microsoft.com/en-us/office/vba/api/excel.range.texttocolumns）。我已经能够使用下面的代码分隔第一列的文本。这种方法仅适用于Windows。

library(stringr)
library(RDCOMClient)

file.rename(from = "D:\\data_File.fef",
             to = "D:\\data_File2.csv")

text <- readLines("D:\\data_File2.csv")
text <- stringr::str_replace_all(text, pattern = "(\\d{2,5})([:space:]{1,5})(\\d{2,5})", "\\1\\3")
text <- stringr::str_replace_all(text, pattern = "(\\d{2,5})([:space:]{1,5})(\\d{2,5})", "\\1\\3")
text <- stringr::str_replace_all(text, pattern = "(patientId)([:space:]{1,5})(\\d{1,5})", "\\1\\3")

fileConn <- file("D:\\data_File3.csv")
writeLines(text, fileConn)
close(fileConn)

path_Excel_File1 <- "D:\\data_File3.csv"

xlApp <- COMCreate("Excel.Application")
xlApp[["Visible"]] <- TRUE
xlWbk <- xlApp$Workbooks()$Open(path_Excel_File1)
Sheets <- xlWbk$Sheets()

rngAll <- Sheets[[1]]$Range("A1:A5")
rngAll$TextToColumns(DataType = 1, Other = TRUE, OtherChar = " ", ConsecutiveDelimiter = TRUE)

您也可以使用命令fwrite（dat，file =“C：/Users/patient1.fef”），append = TRUE，quote = FALSE，sep =“;“，col.names = FALSE）并将文件保存为csv文件。使用不是空格字符（如““）的分隔符来分隔文本会更容易。