Question

我正在尝试将文本框的内容写入txt文件。

我的代码工作正常，但我的错误是，当我打开txt文件时，我看到

writeline1writeline2writeline3

而不是

writeline1
writeline2
writeline3

我的代码;

result As List(Of String) = New List(Of String)
convertedText.Lines = result.ToArray()
My.Computer.FileSystem.WriteAllText(mypath & "\convertedcontent.txt", convertedText.Text, False)

写入.csv和许多其他文件类型工作正常，但我不知道如何打破文本文件的行。

提前致谢

Answer 1

我会使用System.IO.File.WriteAllLines：

Dim path = System.IO.Path.Combine(mypath, "convertedcontent.txt")
System.IO.File.WriteAllLines(path, result)

否则您需要将Environment.NewLine附加到每一行，您可以使用String.Join：

System.IO.File.WriteAllText(path, String.Join(Environment.NewLine, result))

Answer 2

您需要将& vbCrLf添加到字符串（每行）

不知道你从哪里获取字符串......但是你必须将载体返回/换行符添加到这些字符串中，每个字符串的末尾都有一个字符串。

可能只是循环遍历你的数组并将它们添加到那里？

P.S。一些评论有更快的方法到达那里，但这可能是幕后发生的......

for i = 0 to convertedText.Lines.count -1
  convertedText.Lines(i) += vbCrLf
next

VB.Net写入Txt文件

2 个答案: