主题：[求助] 自动换行输出到文本

 For i As Integer = 99 To 1 Step -1
    Dim txt As String = "1TB"
    Dim mulit As String = format(i,"0000")
    Dim values() As String
    values = mulit.Split("|")
    For Index As Integer = 0 To Values.Length - 1
        FileSys.WriteAllText("D:\data\txt.txt", txt & Values(Index), True)   ‘需要输出到文本时，字符串会自动换行’
    Next
Next

dim str as string = ""
For i As Integer = 99 To 1 Step -1
    Dim txt As String = "1TB"
    Dim mulit As String = format(i,"0000")
    str &= txt & mulit & vbcrlf
Next
FileSys.WriteAllText("D:\data\txt.txt", str, False)   '需要输出到文本时,字符串会自动换行'

认认真真看懂2楼代码的意思。