Ⅰ 如何在vb中实现将对象数据保存至txt文件
读写代码如下:
Private Sub Command1_Click()
'写文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "c:\w.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = "这些文字将被写入文件。"
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub
Private Sub Command2_Click()
'读文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
strFileName = "c:\b.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
strAll = strAll & strLine & vbCrLf
Loop
'显示得到的全部分内容
MsgBox strAll
End Sub
Ⅱ vb中如何把变量的值写入txt文件中
这是Open函数的原型
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open 语句的语法具有以下几个部分：
部分 描述
pathname 必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。
mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。
access 可选。关键字，说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。
lock 可选。关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。
filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。
reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。
#号在这里是表明 其后面的是一个有效的文件号,它可以省略,即不加也行
一般会在函数的参数中告诉你是否使用#号
在VB中,在函数中一般是在 一个有效的文件号前边加#号,比如下边的几个函数
其中的参数也用到文件号,
Width语句(这里的#号不能省略)
Width #filenumber, width
Width # 语句的语法具有以下几个部分：
部分 描述
filenumber 必要。任何有效的文件号。
width 必要。范围在 0-255 之间的数值表达式，在新的一行开始之前，指出在该行上可出现多少字符。如果 width 等于 0，则行的长度不受限制。width 的缺省值为 0。
Seek语句
Seek [#]filenumber, position
Seek 语句的语法具有以下几个部分：
部分 描述
filenumber 必要。任何有效的文件号。
position 必要。介于 1 - 2，147，483，647 之间的数字，指出下一个读写操作将要发生的位置。
Get 语句 返回
将一个已打开的磁盘文件读入一个变量之中。
语法
Get [#]filenumber, [recnumber], varname
Get 语句的语法具有以下几个部分：
部分 描述
filenumber 必要。任何有效的文件号。
recnumber 可选。Variant (Long)。记录号（Random 方式的文件）或字节数（Binary 方式的文件），以表示在此处开始读出数据。
varname 必要。一个有效的变量名，将读出的数据放入其中。
Lock，Unlock语句 返回
对于用 Open 语句打开的全部文件或一部分文件，其它进程所进行的控制访问。
语法
Lock [#]filenumber[, recordrange]
. . .
Unlock [#]filenumber[, recordrange]
Lock 和 Unlock 语句的语法具有以下几个部分：
部分 描述
filenumber 必要。任何有效的文件号。
recordrange 可选。要锁定或解锁的记录范围。
设置
recordrange 参数的设置如下：
recnumber [start] To end
设置 描述
recnumber 记录号（Random 方式的文件）或字节数（Binary 方式的文件），指定要开始锁定或解锁的位置。
start 第一个要锁定或解锁的记录号或字节数。
end 最后一个要锁定或解锁的记录号或字节数。
但也有在有效文件号前不加#号的,如下边的几个函数
FileAttr函数 返回
返回一个 Long，表示使用 Open 语句所打开文件的文件方式。
语法
FileAttr(filenumber, returntype)
FileAttr 函数的语法具有以下几个命名参数：
部分 描述
filenumber 必要。Integer 类型，任何有效的文件号。
returntype 必要。Integer 类型。它是数字，指出返回信息的类型。指定 1 则可返回一个代表文件方式的数值。而仅仅在 16 位系统中， 指定 2 才可以恢复操作系统的文件句柄。在 32 位系统中不支持 Returntype 2，它会导致错误发生。
LOF函数 返回
返回一个 Long，表示用 Open 语句打开的文件的大小，该大小以字节为单位。
语法
LOF(filenumber)
必要的 filenumber 参数是一个 Integer，包含一个有效的文件号。
注意 对于尚未打开的文件，使用 FileLen 函数将得到其长度。
Ⅲ vb中怎样把数据存到文件里
Open 文件绝对路径 For Input/Output/Append/Binary/Random As #文件号
Input:读入文件,文件不存在发生错误
Output:输出到文件,文件不存在则创建文件
这两个是比较常用的
Write #文件号,变量(写内容到打开的文件)
Put #文件号,文件大小,变量(写内容到打开的文件,可指定大小)
Print #文件号,变量(写内容到打开的文件)
Input #文件号,变量(从打开的文件读入内容)
Line Input #文件号,变量(从打开的文件读入一行内容(遇到回车符为一行))
Close #文件号(关闭打开的文件)
Open 语句示例
本示例示范 Open 语句的不同用法来做到文件的输出与输入。
下列代码以顺序输入模式打开 TESTFILE 文件。
Open "TESTFILE" For Input As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1
下列代码以只允许写操作的二进制方式打开文件。
Open "TESTFILE" For Binary Access Write As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1
下列代码以随机方式打开文件，文件中含有用户自定义数据类型 Record 的记录。
Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record ' 声明变量。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1
下列代码以顺序输出方式打开文件；任何过程都可以读写该文件。
Open "TESTFILE" For Output Shared As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1
下列代码以只允许读的二进制方式打开文件；其他过程不可以读该文件。
Open "TESTFILE" For Binary Access Read Lock Read As #1
例如:
Open App.Path + "\test.txt" For Output As 1
Print #1, Text1.Text
Print #1, Text2.Text
.....
close
下载msdn吧
Ⅳ 在VB中如何把一个文本框里面的数据写如一个TXT文件
open "目标文件地址+文件名" for output as #1
print #1,"这是是文本框里的数据"
close #1
'-------
如:
open "c:\Test.txt" for output as #1
print #1,text1.text '这里可以是数据本身也可以是目标控件的属性
close #1 '关闭打开的文件
'--end---
执行上面的代码后 text1中的内容就会被写到c盘的test.txt文件里