怎样读入 多个 文本文档的指定行，然后 输出到一个文档

weichanghe2000

大家好，假如我由软件 仿真 产生了 大量的 文本文档，放在电脑里的 a目录。

为了查看和搜索方便，我想用 mathematica 读入 这些文件的第2行到文件末尾，然后 按照这n个文件产生的时间顺序 将其顺序输出到一个文档。

举个例子，我在 a目录下 有1.txt (产生时间2011.7.18_20:00)，2.txt (产生时间2011.7.18_20:01)，3.txt (产生时间2011.7.18_20:02)，4.txt (产生时间2011.7.18_20:03)，…………n.txt(产生时间2011.7.18_22:00).

现在我想把 这n 个文本文档 的第2行到末尾，存放到 一个新的文档 b.txt中：首先存放 1.txt的第2行到最后一行，再存放 2.txt的第2行到最后一行，…………最后存放的是n.txt的第2行到最后一行。

怎样实现？恳请大家指导，谢谢。

guocong89

首先，设置你的工作目录

1. SetDirectory["C:\\test"]

复制代码

获得你的文件列表

1. files = FileNames[]

复制代码

然后按照修改时间排序

1. files2 = Sort[files,
   
2.   DateDifference @@ (Function[{x},
   
3.         DateString[FileDate[x, "Modification"]]] /@ {#1, #2}) > 0 &]

复制代码

guocong89

接下来，是文件处理。如果是中文，处理起来比较很麻烦。

因为Mathematica对非Ascii的存储是按照unicode编码实现的，对于中文字符文件，它处理起来很困难，因此，你要先保证你的文件是Unicode编码的，这很重要。

然后，你要用二进制方式进行文件读取。

1. Function[{x},
   
2.   FromCharacterCode[BinaryReadList[x, "UnsignedInteger16"],
   
3.    "Unicode"]] /@ files2

复制代码

注意，一定要是Unicode编码，而且不能是Big Endian。

guocong89

然后就很简单的字符串处理了。

1. txt2 = StringJoin@Flatten[StringSplit[#, "\n"][[2 ;; -1]] & /@ txt]

复制代码

然后存储就好了

1. BinaryWrite["res.txt", ToCharacterCode[txt2], "UnsignedInteger16"]

复制代码

weichanghe2000

接下来，是文件处理。如果是中文，处理起来比较很麻烦。

因为Mathematica对非Ascii的存储是按照unicode编码实现的，对于中文字符文件，它处理起来很困难，因此，你要先保证你的文件是Unicode编码的，这很重要。
...
guocong89 发表于 2011-7-19 21:30

应该是

1. txt=Function[{x},
   
2. FromCharacterCode[BinaryReadList[x, "UnsignedInteger16"],
   
3. "Unicode"]] /@ files2

复制代码

吧？

weichanghe2000

谢谢这么详细的解答啦。

顺便问下:

1. txt2 = StringJoin@Flatten[StringSplit[#, "\n"][[2 ;; -1]] & /@ txt]

复制代码

中的[[2 ;; -1]]是什么意思？

guocong89

6# weichanghe2000
2表示从第二行开始，-1表示到倒数第一行；你参考下函数Part的帮助