问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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

发布网友 发布时间:2022-05-15 15:17

我来回答

2个回答

热心网友 时间:2023-10-12 17:36

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

热心网友 时间:2023-10-12 17:37

新建工程,在窗体中加入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文件中都会添加一条记录,

热心网友 时间:2023-10-12 17:37

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

热心网友 时间:2023-10-12 17:37

新建工程,在窗体中加入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文件中都会添加一条记录,
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
水笔在手上画画会不会被衣服搽掉下来 老人每天大便次数很多量不多也不稀,每天还会拉三四次水应经三个月了... 从大连飞机场怎么去大连经济开发区5彩城K区的大连金港大酒店 除了打 ... 请问从大连周水子国际机场到经济技术开发区怎么走最省钱? 中国古代名刀总录中国古代十大名刀 怎样把qq安装到iphone里面 苏科大什么梗 苏科大叫什么名字 lol苏科大是苏州科技大学的吗 lol苏州科技大学为什么这么厉害 优尔精医用降温贴是不是保健品? vb中如何从一个文本框中提取需要的字符 excel2007如何批量提取文本框控件内的数值 Excel 怎么获取文本框里的数值 vb.net如何提取文本框中的文本 有一个2003的word文档,包含文字、图片、文本框,想要批量将文本框中的文字信息提取出来,并放在图片后。 WIN10没有桌面是怎么解决??? excel大神急求!怎么提取文本框内容或者删除文本框留下内容!! 自己的QQ号要是忘记密码了,丢了2、3年,还能找回来吗?怎么找回来。 如何将大量word文本框中的内容提取出来(复制)出来并粘贴在txt文档中 vivoy50手机快充没了 Excel excel文本框中的文字怎么提取 QQ密码丢失N年了 只记得这些问题 能不能找回?(难度问题) 2018退休工资的新政策 2018年退休新方案将采用控高提低的原则? 单位中途断缴社保职工怎么办 笔记本电脑网页打不开,重启后网也连不上是怎么回事?求 QQ密码忘了,有几年没用了?怎么才能找回来? 站着抬腿动作对壮阳好吗 一级注册消防工程师难考吗? oppo手机为什么不弹出允许usb调试密匙 怎样读取textbox文本框中的数据,并将其置入DataSet中asp.net(c#)怎样... 优步为什么退出中国? 优步上市了吗 请问,我申请了光大银行信用卡(小白卡)寄来两张,一张VISA,一张银联 原来有一个光大信用卡,额度用完了,后面申请了一个光大小白卡,没有额度的吗?谁来告诉我! 1元人人购app哪些应用商店可以下载? 我的光大白金信用卡没有激活,因为年费比较贵,以后有什么不好的后果 京东里的一元钱宝在哪下app 想注销光大白金卡 但注销失败 光大工作人员打电话说:不激活不产生费用 感觉就是一个坑 我还想继续注 一元赚的app在怎样下载的 一元手游app为什么突然打不开了? 一元旅行app怎么没有了 手机上一元提现的app有哪些? 明英宗朱祁镇时期的朝廷重臣有哪些? thinkpad电脑桌面的软件无法显示,但是电脑里面还有这个软件,怎么回事 联想thinkpad win10系统打开电脑后所有软件都不显示了,怎么回事啊 盟友还是敌人?明朝重臣徐阶、高拱、张居正关系是怎样的? 明朝内阁三杨可以说名留青史,那么“三杨”中,南杨,东杨,西杨分别是谁 联想笔记本电脑卸载了一些软件,现在还在开机,就是屏幕不亮 明朝著名的军事重臣余子俊在抵御蒙古入侵中作出的贡献都有哪些?