Question

VB 怎样将文本框的数据读取和保存到文本文件中?

Answer 1

VB将文本框的数据读取和保存到文本文件中，实际上就是VB对txt的读写操作。
相关代码如下：
1、vb读取txt文件内容，以下代码实现把电脑txt中的内容读取到程序文本框text1中。
Private Sub Command1_Click()
Open App.Path & "\123.txt" For Input As #1 '备注：App.Path & "\123.txt"是程序目录下的123.txt
Dim Lines As String
Line Input #1, Lines '读取文本内容
Close #1
text1.Text = Lines
End Sub
2、vb写入txt内容，实现文本框的数据写入到文本文件中。
Private Sub Command2_Click()
Dim a As String
a = text1.Text '先读取出text1内容
Open App.Path & "\123.txt" For Output As #1
Print #1, a '把a的值写入123.txt
Close #1
End Sub

Answer 2

新建工程，在窗体中加入2个文本框一个命令按钮， 点“工程”菜单——添加模块，在模块在代码窗口中输入下列代码： Type student_data '在模块中添加学生记录结构的定义 name As String * 12 Sex As String * 12End Type在窗体的代码窗口中输入下列代码： Private Sub Command1_Click() Dim student As student_data Dim filenumber As Integer Dim m_number As Integer filenumber = FreeFile Open C:\student.txt For Random As #filenumber Len = Len(student) m_number = LOF(filenumber) / Len(student) student.name = Text1.Text student.Sex = Text2.Text Put #filenumber, m_number + 1, student Close #filenumberEnd Sub每按一下命令按钮，在C:\student.txt文件中都会添加一条记录, 这是最简单的一段代码，如果要更复杂的处理，需要连接数据库。