[VB.NET]如何清除文本文件中的空行

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
如何清除文本文件中的空行
VS2005如何清除txt文本文件中的空行
__________________________________________________________________________
把文本读入字符串中，将两个连续的vbCrLf用一个vbCrLf替换。如果空行中有空格的，要把两个vbCrLf中间只有空格的也替换成一个vbCrLf。
__________________________________________________________________________
Dim sr As New StreamReader( C:/1.txt )
Dim sw As New StreamWriter( C:/1_tmp.txt )
Dim str As String = sr.ReadLine()
While (Not str Is Nothing)
If Not str.Trim() = Then sw.WriteLine(str)
str = sr.ReadLine()
End While
sr.Close()
sw.Close()
File.Delete( C:/1.txt )
File.Move( C:/1_tmp.txt , C:/1.txt )
__________________________________________________________________________
不要忘了
Imports System.IO
__________________________________________________________________________
上例清除C:/1.txt中的空行
__________________________________________________________________________
能不能用正则表达式解决??
__________________________________________________________________________
用正则就慢了。
__________________________________________________________________________
可是用这个也很慢啊，翻来覆去倒，有没有快的方式呢
__________________________________________________________________________
这已经是很快的方式了
用二进制方式读写会更快一点，但是很麻烦
要用缓冲区，要判断字符编码
__________________________________________________________________________
To:viena(维也纳N02)
三个星星感觉不很气派。争取5个啊。
__________________________________________________________________________
To:wuyazhe(wyz&xyl)
两个星星感觉不很气派。争取5个啊。
__________________________________________________________________________
To:viena(维也纳N02)
我本来想争取3颗，但看看。觉得3个不够气派。5个自己没能力争取啊。
__________________________________________________________________________
也可以用 FileOpen()

有星星，感觉就不错了
__________________________________________________________________________
用 FileOpen()
我有意盼星星，
星星无视我的心！
__________________________________________________________________________