VB 怎样将文本框的数据读取和保存到文本文件中?
2个回答
2015-12-17 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
向TA提问 私信TA
知道合伙人软件行家
采纳数:1748
获赞数:5543
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
向TA提问 私信TA
关注
展开全部
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
相关代码如下:
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
展开全部
新建工程,在窗体中加入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文件中都会添加一条记录,
这是最简单的一段代码,如果要更复杂的处理,需要连接数据库。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询