将.spc的trace文件转为fio支持类型 R language

web<-read.table("WebSearch1.spc",sep=",", stringsAsFactor=FALSE)
#opt<-c(FALSE,TRUE,TRUE,TRUE,FALSE)
#web<-web[,opt]
filename<-"/home/lxc/temp.txt"
web[,1]<-filename


filenamelist<-web[,1]
offset<-web[,2]
length<-web[,3]
opera<-web[,4]


#change every list
offset<-offset*512
opera[which(opera=="R")]<-"read"
opera[which(opera=="W")]<-"write"




web<-data.frame(filenamelist, opera, offset, length)


write.table(list("fio" ,"version", "2" ,"iolog"), file="webresult.txt", sep=" ",quote=F,row.names=F,append=T,col.names=F)  #list是重点，只有list才能写入是行，向量则不行。
write.table(list(filenamelist[1] ,"add"), file="w