Question

VB6.0关于读取和赋值的问题。

我想做出这样子的效果，假如vb在运行的时候，经过一系列处理给变量a和b等赋予了一些值。然后再通过按一个按钮，把它们输出到程序根目录的一个文件内。假如是一个txt文件，那么第一行记载2，第二行记载3...以此类推..然后再通过vb上的一个按钮，让程序按照上面所记载的给变量a和b赋值。

Answer 1

写入文件：

Private Sub Command1_Click()
Open App.Path & "\123.txt" For Output As #1
Print #1, a   '把变量a和b的值写入文件中
Print #1, b   '要注意a和b必须是全局变量，且已经赋值
Close #1
End Sub

从文件中读取：

Private Sub Command2_Click()
Open App.Path & "\123.txt" For Input As #1
Input #1, a   '从文件中分别读取数据赋值给变量a和b
Input #1, b   '要注意a和b必须是全局变量
Close #1
End Sub

追问

那么按照您的思路，可以写一段完整的代码给体会一下吗？txt的第一行是a，第二行是b，谢谢。。

追答

上面的代码就是完整的代码，123.txt的第一行就就是变量a的值，第二行是b的值。至于a和b如何声明及赋值，就只能你自己搞定了，我们靠瞎猜也得有个限度吧。

追问

嗯，谢谢