我的是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
If i Mod 60 = 0 Then
System.Envirement.NewLine 新行
System.Envirement.NewLine
End If
MyOutput = ListBox1.Items(i)
myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))