Question

我一直试图将许多.xlsx转换成许多.csv

首先，我列出了我想要转换的所有.xlsx。

> especies
 [1] "Aburria jacutinga.xlsx"       "Acrobatornis fonsecai.xlsx"   "Alectrurus tricolor.xlsx"    
 [4] "Amadonatur lacernulatus.xlsx" "Amazona pretrei.xlsx"         "Amazona rhodocorytha.xlsx"   
 [7] "Amazona vinacea.xlsx"         "Anodorhynchus leari.xlsx"     "Anthus nattereri.xlsx"       
[10] "Antilophia bokermanni.xlsx"

然后，我编辑elemmnts以便在名称中没有任何空格并创建另一个向量。结尾如下：

> nomes_
 [1] "Aburria_jacutinga"       "Acrobatornis_fonsecai"   "Alectrurus_tricolor"     "Amadonatur_lacernulatus"
 [5] "Amazona_pretrei"         "Amazona_rhodocorytha"    "Amazona_vinacea"         "Anodorhynchus_leari"    
 [9] "Anthus_nattereri"        "Antilophia_bokermanni"

然后我尝试了以下嵌套for循环将每个.xlsx文件转换为.csv文件：

for (file in especies){
  xlsx_objeto<- readWorksheetFromFile(file=file, sheet=1, keep=c(2,3,4,6,7,8,9,10,13,18))
  for( j in nomes_){
    write.csv(xlsx_objeto,file=paste0("./csv/",j,".csv"))
  }
}

我所拥有的是nomes_中每个元素的一个.csv文件。没关系。但在这些.csv文件中完全相同。它们都包含especies列表中最后一个.xlsx文件的数据。

Answer 1

最后，我可以管理它。这是代码。对不起，评论是葡萄牙语。

library('XLConnect')
library('foreach')
# Cria uma lista com todos os arquivos em xlsx
especies<-list.files(pattern = "\\.xlsx$")
# Eliminar algum arquivo indesajado que esteja na pasta
especies<-especies[-c(1:41)]
## Cria um vetor que contenha os nomes desejados para serem os nomes dos arquivos finais.
# Retira a extensão ".xlsx"
nomes<-gsub(pattern=".xlsx",replacement="",especies)
# Substitui todo espaço por "_"
nomes_<-gsub(pattern=" ",replacement="_",nomes)
# Retira todo "." Atenção se quiser substituir pontos ".", estes devem estar entre colchetes assim: "[.]"
nomes_<-gsub(pattern="[.]",replacement="",nomes_) 
# Cria um csv com a lista dos nomes dos arquivos.(Opcional)
write.csv(nomes_,file="./csv/_lista_especies.csv", quote=FALSE)
## Usando FOREACH LOOP para converter cada arquivo xlsx em um csv que terão como nome o elementos da lista criada acima.
# Detalhes do uso do foreach em http://cran.r-project.org/web/packages/foreach/vignettes/foreach.pdf
foreach(file = especies, j = nomes_) %do% {
  xlsx_objeto<- readWorksheetFromFile(file=file, sheet=1, keep=c(2,3,4,6,7,8,9,10,13,18))
  write.csv(xlsx_objeto,file=paste0("./csv/",j,".csv"))
}

如何在R中使用NESTED FOR LOOPS将许多XLSX文件转换为多个CSV文件？

1 个答案: