文本操作问题

[snolidge]

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

[ClassicWuHao]

Vbcrlf或chr(13)

[lxqlogo0]

加入：vbcrlf
或chr(13)

[ClassicWuHao]

Vbcrlf或chr(13)

[qingming81]

文本操作逐行读写的时候，本来就是一行一行写入的，再加一个回车会形成一个空白行。

[laixiaopeng]

说清楚一点

[snolidge]

'文本存储-------------------------------------------------------------

'读文本到文件
Dim txt1 As String
Dim Enter As String
Dim InfoAddMoney As String
Dim InfoSubMoney As String
Dim Fengefu As String

Enter = 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

'文本存储--------------------------------------------------------------

[snolidge]

错了
chr(10)

[snolidge]

'文本存储-------------------------------------------------------------

'读文本到文件
Dim txt1 As String
Dim Enter As String
Dim InfoAddMoney As String
Dim InfoSubMoney As String
Dim Fengefu As String

Enter = 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

'文本存储--------------------------------------------------------------
不行，现在只能协议条记录了

[qingming81]

稍作修改：
文本存储-------------------------------------------------------------

'读文本到文件
Dim txt1 As String
Dim strEnter As String
Dim InfoAddMoney As String
Dim InfoSubMoney As String
Dim Fengefu As String

strEnter = 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