对文本文件中的数据进行重新排列

[wsxcy66668888]

文本文件：data.txt 数据如下：
2410008001210020383915879939PASD2410008001210010383932222375PASD 2410008001210020383840276995PASD2410008001210010383891226945PASD
2410008001210020383784730903PASD2410008001210010383795669482PASD
2410008001210020383653007349PASD

。。。。。。。。。。。。

现在要对这些数据进行重新排列，格式为：
2410008001210020383915879939PASD
2410008001210010383932222375PASD
2410008001210000383973195065PASD
2410008001210020383840276995PASD

。。。。。。。。。。。。

如何编程实现，请教老师，谢谢

（注意：文本文件数据量很大，文件一般在10M左右，每行的最后四个字符不一定全是PASD，
因此不能作为添加回车符的标记，每行的位数是固定的）

[ojekleen]

每行的位数是固定的，这样就好了，每多少就换行啊。
streamreader sr=new streamreader("yourfile.txt");
streamwriter sw=new streamewriter("newfile.txt");
。。。。。。。。。
。。。。

[amandag]

[Quote=引用 1 楼 ojekleen 的回复:]
每行的位数是固定的，这样就好了，每多少就换行啊。
[/Quote]

[wsxcy66668888]

现在好象问题又简单了一些，要求每32个字符换一下行，要怎么写呢？

[cauhorse]

可以readline()
然后读长度，再分入数组就好了。。。

[yanlongwuhui]

参考如下：
Dim sr As New System.IO.StreamReader(" C:\data.txt", System.Text.Encoding.Default)
Dim arr As New ArrayList

Dim tmp As String = sr.ReadLine()
While Not tmp Is Nothing
tmp = tmp.Trim
If tmp.Length > 32 Then
arr.Add(tmp.Substring(0, 32))
arr.Add(tmp.Substring(32))
Else
arr.Add(tmp)
End If
tmp = sr.ReadLine
End While
sr.Close()
If arr.Count > 0 Then
arr.Sort()
Dim sw As New System.IO.StreamWriter("C:\newdata.txt", False, System.Text.Encoding.Default)
For i As Integer = 0 To arr.Count - 1
sw.WriteLine(arr.Item(i))
Next
sw.Close()
End If