我获得了一组单列数据，现在想将其分成3列，数据原型如下：
作者：Huang
发布时间：2011-4-29 15:14:00
强烈呼吁在中国学界普及逻辑学
作者：admin
发布时间：2011-4-30 6:52:00
作者：hjx_221
发布时间：2011-5-6 8:28:00
作者：nv2118
发布时间：2011-5-31 16:27:00
作者：mcat
发布时间：2011-6-10 20:06:00
作者：wolfel
发布时间：2011-6-14 19:12:00
作者：Humphrey
发布时间：2011-6-17 8:10:00
作者：Huang
发布时间：2011-6-17 13:53:00
作者：dcllj
发布时间：2011-7-19 8:56:00
作者：yezhunan3h
发布时间：2011-7-25 5:14:00
作者：bijune
发布时间：2011-7-29 11:04:00
作者：ieeeblog
发布时间：2011-7-31 0:52:00
作者：jsjhcs
发布时间：2011-8-1 10:51:00
作者：Huang
发布时间：2011-8-5 16:12:00
作者：zqf5021314
发布时间：2011-10-14 16:06:00
作者：daliansuonika
发布时间：2011-10-15 19:20:00
作者：hzh007aaa
发布时间：2011-11-8 18:03:00
作者：wjwenoch
发布时间：2011-11-16 1:43:00
作者：baojie
发布时间：2011-12-8 13:42:00
作者：lianjiehailao
发布时间：2012-1-9 10:28:00
作者：yetiancheng
发布时间：2012-1-15 11:19:00
作者：baojie
发布时间：2012-1-15 14:14:00
作者：miketion
发布时间：2012-3-19 13:54:00
作者：timearrow
发布时间：2012-6-15 10:16:00
作者：qfkfw
发布时间：2012-6-15 11:30:00
作者：ling89
发布时间：2012-6-22 11:18:00
作者：huimeij
发布时间：2012-7-10 15:44:00
作者：daliansuonika
发布时间：2012-8-22 9:05:00
作者：daliansuonika
发布时间：2012-8-22 9:07:00
作者：Huang
发布时间：2013-3-17 17:42:00
作者：cs1399
发布时间：2013-7-24 9:26:00
作者：admin
发布时间：2007-9-22 19:25:00
贺China-pub为本站开通5星会员购书通道，配合China-pub为本站派发的专属购书优惠券使用更佳（再减5元或10元）
作者：flyingkylin
发布时间：2007-9-24 21:58:00
作者：Mman
发布时间：2007-9-25 8:25:00
作者：flyfoxs
发布时间：2007-9-28 14:04:00
作者：hjx_221
发布时间：2007-10-8 16:04:00
作者：卷积内核
发布时间：2007-10-9 10:29:00
作者：radiumweilei
发布时间：2007-10-17 23:14:00
作者：radiumweilei
发布时间：2007-10-17 23:14:00
具体分法是第1、4、7、10、13……为第一列；第2、5、8、11、14……为第二列；第3、6、9、12、15……为第3列。我写了循环来执行但是总是出错。程序如下：
<br />
# the aim of this script is extract "user" and "post time" from over10_cp*.txt.<br />
scc <- 'E:/exp/convUpTTc.txt'<br />
# read the context of the doc into "data" by lines<br />
data <- readLines(scc, encoding="GB2312")<br />
# Read the numbers of vertices and build a matrix for the data<br />
amount<- length(data)<br />
st<-amount/3<br />
upt_M<-matrix(data = NA, nrow = st, ncol = 3, byrow = TRUE,<br />
dimnames = list(c(1:amount), c("User", "PostTime", "Title")))<br />
for (s in 1:st)<br />
{<br />
for (i in 1:amount)<br />
{<br />
curLine <- readLines(data, n=1, encoding="GB2312")<br />
if (i-3(s-1)==1) {upt_M[s,1]<-c(curLine)} else {<br />
if (i-3(s-1)==2) {upt_M[s,2]<-c(curLine)} else {<br />
if (i-3(s-1)==3) {upt_M[s,3]<-c(curLine)}<br />
}<br />
}<br />
}<br />
}<br />
write.table(upt_M, file="E:/convUpTTf.txt", quote = FALSE, row.names = FALSE,<br />
col.names = FALSE)<br />
而且readLines函数似乎不能读取空行，有什么好方法可以进行替换么？
</p>
