您所在位置：主题：vb读取TEXT 保存问题``
yzai
[专家分：20] 发布于 2009-09-06 16:05:00
一个文本 一个按扭 一打开程序就读取到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
高手指教`````谢谢` 看贴给分
比如版本说明.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
高手指教`````谢谢` 看贴给分
