indata=readLines('test')
m=gregexpr('1:(.*) 2:(.*) 3:(.*) 4:(.*) 5:(.*) 6:(.*)', indata, perl=T)
capstart =sapply(m, attr,'capture.start')
caplength=sapply(m, attr,'capture.length')

outdata =sapply(1:6  , function(i){ as.numeric(substr(indata, capstart[i,], capstart[i,]+caplength[i,]-1 ))})
outdata.csv=data.frame(outdata)
#write.csv('outdata.csv', row.names=F)

谢谢大家，我应该是做出来了，不过如果有童鞋有结果也请给我，我会把论坛币付出去的，多谢！！

哇，干净漂亮，真棒！谢谢楼上的童鞋，已经设置了最佳答案！
粥末鱼块！

正则表达式的 不错

小猫的方式 是按照 数学题的方式做的吗？

（1）outdata.csv怎么不见因变量呢？
（2）outdata.csv现在被保存在了那个路径下了呢？怎么找不见呀？