主题：导入文本文件的问题

先处理一下txt文件

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim count As Integer = 5
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, Encoding.default)
    Dim temp As Integer = 0
    Dim nstr As String = ""
    For Each s As String In strs.Split(",")
        temp += 1
        nstr &= s
        If temp Mod count = 0 Then
            nstr &= vbcrlf
        Else
            nstr &= ","
        End If
    Next
    filesys.WriteAllText("d:\test.txt", nstr, False,Encoding.default)
End If