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文件中都会添加一条记录,