R读取路径下的所有文件和统计

#####合并表#######
rm(list=ls())
library(readr)
library(rpivotTable)
library(lubridate)
library(readxl)
library(dplyr)
library(tidyr)


#---------------------合并索引---------------------




a1= list.files("E:/input")#list.files命令将input文件夹下所有文件名输入a


setwd("E:/input/")


b1= list.files(a1[1],pattern = "索引.")
n=length(a1) 



for (i in 2:n){
  m1= list.files(a1[i],pattern = "索引.")
  
  #m1<-as.character(m1)
  #m11<-grep("^索",m1,value=T)
  b1<-rbind(b1,m1)
}
setwd("E:/")  
dir = paste("./input/",a1,"/",b1,sep="") #用paste命令构建路径变量dir
n = length(dir) #读取dir长度，也就是文件夹下的文件个数
merge.data1 = read_excel(path= dir[1],col_names = T)#读入第一个文件内容（可以不用先读一个，但是为了简单，省去定义data.frame的时间，我选择先读入一个文件。
merge.data<-merge.data1%>%select(CUST_NUM,CUST_ID,AC_NUM,CARDHOLD,委托年月,COLL,催收记录,催记样式,外访单,外访照片,客户签署文件)


for (i in 2:n){
  
  new.data= read_excel(path= dir[i],col_names = T)
  new.data1<-new.data%>%select(CUST_NUM,CUST_ID,AC_NUM,CARDHOLD,委托年月,COLL,催收记录,催记样式,外访单,外访照片,客户签署文件)
  merge.data = rbind(merge.data,new.data1)
}




#循环从第二个文件开始读入所有文件，并组合到merge.data变量中
#write.xlsx(merge.data, file = "E:\\output\\suoyin.xlsx",sheetName = "TestSheet", row.names = FALSE)
write.csv(merge.data,file = "./output/suoyin.csv",row.names=F)  #输出组合后的文件merge.csv到input文件
#---------------------统计个索引数-----------------


count.data1 = read_excel(path= dir[1],col_names = T)
count<-nrow(count.data1)




for (i in 2:n){
  new.data= read_excel(path= dir[i],col_names = T)
  count1<-nrow(new.data)
  count<-rbind(count,count1)
}


cc<-paste("E:/input",a1[1],"******",sep = "/")
c1= list.files(cc)
lc1=length(c1)
for (i in 2:n){
  cc1<-paste("E:/input",a1[i],"******",sep = "/")
  cm= list.files(cc1)
  lcm<-length(cm)
  lc1<-rbind(lc1,lcm)
}


counttest<-data.frame(a1,count,lc1)
names(counttest)<-c("分公司","索引量","催记量")


write.csv(counttest,file = "./output/count.csv",row.names=F)


#-----------------------外访名单------------------------


setwd("E:/input/")
wb1= list.files(a1[1],pattern = "外访名单.")


for (i in 2:n){
  wm1= list.files(a1[i],pattern = "外访名单.")
  
  #m1<-as.character(m1)
  #m11<-grep("^索",m1,value=T)
  wb1<-rbind(wb1,wm1)
}
setwd("E:/")  
wdir = paste("./input/",a1,"/",wb1,sep="") #用paste命令构建路径变量dir
wn = length(wdir) #读取dir长度，也就是文件夹下的文件个数
wmerge.data1 = read_excel(path= wdir[1],col_names = T)#读入第一个文件内容（可以不用先读一个，但是为了简单，省去定义data.frame的时间，我选择先读入一个文件。
wmerge.data<-wmerge.data1%>%select(序号,客户ID,客户姓名,客户地址,客户情况说明,客户所取得的效果,催收员,日期)


for (i in 2:n){
  
  wnew.data= read_excel(path= wdir[i],col_names = T)
  wnew.data1<-wnew.data%>%select(序号,客户ID,客户姓名,客户地址,客户情况说明,客户所取得的效果,催收员,日期)
  wmerge.data = rbind(wmerge.data,wnew.data1)
}




#循环从第二个文件开始读入所有文件，并组合到merge.data变量中
#write.xlsx(merge.data, file = "E:\\output\\suoyin.xlsx",sheetName = "TestSheet", row.names = FALSE)
write.csv(wmerge.data,file = "./output/wf.csv",row.names=F)