vb怎样将数据逐行写入txt，每次写入数据的时候都从下一行开始写入！！！？？？求大神指点！！！

Question

如题所述

Answer 1

Private Sub Command1_Click()

  Open "D:\1234.txt" For Output As #1

  For i = 1 To 20

    Print #1, "这是第"; i; "行"

  Next i

  Close #1

End Sub

追问

可能我没说清楚 我想输入的信息是用inputbox输入的不同的信息 不是确定好的信息 这个代码不适用啊 大神在帮帮忙

可能我没说清楚 我想输入的信息是用inputbox输入的不同的信息 不是确定好的信息 这个代码不适用啊 大神在帮帮忙

追答

这只是一个示例啊。在写程序的人，一点变通的能力都没有么？
Private Sub Command1_Click()
Open "D:\1234.txt" For Output As #1
Do While True
a = InputBox("请输入要存入文件的内容（内容为空结束）：")
If Len(a) > 0 Then
Print #1, a
Else
Exit Do
End If
Close #1

End Sub