16,722
社区成员




'循环写入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 & ",", ",,", ","))
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
还是要谢谢大家