vb读取TEXT 保存问题``

Question

一个文本 一个按扭 一打开程序就读取到TEXT1
比如版本说明.txt以下内容是123456789
Private Sub Form_Load() 
Dim x As String 
Open App.Path & "\版本说明.txt" For Input As #1 
Input #1, x 
text1.Text = Input(LOF(1), 1) 
End Sub Private Sub Command1_Click()
Open App.Path & "\版本说明.txt" For append As #1
Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性
Close #1 '关闭打开的文件
End Sub运行程序读取到TEXT1 显示123456789 然后我在TEXT1文本的123456789后面加个数字“123“按COMMAND1保存就不在版本说明.txt的同一行了变成了123456789  第一行
      123  第二行在关闭程序读取出来的也就是123了 不是123456789123 
高手指教`````谢谢` 看贴给分

Answer 1

TEXT1.Text里面最后有个看不见的回车换行符，把他替掉，比如：
text1.Text = Input(LOF(1), 1)这行后面加上text1.text=replace(text1.text,vbcrlf,"")

Answer 2

应该是在保存到txt的时候加吧另外你form_load  里面最后应Close #1
Private Sub Command1_Click() 
Open App.Path & "\版本说明.txt" For append As #1 
Print #1, replace(Text1.Text,vbcrlf,"") '这里可以是数据本身也可以是目标控件的属性 
Close #1 '关闭打开的文件 
End Sub 

Answer 3

使用命令print后，每次都会在文件中新一行输入新的内容。
你可以试一下write。

Answer 4

(1)我个人认为这段代码有问题（不一定对）
Private Sub Form_Load() 
Dim x As String 
Open App.Path & "\版本说明.txt" For Input As #1 
Input #1, x 
text1.Text = Input(LOF(1), 1) 
End Sub 
要么：
Private Sub Form_Load() 
Dim x As String 
Open App.Path & "\版本说明.txt" For Input As #1 
Input #1, x 
text1.Text =x 
End Sub 
要么：
Private Sub Form_Load() 
Dim x As String 
Open App.Path & "\版本说明.txt" For Input As #1 
text1.Text =Input(LOF(1), 1) 
End Sub 
（2）只要保证句尾没有换行符，就能使追加的内容在同一行。（有无换行符可将光标放在最前面，然后移动UP和DOWN键，若光标上下移动就说明有换行符。）