如何清除文本文件中的空行 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() 我有意盼星星， 星星无视我的心！ __________________________________________________________________________