文本操作问题

Question

要实现每插入一条纪录就自动回车怎样实现？我刚学vb

Answer 1

'文本存储-------------------------------------------------------------'读文本到文件
Dim txt1 As String
Dim Enter As String
Dim InfoAddMoney As String
Dim InfoSubMoney As String
Dim Fengefu As StringEnter = ach(10)
InfoAddMoney = "充值"
InfoSubMoney = "消费"
Fengefu = "||"
Open "e:\ego_xu\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, txt1
Label3 = vbCrLf & txt1
Wend
Close #1'写文本到文件
txt1 = Label3 & Enter & InfoAddMoney & TextAddMoney.Text & Fengefu & InfoSubMoney & TextSubMoney.Text
Open "e:\ego_xu\test.txt" For Output As #1
Print #1, txt1
Close #1'文本存储--------------------------------------------------------------

Answer 2

'文本存储-------------------------------------------------------------'读文本到文件
Dim txt1 As String
Dim Enter As String
Dim InfoAddMoney As String
Dim InfoSubMoney As String
Dim Fengefu As StringEnter = vbCrLf
InfoAddMoney = "充值"
InfoSubMoney = "消费"
Fengefu = "||"
Open "e:\ego_xu\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, txt1
Label3 = vbCrLf & txt1
Wend
Close #1'写文本到文件
txt1 = Label3 & Enter & InfoAddMoney & TextAddMoney.Text & Fengefu & InfoSubMoney & TextSubMoney.Text
Open "e:\ego_xu\test.txt" For Output As #1
Print #1, txt1
Close #1'文本存储--------------------------------------------------------------
不行，现在只能协议条记录了

Answer 3

稍作修改：
文本存储-------------------------------------------------------------'读文本到文件
Dim txt1 As String
Dim strEnter As String
Dim InfoAddMoney As String
Dim InfoSubMoney As String
Dim Fengefu As StringstrEnter = vbCrLf
InfoAddMoney = "充值"
InfoSubMoney = "消费"
Fengefu = "||"
Open "e:\ego_xu\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, txt1
Label3 = Label3.caption & txt1 & vbcrlf 
Wend
Close #1'写文本到文件
txt1 = Label3 & strEnter & InfoAddMoney & TextAddMoney.Text & Fengefu & InfoSubMoney & TextSubMoney.Text
Open "e:\ego_xu\test.txt" For Output As #1
Print #1, txt1
Close #1