|||
# trmm按照年分类整理 # 形成1998-2018年逐个文件夹,文件夹名字为年 dir.create() rm(list = ls()) path <- 'd:/trmm_day_data' filename <- dir('d:/trmm_day_data') year <- as.character(seq(1998,2018,1)) for (i in 1:21) { for (j in 1:7732) { file <- paste('path', year[i],sep = '/') dir.create(file) if(grepl(year[i],stri_sub(filename[j],12,15)) == TRUE){ file_name <- paste(path,filename[j],sep = '/') file.copy(file_name,file) } } }
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-27 08:14
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社