Dim str As String = "123" & chr(13) & "456"
FileSys.WriteAllText("d:\test.txt", str, False, Encoding.Default)
Dim s As String = FileSys.ReadAllText("d:\test.txt", Encoding.Default)
打开D盘text文本里面没有两行,只有一行连续的123456,将chr(13)换成chr(10)也是一样,没效果。