我的是vb2008写的如何写60行了，写2行空的啊

[代码之城]

我的是循环写txt文本，现在想每隔60行写2行空行，如何改啊，谢谢

 '循环写入TXT

        With ListBox1

            For i = 0 To ListBox1.Items.Count - 1

                MyOutput = ListBox1.Items(i)
                myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))


            Next i
        End With

[代码之城]

我自己解决了

 With ListBox1

            For i = 0 To ListBox1.Items.Count - 1
                If i Mod 60 = 0 Then

                    myStreamWriter.WriteLine(Chr(10))
                    myStreamWriter.WriteLine(Chr(10))
                    myStreamWriter.WriteLine(Chr(10))
                    myStreamWriter.WriteLine(Chr(10))

                End If
                MyOutput = ListBox1.Items(i)
                myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))


            Next i
        End With

还是要谢谢大家

[代码之城]

还有其他方法吗？写出来 我给分，要不我自己不可以给自己分啊，只要写 就给分，速度啊

[蝶恋花雨]

基本的就这样的。可以写成换行。容易区别。

[蝶恋花雨]

不好意思。你实现的就是换行。 http://www.cnblogs.com/LCX/archive/2010/12/22/1913394.html回车/换行组合符(VB.NET)

[蝶恋花雨]

If i Mod 60 = 0 Then
                   System.Envirement.NewLine 新行
                   System.Envirement.NewLine 
                End If
                MyOutput = ListBox1.Items(i)
                myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))

[IE11下面经常卡到爆]

myStreamWriter.WriteLine(Environment.NewLine &Environment.NewLine); 或 myStreamWriter.WriteLine(vbCrLf &vbCrLf)