在r

Question

我有一个.csv文件，其中一列包含每行中不同的文本。 举个例子：

  

文字

     

喜欢它的样子。好的价格。我希望它有一个封面   同样。

     

这是一个很好的案例。颜色对于网站来说是真实的，它是如此坚固。

     

我订购了这个盒子，因为我有一个白色的Iphone 3G S，背面有点划痕

我正在尝试编写的是一个循环，将每个文本行保存为一个独立的.txt文件（我猜是使用write.table）。

换句话说，如果有1000行具有不同的文本片段，我希望有1,000个独立的.txt文件。

Answer 1

听起来像是一团糟，但为什么不呢：

inp <- readLines( file= ..filename.. )
setwd( ..path_to_dir..) 
for (i in seq(length(inp)){ cat( inp[i], file=paste0( i, ".txt") ) }