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

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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...