vb TEXT1写入TXT内容不换行

Question

text1里的内容是换行的可添加到txt文件中却不换行 例：text中是

可txt中是

我想让txt中是

Answer 1

Private Sub Command1_Click()
Text1.Text = "1" & vbCrLf & "2" & vbCrLf & "3"
Open "c:\out.txt" For Output As #1
Print #1, Text1.Text
'如果Text1文本框中的内容不是由程序赋值,而是在程序设计时指定的请改用下面这句
'Print #1, Left(Text1.Text, Len(Text1.Text) - 2)
Close #1
MsgBox "文件已保存到c:\out.txt"
End Sub

Answer 2

属性里面的“MultiLine”改为True，然后改成多行print。

如：
print 1
print 2
print 3
显示：1【换行】2【~】3
又如：
print 123 显示123

希望我的答案可以帮到你。

Answer 3

Private Sub Command1_Click()
Open App.Path & "\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub追问

可是输出的不能换行啊

Answer 4

用listbox 可以吗？追问

一样的

追答

Private Sub Command1_Click()
Open 文件地址 For Append As #1 '文件地址改为 如 C:\Documents and Settings\Administrator\桌面\vb.txt
Dim a As String
a = Text1.Text
Print #1, a
Close #1
End Sub

本回答被提问者采纳