R转换.csv文件格式到.txt或.xlsx) [read.csv and export data to

现有多份文件名相似(比如文件名开头都以"Report"开头,"Report"之后跟进日期和时间)并且数据结构一致的.csv格式文件，需要用R把这些文件合并，并转化文件格式为.txt或者.xlsx。文件内容可参考如下范例：

需要考虑的因素有：

• 每次处理的文件数量可能不同
• 合并文件时，只需保留一个表头

# read all .csv files (file name beginning with same characters,same data structure)
# combine them together and keep only the header of the first table
# export as an entity of .txt file

transcsv<-function(directory = "D:/RawData",startchar = "Report"){

	# directory: the directory where you put the data source
	# startchar: the common fields/characteristics the file names start with
	
	setwd(directory)
	filename <- paste(startchar,"*.csv",sep="")
	filenames <- Sys.glob(filename)  # can also try list.files()
	
	n <- 1	
	for (filename in filenames){
		if (n == 1){
			txtfile<-read.csv(filename,header = T,sep = ";")
		}else{
			txtfile<-rbind(txtfile,read.csv(filename,sep = ";"))
		}
		n <- n + 1
	}
	newname<-paste(startchar,"_All.txt",sep="")
	write.table(txtfile,newname,sep=";")
}

• 设定自定义函数的参数：原始数据的存储路径 以及 所有原始文件名的开始部分(当然，如果想要处理一个文件夹下的所有.csv文件，那么第二个参数只要设定成""这样的空值就可以了)
• Sys.glob()(或者list.files()函数)用于抓取working directory下所有符合条件的文件名，并存储到一个vector中
• 写循环语句，从vector的第一个文件名读起，对应的第一个文件保留表头，之后的所有文件不保留表头(设定参数header)，将所有这些数据用rbind结合起来

如果要将.csv转换成.xlsx格式(.xls格式的请自己去搜索package: WriteXLS，使用方法大同小异)，需要在自定义函数里添加和修改一些地方：

1. 在setwd()之前，用library()添加三个packages: rJava,xlsxjars 以及xlsx(使用函数前要确保这三个包已经安装了) -library(rJava,xlsxjars,xlsx)
2. 将write.table改为write.xlsx，对相关参数做相应修改