求助， 请帮助把txt数据转成csv格式

我自己试验了没有成功，所以请求大家帮助。这些数据最后应该是1385个data,6个自变量1个因变量。多谢！！ Test.zip (28.68 KB) 本附件包括：

• Test

2014-5-16 12:43:58 上传

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号 发表于 2014-5-16 13:55
indata=readLines('test')
m=gregexpr('1:(.*) 2:(.*) 3:(.*) 4:(.*) 5:(.*) 6:(.*)', indata, perl=T)
c ...

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

马甲1号 发表于 2014-5-16 13:55
indata=readLines('test')
m=gregexpr('1:(.*) 2:(.*) 3:(.*) 4:(.*) 5:(.*) 6:(.*)', indata, perl=T)
c ...

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

jmpamao 发表于 2014-5-16 15:01
正则表达式的 不错

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

呵呵，我实在是不好意思回答这个问题了，我做的跟R完全无关，就是用那种excel打开txt文件的方法取得数据的！！

唐伯小猫 发表于 2014-5-17 04:25
呵呵，我实在是不好意思回答这个问题了，我做的跟R完全无关，就是用那种excel打开txt文件的方法取得数据的 ...

哦， 不过看到你的数据后， 可以知道结果是多少行， 多少列， （这就变为数学计算题了）
readLines后，可以 两次 strsplit（ 一次 空格， 一次冒号），转变为一个向量（as.numeric..)。然后 matrix( ,  ,  ) [, -2*(1:6)] 可以得到。

当然了解 正则表达的 佳

jmpamao 发表于 2014-5-17 14:25
哦， 不过看到你的数据后， 可以知道结果是多少行， 多少列， （这就变为数学计算题了）
readLines后，可 ...

嗯的，谢谢版主！