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)

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)

#迴圈從第二個檔案開始讀入所有檔案，並組合到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)

cc<-paste("e:/input",a1[1],"******",sep = "/")

c1= list.files(cc)

lc1=length(c1)

for (i in 2:n)

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)

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)

#迴圈從第二個檔案開始讀入所有檔案，並組合到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)  

python獲得路徑和子路徑下所有的檔案的相關資訊

獲得路徑和子路徑下所有檔案的資訊，包括檔名 檔案大小 建立時間 最後修改時間 最後訪問時間，當初在某個地方看到，正好在某個地方有用到，單獨把這個記下來以後好回顧回顧。coding utf 8 author intgrp import os,time def showfileproject path ...

獲取指定路徑下的所有檔案

windows版本 參考 windows下遍歷指定目錄下的所有檔案 void listfiles const char dir else cout finddata.name t finddata.size bytes.n while findnext handle,finddata 0 findc...

複製某個路徑下的所有檔案到指定路徑

先上 private void copydirectory string srcpath,string destpath copydirectory i.fullname,destpath i.name else catch exception e 其中，directoryinfo類用於建立 移動 ...