怎样读写文件
编号：QA002398
建立日期: 2000年1月8日 最后修改日期：2003年1月4日
所属类别：
fool_boy:
操作系统: Windows98 中文版
编程工具: vb5.0中文版
怎样向一个文件(例如文本文件等)中写入内容,然后读取所写入的内容(例如通过文本框显示出来)?
回答:
VB读写文件要用到以下语句：
1、Open语句打开文件。
2、读文件使用Line Input、Input #，（以上为文本方式）和Get（以上为二进制方式）。
3、写文件使用Print #、Write（以上为文本方式）和Put（以上为二进制方式）。
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例：
Open "TESTFILE" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World" ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello" ' 将数据写在第十列。
' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1 ' 关闭文件。
读文件示例
使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件。
你也可以在我们的“磁盘、文件和目录”栏目中找到许多这方面的问题和例子。
此问题由李海回答。
| |
|
|
| |
|
|
